[SoLLo]

Am un TCL parca de la U&U cu .dr , .black si .day dar am o problema ! Cand dau .dr apare :

Tcl error [pub:dr]: can't read "mask": no such variable
Tcl error [pub:black]: can't read "mask": no such variable
Tcl error [pub:day]: can't read "mask": no such variable

si eu as vrea cand dau .dr sa apara notice cu ceva de genu - Usage : .dr <nick> , la fel si la celelalte !

Acesta este TCL :

### IL AM DIN ARHIVA U&U ###
###
# SETINGS
###
# reply when someone tries to ban the robot:
set edu(dontban) "Access denied"

###
# reply when someone uses the public commands and the robot is not opped:
set edu(noop) "I'm not opped!"

###
# dr reason:
set edu(dr) "You are probably infected! get your computer clean on #dmsetup - Detalii: #rops sau www.irc.ro.org/reguli/"
set edu(d) "You are BANNED one day..."
set edu(black) "We love you dude ... Black listed !! "

###
# dr ban time (hours):
set edu(drtime) "160"
set edu(daytime) "14400"
set edu(blacktime) "0"

###
#BINDS
bind pub o|o .dr pub:dr
bind pub o|o .day pub:day
bind pub o|o .black pub:black

###
# CODE
proc pub:dr {nickname hostname handle channel text} {
  	global botnick edu
  	set bnick [lindex [split $text] 0]
  	if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nickname :$edu(dontban)"
    		return 0
  	}
  	if {![botisop $channel]} {
    		putquick "NOTICE $nickname :$edu(noop)"
    		return 0
  	}
  	if {[onchan $bnick $channel]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1] 
	}
    	if {$mask == ""} {
      	putquick "NOTICE $nickname :SYNTAX: DR <nick>"
    	}
    	newchanban $channel $mask $handle $edu(dr) [expr $edu(drtime) * 60]
}

proc pub:day {nickname hostname handle channel text} {
  	global botnick edu
  	set bnick [lindex [split $text] 0]
  	if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nickname :$edu(dontban)"
    		return 0
  	}
  	if {![botisop $channel]} {
    		putquick "NOTICE $nickname :$edu(noop)"
    		return 0
  	}
  	if {[onchan $bnick $channel]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1] 
	}
    	if {$mask == ""} {
      	putquick "NOTICE $nickname :SYNTAX: d <nick>"
    	}
    	newchanban $channel $mask $handle $edu(d) [expr $edu(daytime) * 60]
}

proc pub:black {nickname hostname handle channel text} {
  	global botnick edu
  	set bnick [lindex [split $text] 0]
  	if {[isbotnick $bnick]} {
   	 	putquick "NOTICE $nickname :$edu(dontban)"
    		return 0
  	}
  	if {![botisop $channel]} {
    		putquick "NOTICE $nickname :$edu(noop)"
    		return 0
  	}
  	if {[onchan $bnick $channel]} {
    		set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1] 
	}
    	if {$mask == ""} {
      	putquick "NOTICE $nickname :SYNTAX: black <nick>"
    	}
    	newchanban $channel $mask $handle $edu(black) [expr $edu(blacktime) * 60]
}