Code: Select all
bind msg - * msgchan
proc noticeuser {nick uhost hand arg} {
puthelp "PRIVMSG $chan :[string tolower $arg]"
return 0
}
Code: Select all
bind msg - * msgchan
proc noticeuser {nick uhost hand arg} {
puthelp "PRIVMSG $chan :[string tolower $arg]"
return 0
}
Code: Select all
foreach c [channels] {
if {(![string equal -nocase $c $basechan])} {
utimer $interval "puthelp \"PRIVMSG $c :$msg\""
}
}