Oper Scripts

[ayie]

Can any coders/experts here modify this oper tcl.

Code: Select all

# 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

[DragnLord]

find a good anti-spam script, then change the action to kill/kline instead of ban/kick