egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Oper Scripts

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
ayie
Voice


Joined: 20 Feb 2003
Posts: 38

PostPosted: Thu Jun 29, 2006 6:48 am    Post subject: Oper Scripts Reply with quote

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
View user's profile Send private message
DragnLord
Owner


Joined: 24 Jan 2004
Posts: 711
Location: C'ville, Virginia, USA

PostPosted: Thu Jun 29, 2006 9:38 am    Post subject: Reply with quote

find a good anti-spam script, then change the action to kill/kline instead of ban/kick
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber