Radio, Auto-Post to Channel

Balkanac · Post by **Balkanac** » Fri Sep 16, 2005 12:00 pm

//Edit:

How I can put an other colour into the text?

set radio_url "http://discopink.ch/sc_text2.php"
set time 1
set chan "#RadioPink"

if {![info exists ald]} {
set ald 1
timer $time radio_get
}

proc radio_get {} {
	global radio_url
	global thetext a chan time text
	set file [open "|lynx -source $radio_url" r]
	set html "[gets $file]"

	regsub -all "<br>" $html " " html
	regsub -all "<html>" $html " " html
	regsub -all "<font color=#333333>" $html " " html
	regsub -all "</font>" $html " " html
	regsub -all "<\[^b]{0,1}b{0,1}>" $html "" html
	regsub "text1=" $html "" html
	regsub "NOW PLAYING:" $html "Now on http://viptrend.com:8002/listen.pls playing \002" html

	putchan $chan $html
	putserv "privmsg $chan Radio: http://viptrend.com:8002/listen.pls"
        timer $time radio_get
}

Post by **caesar** » Fri Sep 16, 2005 12:58 pm

Have you checked Colour and formatting codes from the Tcl FAQ?

demond · Post by **demond** » Fri Sep 16, 2005 1:04 pm

don't use lynx, use http package
you can embed mIRC colors in output text using the color escape character \003; check mIRC's docs for color code combinations; for example, this would be red on yellow:
Code: Select all
```
putserv "privmsg #channel :\0034,8using colors on irc is lame\003"
```