tcl giving me gripe :|

[Dw2k]

Code: Select all

bind pub nA !needop cmd:needop
proc cmd:needop {nick uhost hand chan args} {
 global hubchan userchan
 if {![matchattr $hand Q]} { return 0 }
 set message ""
 foreach chans [channels] {
 foreach user [chanlist $chans] {
  if {![botisop $chans] && [isop $user $chans] && ($chan != $userchan) && ($chan != $hubchan)} {
   set message "$message \002\00310$chans\003\002"
   set noops 0
   break
  } elseif {![botisop $chans] && ![isop $user $chans] && ($chan != $userchan) && ($chan != $hubchan)} {
   set noops 1
  }
 }
 }
 if {$noops == 1} {
  set message "$message \002\0034$chans\003\002"
 }
 if {$message != ""} {
  puthelp "PRIVMSG $hubchan :Needop: $message"
 }
}

This looks right but it gives me

can't read "noops": no such variable

Im usually pretty good at spotting the mistake but this one has me stumped. Anyone help me oot?

[Dw2k]

edit: scratch that, fixed it ty Godin