| View previous topic :: View next topic |
| Author |
Message |
ayie Voice

Joined: 20 Feb 2003 Posts: 38
|
Posted: Thu Jun 29, 2006 6:48 am Post subject: Oper Scripts |
|
|
Can any coders/experts here modify this oper tcl.
| Code: | # oper.tcl v0.2d
# Made by ^Liam^ & Cold Fusion
# Modified by eD
# set your Oper name
set opername "enteropernamehere"
# set your Oper password
set operpass "enteroperpassword"
set init-server {
putserv "OPER $opername $operpass"
putserv "MODE $botnick -sw"
}
bind dcc m kill dcc_do_kill
proc dcc_do_kill {hand idx arg} {
set who [lindex $arg 0]
set what [lrange $arg 1 end]
if {$who == ""} {
return 0 }
if {$what == ""} {
putserv "KILL $who :bye"
return 0
}
putserv "KILL $who :$what"
return 0
}
bind pub m .kill pub_do_kill
proc pub_do_kill {nick host handle channel vars} {
set who [lindex $vars 0]
set what [lrange $vars 1 end]
if {$who == ""} {
return 0 }
if {$what == ""} {
putserv "KILL $who :bye"
return 0
}
putserv "KILL $who :$what"
return 0
}
bind dcc m wallops dcc_do_wallops
proc dcc_do_wallops {hand idx arg} {
set what [lrange $arg 0 end]
if {$what == ""} {
return 0
}
putserv "wallops :$what"
return 0
}
bind pub m .wallops pub_do_wallops
proc pub_do_wallops {nick host handle channel vars} {
set what [lrange $vars 0 end]
if {$what == ""} {
return 0
}
putserv "wallops :$what"
return 0
}
putlog "-IRCop Commands-"
|
this is some basic Oper Tcl that make bots oper up.
can you add a functions for bot auto kill SPAMMERS when it detect specify words that i tell its ... and also if possible add some random reason ....
hope can get responds ....
thanks _________________ Ay|e
Very Idiot Person In This World
http://www.labtek.biz/v2/ |
|
| Back to top |
|
 |
DragnLord Owner

Joined: 24 Jan 2004 Posts: 711 Location: C'ville, Virginia, USA
|
Posted: Thu Jun 29, 2006 9:38 am Post subject: |
|
|
| find a good anti-spam script, then change the action to kill/kline instead of ban/kick |
|
| Back to top |
|
 |
|