if {$numversion < 1040200} {  if {[info commands isop] != ""} {    proc wasop {nick chan} {      return [isop $nick $chan]    }  }}proc sb_bitch {nick uhost hand chan mode opped} {  global botnick sb_chans sb_canop sb_canopany sb_canopflags sb_checkop sb_note sb_remove  if {$mode == "+o"} {    if {$nick != $botnick} {      if {((($opped != $botnick) && ($nick != $opped) && ([onchan $nick $chan]) && (![wasop $opped $chan])) && (($sb_chans == "") || ([lsearch -exact $sb_chans [string tolower $chan]] != -1)))} {        if {![matchattr [nick2hand $opped $chan] $sb_canopflags $chan]} {          if {(($sb_canopany == "") || (![matchattr $hand $sb_canopany $chan]))} {             putquick "KICK $chan $opped :Permission Denied"              putquick "KICK $chan $nick :Permission Denied"            if {(($sb_remove) && ([validuser $hand]) && ([matchattr $hand o|o $chan]))} {              chattr $hand -o+d|-o+d $chan              if {[info commands sendnote] != ""} {                foreach recipient $sb_note {                  if {[validuser $recipient]} {                    sendnote SUPERBITCH $recipient "Permission Denied"                  }                }              }            }          }        } else {          if {((($sb_canopany == "") || (![matchattr $hand $sb_canopany $chan])) && (($sb_canop == "") || (![matchattr $hand $sb_canop $chan])))} {             putquick "KICK $chan $opped :Permission Denied"              putquick "KICK $chan $nick :Permission Denied"            if {(($sb_remove) && ([validuser $hand]) && ([matchattr $hand o|o $chan]))} {              chattr $hand -o+d|-o+d $chan              if {[info commands sendnote] != ""} {                foreach recipient $sb_note {                  if {[validuser $recipient]} {                    sendnote SUPERBITCH $recipient "Permission Denied"                  }                }              }            }          }        }      }    } else {      if {(($sb_checkop) && (![matchattr [nick2hand $opped $chan] o|o $chan]))} {        putquick "KICK $chan $opped :Permission Denied"        putlog "Permission Denied"      }    }  }  return 0}set sb_chans [split [string tolower $sb_chans]] ; set sb_note [split $sb_note]bind mode - * sb_bitch

Statistics: Posted by NoFear — Thu Oct 09, 2003 1:20 pm

Statistics: Posted by bobjuh — Thu Oct 09, 2003 7:34 am

Statistics: Posted by NoFear — Wed Oct 08, 2003 8:15 am

Code:

