[Correct script] putquick

SoLLo · 20-05-2007, 11:23

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

Code:

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 :

Code:

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

arcade · 20-05-2007, 22:05

asta:

Code:

if {$mask == ""} {

inlocuiesti cu asta:

Code:

if {$bnick == ""} {

SoLLo · 23-05-2007, 20:04

Multumesc arcade !

Imi apare notice , dar tot apare aia cu mask !

Code:

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

Sorin · 24-05-2007, 03:29

la mine merge.. dar vezi ca modifici in 3 locuri, nu numai intr-un loc.
cheers

SoLLo · 24-05-2007, 08:28

Lol Sorin , am vazut ca nu sunt chiar asa de n00b , eroarea o da in botnet chat :P !

KShadow · 24-05-2007, 19:08

Code:

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

Cam asa ceva

la mine nu da nici o eroare

SoLLo · 02-06-2007, 22:15

Hmmz , nush de ce dar mie imi da eroare in botnet chat :

Code:

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

Dar lasa ca o sa incerc sa il fac eu

doar nu o sa stau sa astept mura in gura si daca imi iese o sa il postez aici :P !

SoLLo · 02-06-2007, 22:49

Pentru cine este interesat uitati TCL :

Code:

############
# SETTINGS #
############
### Set:
# dr reason:
set edu(drr) "Set DR Reason"
set edu(dayr) "Set DAY Reason"
set edu(blackr) "Set BLACKLIST Reason"

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

# don't ban users with this flags:
set edu(drf) "f|f"

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

########
# CODE #
########
proc pub:dr {nickname hostname handle channel text} {
global botname edu
set text [split $text]
set bnick [lindex $text 0]
  if {![botisop $channel]} { 
putquick "NOTICE $nickname :I'm not opped on $channel" 
return 
}
if {$bnick == ""} { 
putquick "NOTICE $nickname :Usage: .dr <nick>"
return 
}
if {[onchan $bnick $channel]} {
set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1]
} else {
putquick "NOTICE $nickname :I don't see $bnick on $channel !"
}
if {[isbotnick $bnick]} {
putquick "NOTICE $nickname :I can't ban myself !" 
return 
}
set ban_USER [finduser $mask]
if {[matchattr $ban_USER $edu(drf) $channel]} { 
putquick "NOTICE $nickname :I can't ban $mask !" 
return
}
foreach ban_BAN [banlist $channel] { 
set ban_HOSTNAME [lindex $ban_BAN 0]
if {$mask == $ban_HOSTNAME} { 
putquick "NOTICE $nickname :$mask is already on $channel's banlist" 
return
}
}
newchanban $channel $mask $handle $edu(drr) [expr $edu(drtime) * 60]
}



proc pub:day {nickname hostname handle channel text} {
global botname edu
set text [split $text]
set bnick [lindex $text 0]
  if {![botisop $channel]} { 
putquick "NOTICE $nickname :I'm not opped on $channel" 
return 
}
if {$bnick == ""} { 
putquick "NOTICE $nickname :Usage: .day <nick>"
return 
}
if {[onchan $bnick $channel]} {
set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1]
} else {
putquick "NOTICE $nickname :I don't see $bnick on $channel !"
}
if {[isbotnick $bnick]} {
putquick "NOTICE $nickname :I can't ban myself !" 
return 
}
set ban_USER [finduser $mask]
if {[matchattr $ban_USER $edu(drf) $channel]} { 
putquick "NOTICE $nickname :I can't ban $mask !" 
return
}
foreach ban_BAN [banlist $channel] { 
set ban_HOSTNAME [lindex $ban_BAN 0]
if {$mask == $ban_HOSTNAME} { 
putquick "NOTICE $nickname :$mask is already on $channel's banlist" 
return
}
}
newchanban $channel $mask $handle $edu(dayr) [expr $edu(daytime) * 60]
}



proc pub:black {nickname hostname handle channel text} {
global botname edu
set text [split $text]
set bnick [lindex $text 0]
  if {![botisop $channel]} { 
putquick "NOTICE $nickname :I'm not opped on $channel" 
return 
}
if {$bnick == ""} { 
putquick "NOTICE $nickname :Usage: .black <nick>"
return 
}
if {[onchan $bnick $channel]} {
set mask *!*@[lindex [split [getchanhost $bnick $channel] "@"] 1]
} else {
putquick "NOTICE $nickname :I don't see $bnick on $channel !"
}
if {[isbotnick $bnick]} {
putquick "NOTICE $nickname :I can't ban myself !" 
return 
}
set ban_USER [finduser $mask]
if {[matchattr $ban_USER $edu(drf) $channel]} { 
putquick "NOTICE $nickname :I can't ban $mask !" 
return
}
foreach ban_BAN [banlist $channel] { 
set ban_HOSTNAME [lindex $ban_BAN 0]
if {$mask == $ban_HOSTNAME} { 
putquick "NOTICE $nickname :$mask is already on $channel's banlist" 
return
}
}
newchanban $channel $mask $handle $edu(blackr) [expr $edu(blacktime) * 60]
}

20-05-2007, 22:05	#2 (permalink)
arcade TCB & Ratings projects Member, #Mythic representative Join Date: Jun 2004 Location: In fatza calculatorului!! Age: 19 Posts: 221 Rep Power: 37	asta: Code: if {$mask == ""} { inlocuiesti cu asta: Code: if {$bnick == ""} { __________________ Fuck oFF!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

23-05-2007, 20:04	#3 (permalink)
SoLLo Junior Member Join Date: Apr 2007 Posts: 11 Rep Power: 0	Multumesc arcade ! Imi apare notice , dar tot apare aia cu mask ! Code: 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

24-05-2007, 03:29	#4 (permalink)
Sorin Junior Member Join Date: Oct 2006 Posts: 5 Rep Power: 0	la mine merge.. dar vezi ca modifici in 3 locuri, nu numai intr-un loc. cheers

24-05-2007, 08:28	#5 (permalink)
SoLLo Junior Member Join Date: Apr 2007 Posts: 11 Rep Power: 0	Lol Sorin , am vazut ca nu sunt chiar asa de n00b , eroarea o da in botnet chat :P !

02-06-2007, 22:15	#7 (permalink)
SoLLo Junior Member Join Date: Apr 2007 Posts: 11 Rep Power: 0	Hmmz , nush de ce dar mie imi da eroare in botnet chat : Code: Tcl error [pub:dr]: can't read "mask": no such variable Tcl error [pub:day]: can't read "mask": no such variable Tcl error [pub:black]: can't read "mask": no such variable Dar lasa ca o sa incerc sa il fac eu doar nu o sa stau sa astept mura in gura si daca imi iese o sa il postez aici :P !

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)