Untitled

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)"}
  }
}