Problem

[syM]

The egg says:

 (Metro) [21:44] Tcl error in script for 'timer739544':
 (Metro) [21:44] missing close-bracket

someone can check my code please ?

Code: Select all

 proc RegChanOps {} {
 	global AOPS botnick
 	foreach c [channels] {
 		foreach n [chanlist $c] {
 			if {([ChkWbBwVar [string tolower $c]]) && ([isop $n $c]) && ($n!="$botnick") && (![matchattr $n b])} {
 				if {![validuser $n]} {
 					adduser $n "*![getchanhost $n $c]"
 					chattr $n +O
 				} else {
 					set hd [nick2hand $n]
 					if {![matchattr $hd O]} {
 						chattr $hd +O
 					}
 				}
 			}
 		}
 	}
 	utimer 4 RegChanOps
 }
 utimer 4 RegChanOps
 proc MankdOp {chan nick arg0 arg1} {
 	global AOPS
 	set text "$arg0 $arg1"
 	if {([validuser $nick]) && ([matchattr [nick2hand $nick] O]) && (![isop $nick $chan])} {
 		if {[listops $chan]<=1} {
 			if {$AOPS(sendto)!=""} {
 				putbot $AOPS(sendto) ".xsay \002Plus d'op sur $chan\002 ($nick $text)"
 			}
 		}
 		chattr [nick2hand $nick] -O
 		if {([chattr [nick2hand $nick]]=="-") || ([chattr [nick2hand $nick]]=="+") || ([chattr [nick2hand $nick]=="")} {
 			deluser [nick2hand $nick]
 		}
 	}
 }

[TomSommer]

I have this problem too... I guess it's the bot, because I've never had problems before I upgraded... dunno really...

[spyda]

I looked at the script 5 times but i think i have found your error

Code: Select all

      if {([chattr [nick2hand $nick]]=="-") || ([chattr [nick2hand $nick]]=="+") || ([chattr [nick2hand $nick]=="")} { 
         deluser [nick2hand $nick]
      }

You are missing a ] at ([chattr [nick2hand $nick]=="")

Code: Select all

     if {([chattr [nick2hand $nick]]=="-") || ([chattr [nick2hand $nick]]=="+") || ([chattr [nick2hand $nick]]=="")} { 
         deluser [nick2hand $nick]
      }

Hoped that helped you.

----------
ThePope