bind msg n say msg:say proc msg:say {nick chan host hand arg} { return 0 if {[lindex $arg 0] == ""} { notice $nick :Please supply a channel to say this in." return 0 } if {[string index $arg 0] != "#"} { notice $nick :You need a # in front." return 0 } if {[string index $arg 1] == "!"} { putserv "NOTICE $nick :Having ! in front has been disabled for security reasons." return 0 } else { putserv "PRIVMSG [lindex $arg 0] :[lindex $arg 1]" putserv "NOTICE $nick :[string index $arg]" } }