ArmannY
Founder
Data inscrierii: 04/Iun/2008
Mesaje: 17
|
 Trimis: 06/06/2008 16:48 Titlul subiectului: optools.tcl ... versiune mai noua ! |
 |
|
| Cod: | ###
# 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) "( $nick ) You are INFECTED! Reinstall your mIRC from www.mirc.com/get.html or get your computer clean on #DmSetup."
set edu(d) "You are BANNED one day!"
set edu(black) "You are BANNED (Black listed)"
set edu(w) "BANNED @ Abuse Bad words!"
set edu(b) "Because You Don't Respect The Rules Of Channel You Have Been BANNED ( For More Information Please Join #±BAN )"
###
# dr ban time (hours):
set edu(drtime) "500"
set edu(daytime) "24"
set edu(blacktime) "0"
set edu(wtime) "1"
set edu(btime) "100"
set prechar "!"
###
#BINDS
bind pub -|o !dr pub:dr
bind pub -|o !day pub:day
bind pub -|o !black pub:black
bind pub -|o !w pub:w
bind pub -|o !b pub:b
bind pub -|o !h pub:h
bind pub -|o !o pub:o
bind pub -|o !v pub:v
bind pub -|o !k pub:k
## Comanda .h
set h {
"2Comenzile disponibile sunt: 4!dr <nick>2, 4!day <nick>2, 4!black <nick>2, 4!w <nick>2, 4!b <nick>2, 4!k <nick>2, 4!v2, 4!o2."
}
###
# CODE
setudef flag optools
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]
set mask [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]
putquick "MODE $channel +b $mask"
}
proc pub:black {nickname hostname handle channel text} {
global botnick edu
set bnick [lindex [split $text] 0]
set reason [lrange $text 1 end]
set mask [lindex [split $text] 0]
if {$reason == ""} { set reason "You are NEGRU LISTED!" }
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 $reason [expr $edu(blacktime) * 60]
putquick "msg x ban $channel $mask [expr $edu(blacktime) * 60] 75 $reason"
}
proc pub:k {nickname hostname handle channel text} {
global botnick edu
set bnick [lindex [split $text] 0]
set reason [lrange $text 1 end]
set mask [lindex [split $text] 0]
if {$reason == ""} { set reason "You are KICKED!" }
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>"
}
putserv "KICK $channel $bnick $reason"
}
proc pub:w {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: w <nick>"
}
putquick "privmsg X :kick $channel $bnick $edu(w)"
}
proc pub:b {nickname hostname handle channel text} {
global botnick edu
set bnick [lindex [split $text] 0]
set reason [lrange $text 1 end]
set mask [lindex [split $text] 0]
if {$reason == ""} { set reason "You are BANNED" }
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 $reason [expr $edu(btime) * 60]
putquick "msg x ban $channel $mask [expr $edu(blacktime) * 60] 75 $reason"
}
bind pub o|o .h pub:h
proc pub:h {nick uhost hand chan text} {
global h
foreach line $h { puthelp "NOTICE $nick :$line" }
}
proc pub:o {nick uhost hand chan text} {
if {[botisop $chan] == 1} {
if {[isop $nick $chan] == 1} { putserv "MODE $chan -o $nick" } else { putserv "MODE $chan +o $nick" }
} else { puthelp "NOTICE $nick :I don't have OP!" }
}
proc pub:v {nick uhost hand chan args} {
if {[botisop $chan] == 1} {
if {[isvoice $nick $chan] == 1} { putserv "MODE $chan -v $nick" } else { putserv "MODE $chan +v $nick" }
} else { puthelp "NOTICE $nick :I don't have OP!" }
}
proc pub:ub {nick uhost hand chan text} {
if {[botisop $chan]} {
if {[string length $text] > 0} {
set tnick [lindex $text 0]
if {[ischanban $chan $tnick ]} { killchanban $chan $tnick } else { puthelp "NOTICE $nick :No such BAN on $chan" }
} else { puthelp "NOTICE $nick :usage !ub <nick> - UnBans an address" }
} else { puthelp "NOTICE $nick :I don't have OP!" }
}
putlog "AllTools TCL Loaded..." |
|
|
