[Script] shoutcast.tcl

[djkenny]

salut,

petite modification pour éviter le lag du bot, remplacer ça:

tclcopier

proc sc::send {type arg} {
	variable rchan
	if [string equal $rchan ""] {set rchan [channels]}
	foreach c $rchan {
		putserv "PRIVMSG $c :$arg"
	}
}

par ça:

tclcopier

proc sc::send {type arg} {
	variable rchan
	if [string equal $rchan ""] {set rchan [channels]}
	putserv "PRIVMSG [join $rchan ,] :$arg"
}