egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-06-29T09:38:08-04:00 https://forum.eggheads.org/app.php/feed/topic/12085 2006-06-29T09:38:08-04:00 2006-06-29T09:38:08-04:00 https://forum.eggheads.org/viewtopic.php?p=64432#p64432 <![CDATA[Oper Scripts]]> Statistics: Posted by DragnLord — Thu Jun 29, 2006 9:38 am

]]> 2006-06-29T06:48:52-04:00 2006-06-29T06:48:52-04:00 https://forum.eggheads.org/viewtopic.php?p=64428#p64428 <![CDATA[Oper Scripts]]>

Code: 

# oper.tcl v0.2d# Made by ^Liam^ & Cold Fusion# Modified by eD# set your Oper nameset opername "enteropernamehere"# set your Oper passwordset 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_wallopsproc 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_wallopsproc 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

Statistics: Posted by ayie — Thu Jun 29, 2006 6:48 am

]]>