(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]
}
}
}