Здравейте имам нужда от помощ по едно тцл по което работя.Ето го и тцл-то.Имам грешка в таймера и ако някой има идея как да стане да отговори.Ще съм му много благодарен
proc IRCPrivMSG {theTarget messageString} {
putserv "PRIVMSG $theTarget :$messageString"
}
bind pub - !num num
set nu(status) 1
set numax 100
set numin 1
set gTimebombChannel ""
proc num { nick host hand chan t } {
global nu(status) gTimerId
global numax numin num
set TimeMax 20
set gTimerId 0
if {$t == ""} {
putserv "privmsg $chan : 4« Error! syntax: !num <on> 4 »"
return 0
}
if {"$t" == "on"} {
set num [expr $numin + [expr int(rand() * ($numax - $numin))]]
set nu(status) 1
putserv "PRIVMSG $chan :Igrata na -=DhT-TeAm=- e startirana! Poznaite chisloto. Napishete: num 23 i taka ot 1 - 100,primer num 12 i taka ot 1 do 100.Imate $TimeMax sekundi!Успех"
putlog "#$hand# Igrata e pusnata v $chan 4isloto e $num.Ostavat $TimeMax sekundi"
set gTimerId [utimer $TimeMax "timeoff 2 \002*Igrata svarshi!!! Nikoi ne pozna!Vie ste Glupaci! Viarnoto chislo e $num!*\002"]
}
if {$t < $num} {
putserv "privmsg $chan :Nagore i ne zabravqi 4isloto da e do 100! ;o)"
return 0
}
if {$t > $num} {
putserv "privmsg $chan :Nadolu! ;o)"
return 0
}
if {$t == $num} {
putserv "privmsg $chan
ozna vqrnoto chislo!Chisloto e $num! Dobra rabota $nick ! Hodi se gramni sega .. xaxa buzikam se!Igrata svarshi ako iskate da opitate kasmeta si pak napishete !num on .. Uspeh!"
set gTimerId 0
}
}
proc timeoff {destroy kickMessage} {
global num gTimebombChannel
if { $destroy } {
killutimer $gTimerId
}
set gTimerId 0
IRCPrivMSG $gTimebombChannel "$kickMessage"
}
putlog "Num: by veSo is loaded."