#! /path/to/executable/eggdrop# ^- set that to the directory eggdrop is in ie "#! /home/lamest/egg/eggdrop"## $Id: eggdrop.simple.conf,v 1.15 2001/08/13 19:12:27 guppy Exp $## This is a sample configuration file for your bot.  You will definitely# want to edit this, to set up your bot.  Right now it creates a bot called# "LamestBot" which sits on channel #lamest.## more options can be found in files in doc/settings/## IMPORTANT: Remember to make install and cd to the directory it created# (~/eggdrop by default) before you continue, running the bot from# eggdrop1.6.x/ will not work.# ### Pri prvi uporabi bota ga moraš OBVEZNO zagnati v dosu z komando "eggdrop -m eggdrop.comf"# Prosim Izpolni Ta Dokument Popolno! Botek ne bo deloval pravilno če ga ne boš izpolnil # popolno in pravilno!# Teh 9 vrstic pusti pri miru jih ne spreminjaj!!set mod-path "modules/"set help-path "help/"set text-path "text/"set username "H-Town"loadmodule channelsloadmodule serverloadmodule ctcploadmodule ircloadmodule notesloadmodule consoleloadmodule uptimeloadmodule blowfishloadmodule shareloadmodule transfer# Tukaj prični z obdelavo !##### variables:set nick "H-Town"# Nick bota je ime, ki ga bo uporabljal na ircu in v botnetu, # če neboš posebno spreminjal bot-net nickaset altnick "H-Town"# Alternativa je drug nick. To pomeni, če nick ni na voljo bo bot imel alternativo. # Znak ? bo PC samodejno zamenjal s katerokoli črko ali številko. set realname "* I'm To Lame To Read My H-Town.doc *"# Real name je opis oz. ime bota, to so bo izpisalo če bo katerikoli drug IRCAR gledal tvoj bot. # tcl code to run (if any) when first connecting to a serverbind evnt - init-server evnt:init-server proc evnt:init-server {type} {   global botnick  putquick "MODE $botnick +i-ws"}# Vpiši server na katerega se bo bot konektal. # POZOR !!!# Pred vpisom servera se posvetuj z irc operaterjom če so boti na njihovem serverju dovoljeni set servers {irc.link.si:6669irc.arnes.si:6669irc.uni-mb.si:6669irc.stealth.net:6669}# Če želiš da bo bot pravilno deloval še tukaj nastavi kanal na katerega se bo pridružo. channel add #H-Town {  chanmode "+snt"  idle-kick 0  stopnethack-mode 0  flood-chan 0  flood-deop 0  flood-kick 0  flood-join 0  flood-ctcp 0  flood-nick 0}channel set #H-Town -enforcebans +dynamicbans +userbanschannel set #H-Town +dynamicexempts +userexempts +dynamicinvites +userinviteschannel set #H-Town +autoop -bitch +protectops +protectfriends +dontkickopschannel set #H-Town +greet +statuslogchannel set #H-Town -revenge +autovoice -revengebotchannel set #H-Town -secret +shared +cyclechannel set #H-Town -inactive +nodesynchset net-type 0# Nastavi tvoj network# [0/1/2/3/4/5] Katero je tvoje network?# 0 = Efnet (non +e/+I hybrid), 1 = IRCnet, 2 = Undernet, 3 = Dalnet,# 4 = Efnet +e/+I hybrid, 5 = Others# various stuff...listen 1000 all# Nastavi port pod katerim se bo bot lahko linakl set owner "NoFear"# Nastavi lastnika bota. Pod tem nickom te bo bot prepoznal in ti dal dovoljenje da boš z njim chatal. # Dokumenti in Direktorijiset userfile "H-Town.user"set chanfile "H-Town.chan"set temp-path "tmp/"logfile msbxco * "logs/eggdrop.log"logfile jpk #H-Town "logs/H-Town.log"# default console flagsset console "mkcobxs"##### SCRIPTS ###### Tukaj je nekaj loadanih skript ki so potrebne za delovanje bota.source scripts/alltools.tclsource scripts/action.fix.tclsource scripts/compat.tclsource scripts/userinfo.tclsource scripts/cmd_resolve.tclsource scripts/getops.tclsource scripts/protectOPS.tclsource scripts/stats.confsource scripts/tools.tclsource scripts/gseen.confsource scripts/LimitProtection.tclsource scripts/sentinel.tclsource scripts/Glasovanje.tclsource scripts/JoinGreet.tclsource netbots/netset.tclsource netbots/netbots.tclsource netbots/botnetop.tclsource netbots/chanlimit.tclsource netbots/superbitch.tclsource netbots/mass.tclloadhelp userinfo.help##### WINDROP SCRIPTS ###### Ident script for Windrop by FireEgl@EFnet <FireEgl@LinuxFan.com># uses username value for ident as default# read head of script for more documentation# uncomment (remove cross from) next line to activate#source scripts/winident1.2.tcl

Statistics: Posted by NoFear — Wed Oct 08, 2003 8:10 am

Statistics: Posted by bobjuh — Wed Oct 08, 2003 8:04 am

# several variables exist to better blend your egg in. they are
# ctcp-version, ctcp-finger, and ctcp-userinfo. you can use set
# to set them to values you like.

Statistics: Posted by egghead — Wed Oct 08, 2003 7:46 am

Statistics: Posted by NoFear — Wed Oct 08, 2003 7:40 am