bind notc - * rawnotice:xcommands proc rawnotice:xcommands {from uhost hand rest {dest ""}} { if {[info exists ::xshowcommandsnick]} { set nick $::xshowcommandsnick set rest [split $rest " "] catch { if {$from == "X!cservice@undernet.org"} { putlog "xcommands : Notice from $from key($key) rest($rest)" if {[lindex $rest 0] == "Level"} { puthelp "NOTICE $nick :\0035 X [join $rest]" } if {[string first {doesn't appear to be registered} [join $rest]] != -1} { puthelp "NOTICE $::nick :\0035[lindex $rest 1] isn't registered with X" } if {[string first {insufficient access} [join $rest]] != -1} { puthelp "NOTICE $::nick :\0035I dont have X access to that channel" } } return 0 } foo if {$foo != 0} {putlog "Error in notice:xshowcommands! ($foo)"} } }