proc msg:say {nick host hand arg} { return 0 set arg1 [lindex $arg 1] 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 $arg1]" } }