[Correct script] dr.tcl

[Normal]

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:

[13:37:18] <(TheBest-> [10:31] Tcl error [pub:dr]: can't read "mask": no such variable

[13:37:25] <aNormaLu-> .set errorInfo

[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:

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

[EvaLuaTe]

Pentru ca scriptul sa dea reply-ul acela cand dai .dr simplu, va trebui sa faci urmatoarele:
stergi chestia asta:

    	if {$mask == ""} {
      	puthelp "NOTICE $nick :USAGE: .dr <nick>"
    	}

si inainte de linia asta:

  	if {[isbotnick $bnick]} {

adaugi codul acesta:

if {$bnick == ""} {
puthelp "NOTICE $nick :USAGE: .dr <nick>"
return 0
}

si atunci ar trebui sa functioneze.