Am si eu dr.tcl a lu edu si imi da o eroare cand dau simplu
.dr , ar trebui sa zica USAGE: .dr <nick> ..... dar imi da eroarea:
Code:
[13:37:18] <(TheBest-> [10:31] Tcl error [pub:dr]: can't read "mask": no such variable
[13:37:25] <aNormaLu-> .set errorInfo
Code:
[13:37:25] <(TheBest-> [10:31] #aNormaLu# set errorInfo
[13:37:25] <(TheBest-> Currently: can't read "mask": no such variable
[13:37:25] <(TheBest-> Currently: while executing
[13:37:25] <(TheBest-> Currently: "if {$mask == ""} {
[13:37:25] <(TheBest-> Currently: puthelp "NOTICE $nick :USAGE: .dr <nick>"
[13:37:25] <(TheBest-> Currently: }"
[13:37:25] <(TheBest-> Currently: (procedure "pub:dr" line 15)
[13:37:25] <(TheBest-> Currently: invoked from within
[13:37:25] <(TheBest-> Currently: "pub:dr $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"
TCLul este urmatorul:
Code:
proc pub:dr {nick host hand chan text} {
global botnick edu
set bnick [lindex [split $text] 0]
if {[isbotnick $bnick]} {
putquick "NOTICE $nick :$edu(dontban)"
return 0
}
if {![botisop $chan]} {
putquick "NOTICE $nick :$edu(noop)"
return 0
}
if {[onchan $bnick $chan] || [channel get $chan tools] } {
set mask *!*@[lindex [split [getchanhost $bnick $chan] "@"] 1]
}
if {$mask == ""} {
puthelp "NOTICE $nick :USAGE: .dr <nick>"
}
newchanban $chan $mask $hand $edu(dr) [expr $edu(drtime) * 60]
}
ma puteti ajuta ?! k nu`i dau d cap
