Code:
# __ ___ # |__|.-----..' _|.-----..-----..-----..-----.# | || || _|| _ || -__|| _ || _ |# |__||__|__||__| |_____||_____||___ ||___ |# |_____||_____|# version 1.3# www.zeen.co.uk# goatqueen@zeen.co.uk# Darren Moore - February 22th 2001# irc.zirc.org# Version Information#1.0 - Loads of bugs, not many features#1.1 - Most bugs ironed out# Can delete/alter variables# Tagging variables for picking up 'wtf' 'what' etc...# Karma crap added# Tell <nick> <question>? Added# Word file made better and moved#1.2 - Lock words so they can't be set# Tagging is allowed to anyone# Little vital bugs fixed# Extra variables e.g. $animal and $date are more efficient# Random responses, x is a|b|c|d# $nick Chooses a random nick out of the channel "gay is <reply> I'd guess $nick is gay"# Fixed a return problem, no more dysyncing db!#1.3 - No change/Free, this 'locks' the word so it can't be changed (need o)# # # # # ### UPDATE!# I have smashed, bashed this around. I have let hackers loose on the bot and# they can't 'hack' me little bot :)# Have a churn at it and tell me if you manage to exploit anything.################### infoegg - Based on infobot# # Infoegg talks, reacts just like infobot, it was actually based on the infobot.# I was getting sick of using infobot's because I could not find it easy to configure# so I looked at some learn scripts for eggdrops, they where all crap! I mean they# weren't smart at all so I thought of making an eggdrop version of infobot, here it is!# # I'm still working on bits of this script like status and date but I don't really# like TCL that much and can't find any real good resources, maybe I'll have to go# and buy a manual if this script is successful :P# # This bot learns from things like 'dtr is a queer' and if someone says dtr? it will say# 'i heard dtr is a queer'. The database is just a basic list separated with '=>' just# like infobot infopacks so you can import these in! l33t :)# # If it learns words like 'this' 'that' 'why' then type 'lock this' etc.. cause then the# word can't be used.## Hellos and thanks go out to:# Popeye, DTR, SmuDgeR, Ubu, Ed, Trax, Houlie, Pongyi + anyone else## E-Mail me with suggestions and comments - zeen@zeen.co.uk############################# set factoid: 'x is y' # random factoid:'x is a|b|c|d'# accessing factoid: 'what is x?' - or just 'x?'# delete factoid:'forget x'(need o)# append factoid:'x is also y'# changing factoid:'no, x is y'# disable factoid (loose):'tag x'# lock factoid (so it can't be used):'lock x'(need o)# unlock factoid:'unlock x'(need o)# nochange factoid:'nochange x'(need o)# disable nochange:'free x'(need o)# alter factoid:'x =~ s/a/b/'# tell factoid:'tell nick x?'## access karma:'karma for x?' - or '<karma> x?'# increase karma:'x++'# decrease karma:'x--'# set karma:'karma set x 1'# reset karma:'karma reset x'############## Please change the details below (to work in all channels leave it blank!)set infoegg_version "v1.2"set infoegg_chans ""set infoegg_flood 0set botsnick "Big_Brother"set wordfile "words.txt"### Don't need to touch the stuff below this linebind pubm - "*\\\!" infoegg_questionbind pubm - "*\\\?" infoegg_questionproc infoegg_question {nick host hand chan text} {global botsnickglobal wordfileglobal infoegg_floodglobal infoegg_chansglobal infoegg_versionif {(([lsearch -exact [string tolower $infoegg_chans] [string tolower $chan]] != -1) || ($infoegg_chans == "")) && ([string match "*\\\?" $text] && [string length $text] != 1 || [string match "*\\\!" $text] && [string length $text] != 1)} {set getquestion_pos [llength $text]incr getquestion_pos -1regsub -all "\\\!" $text "" textset start [lindex $text 0]set getquestion [string trimright [lindex $text $getquestion_pos] ?]set getquestion2 [string trimright [lrange $text 0 $getquestion_pos] ?]if {$getquestion == "me?"} { set getquestion $nick }putlog "!Learn! Question asked by $nick in $chan :: $getquestion : $getquestion2"## get it asking twice, 2nd time with 2 wordsset lquestion $getquestion2if {$lquestion == "infoegg" || $lquestion == "infobot"} {set question "<reply> Infoegg $infoegg_version for eggdrops created by zeen (zeen@zeen.co.uk), www.zeen.co.uk"} elseif {$lquestion == "status"} {#set infoegg_lines 0#set fh [open $wordfile r]#set returnword {}#while {![eof $fh]} { incr infoegg_lines 1 }#close $fhputlog "!Learn! Status";set question "Current Factoids: $infoegg_lines"} else {set question [infoegg_get_word $getquestion2]}if {$question == "" && $getquestion2 != $getquestion} { set lquestion $getquestionset question [infoegg_get_word $getquestion]}if {[lindex $question 0] == "!"} {# Strip nochange ! charset question [string range $question 2 [string length $question]]}regsub -all "\{" $question "" questionregsub -all "\}" $question "" questionregsub -all "\\\$who" $question $nick questionregsub -all "\\\$date" $question "[ctime [unixtime]]" questionregsub -all "\\\$month" $question "[infobot_month]" questionregsub -all "\\\$day" $question "[infobot_day]" questionregsub -all "\\\$animal" $question "[infobot_animal]" questionregsub -all "\\\$nick" $question "[infobot_nick $chan]" question# Random Seedset israndom [lsearch -exact $question "|"]if {$israndom != -1} { set question "[infobot_randq $question]" }#############set sendto $chanif {$start == "tell"} {set nwhom [lsearch -exact $text "tell"] set grabsend [lindex $text [expr $nwhom +1]]if {$grabsend != ""} {set sendto $grabsend}}if {$question != "" && $question != "`" && $question != "~"} {set randno [rand 10]set getstart [lindex $question 0] set getrest [lrange $question 1 end] if {$getstart == "<reply>"} { putserv "PRIVMSG $sendto :$getrest"} elseif {$getstart == "<action>"} { putserv "PRIVMSG $sendto :\001ACTION $getrest\001"} else {if {$randno == "0"} { set randmsg "I heard that $lquestion is $question" }if {$randno == "1"} { set randmsg "$lquestion is $question" }if {$randno == "2"} { set randmsg "It's been said that $lquestion is $question" }if {$randno == "3"} { set randmsg "Someone said that $lquestion is $question" }if {$randno == "4"} { set randmsg "$lquestion is probably $question" }if {$randno == "5"} { set randmsg "I guess $lquestion is $question" }if {$randno == "6"} { set randmsg "Hmmm. I think $lquestion is $question" }if {$randno == "7"} { set randmsg "I'm sure $lquestion is $question" }if {$randno == "8"} { set randmsg "I guess $lquestion is $question" }if {$randno == "9"} { set randmsg "Well, $lquestion is $question" }if {$randno == "10"} { set randmsg "I think $lquestion is $question" }putserv "PRIVMSG $sendto :$randmsg"}} elseif {$start == "$botsnick,"} {set randno [rand 5]if {$randno == "0"} { set randmsg "No idea $nick!" }if {$randno == "1"} { set randmsg "God knows $nick!" }if {$randno == "2"} { set randmsg "Got no idea $nick" }if {$randno == "3"} { set randmsg "I don't know $nick" }if {$randno == "4"} { set randmsg "Really don't know $nick" }if {$randno == "5"} { set randmsg "Fook knows" }putserv "PRIVMSG $sendto :$randmsg"}}}proc infoegg_resetflood {} {global infoegg_floodset infoegg_flood 0}bind pubm - "* is *" infoegg_learnproc infoegg_learn {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" text# [censored] colours, underline and bold! no need, look uglyregsub -all \02 $text "" textregsub -all \031 $text "" textregsub -all \03 $text "" text#############regsub -all "\{" $text "" textregsub -all "\}" $text "" text#############if {[lsearch -exact $text \n] != -1} { # Fix the break return bugputserv "PRIVMSG $chan :String cannot have returns!";} else {set type [lsearch -exact $text "is"]if {$type != "-1"} { set type "is"} {set type "are"}set nwhom [lsearch -exact $text "$type"]set whatis [lrange $text 0 [expr $nwhom - 1]]set whatis2 [lrange $text [expr $nwhom + 1] end]set also [lindex $text [expr $nwhom + 1]]# replace a few thingsregsub -all "my" $whatis2 "$nick's" whatis2regsub -all "i am" $whatis2 "$nick is" whatis2set start [lindex $text 0]set question {}set orginal {}if {$start == "no,"} {set whatis [lrange $whatis 1 end]set orginal [infoegg_get_word $whatis]if {$orginal != "~" && [lindex $orginal 0] != "!"} {infoegg_del_word $whatis}} elseif {$also == "also"} {set question [infoegg_get_word $whatis]if {$question != ""} {infoegg_del_word $whatisset whatis2 "$question and also [lrange $whatis2 1 end]"putlog "!Learn! Also used by $nick"set question {}}} else {set question [infoegg_get_word $whatis]}if {$question == "" && $orginal != "~" && [lindex $orginal 0] != "!" && [string length $whatis] >= 3 && [string length $whatis] <= 15} { infoegg_add_word $whatis $whatis2putlog "!Learn! Word Added: $whatis => $whatis2"if {$start == "no," || $start == "tag,"} { putserv "PRIVMSG $chan :Ok $nick" }} elseif {[string length $whatis] <= 3} {if {$start == "no," || $start == "tag,"} { putserv "PRIVMSG $chan :String too short $nick!" }} elseif {[string length $whatis] >= 15} {if {$start == "no," || $start == "tag,"} { putserv "PRIVMSG $chan :String too long $nick!" }}}}bind pubm - "* \\\=\\\~ *" infoegg_alterproc infoegg_alter {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textregsub -all " s/" $text " " textregsub -all "/" $text " / " textset fseperator [lsearch -exact $text "=~"]set seperator [lsearch -exact $text "\/"]set alterstring [lrange $text 0 [expr $fseperator -1]]set alterwhat [lrange $text 2 [expr $seperator -1]]set alterwith [lrange $text [expr $seperator +1] end]regsub -all " /" $alterwith "" alterwithset question [infoegg_get_word $alterstring]set searchforwhat [lsearch -exact $question $alterwhat]if {$question == "~" || $question == "`"} {putserv "PRIVMSG $chan :This variable has been locked/tagged $nick!"} elseif {[lindex $question 0] == "!"} {putserv "PRIVMSG $chan :This variable has been set as nochange $nick!"} elseif {$question == ""} {putserv "PRIVMSG $chan :There's no variable set in the first place $nick!"} elseif {$searchforwhat == "-1"} {putserv "PRIVMSG $chan :$alterwhat doesn't exist in $alterstring!"} else {regsub -all $alterwhat $question $alterwith resultinfoegg_del_word $alterstringinfoegg_add_word $alterstring $resultputlog "!Learn! Alter: $question /is now/ $result"putserv "PRIVMSG $chan :Ok $nick, $alterstring is altered"}}bind pub o "nochange" infoegg_nochangeproc infoegg_nochange {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "nochange"]set tagwhat [lrange $text [expr $nwhom + 1] end]set answer [infoegg_get_word $tagwhat]if {[lindex $answer 0] == "!"} {putserv "PRIVMSG $chan :This word has already been nochanged $nick"} elseif {$tagwhat != ""} {infoegg_del_word $tagwhatinfoegg_add_word $tagwhat "! $answer"putserv "PRIVMSG $chan :Ok $nick, $tagwhat has been set as nochange"} {putserv "PRIVMSG $chan :Enter a word to be nochanged $nick"}}bind pub o "free" infoegg_freeproc infoegg_free {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "free"]set tagwhat [lrange $text [expr $nwhom + 1] end]set answer [infoegg_get_word $tagwhat]set answer [string range $answer 2 [string length $answer]]if {$tagwhat != ""} {if {$answer == ""} {putserv "PRIVMSG $chan :Nothing to free $nick!"} {infoegg_del_word $tagwhatinfoegg_add_word $tagwhat "$answer"putserv "PRIVMSG $chan :Ok $nick, $tagwhat has been freed"}} {putserv "PRIVMSG $chan :Enter a word to be freed $nick"}}bind pub - "tag" infoegg_tagproc infoegg_tag {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "tag"]set tagwhat [lrange $text [expr $nwhom + 1] end]set answer [infoegg_get_word $tagwhat]if {[lindex $answer 0] == "!"} {putserv "PRIVMSG $chan :This word has been set as nochange $nick"} elseif {$tagwhat != ""} {infoegg_del_word $tagwhatinfoegg_add_word $tagwhat "`"putlog "!Learn! Tagged $tagwhat"putserv "PRIVMSG $chan :Ok $nick, $tagwhat tagged"} {putserv "PRIVMSG $chan :Enter a word to be tagged $nick"}}bind pub o "lock" infoegg_lockproc infoegg_lock {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "lock"]set lockwhat [lrange $text [expr $nwhom + 1] end]set answer [infoegg_get_word $lockwhat]if {[lindex $answer 0] == "!"} {putserv "PRIVMSG $chan :This word has been set as nochange $nick"} elseif {$lockwhat != ""} {infoegg_del_word $lockwhatinfoegg_add_word $lockwhat "~"putlog "!Learn! Locked $lockwhat"putserv "PRIVMSG $chan :Ok $nick, $lockwhat locked"} {putserv "PRIVMSG $chan :Enter a word to be locked $nick"}}bind pub o "unlock" infoegg_unlockproc infoegg_unlock {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "unlock"]set lockwhat [lrange $text [expr $nwhom + 1] end]set answer [infoegg_get_word $lockwhat]if {[lindex $answer 0] == "!"} {putserv "PRIVMSG $chan :This word has been set as nochange $nick"} elseif {$lockwhat != ""} {infoegg_del_word $lockwhatputlog "!Learn! UnLocked $lockwhat"putserv "PRIVMSG $chan :Ok $nick, $lockwhat unlocked"} {putserv "PRIVMSG $chan :Enter a word to be unlocked $nick"}}bind pub o "forget" infoegg_forgetproc infoegg_forget {nick host hand chan text} {global botsnickregsub -all "$botsnick, " $text "" textset nwhom [lsearch -exact $text "forget"]set forgetwhat [lrange $text [expr $nwhom + 1] end]set question [infoegg_get_word $forgetwhat]if {[lindex $question 0] == "!"} {putserv "PRIVMSG $chan :This word has been set as nochange $nick"} elseif {$question == ""} {putserv "PRIVMSG $chan :'$forgetwhat' not found $nick!"} elseif {$forgetwhat != "" || [llength $forgetwhat] > 3} {infoegg_del_word $forgetwhatputserv "PRIVMSG $chan :Ok $nick"} else {putserv "PRIVMSG $chan :$nick set a forget or make it longer!"}}bind pub - "karma" karma_infoproc karma_info {nick host hand chan text} {global botsnickset karma_action [lindex $text 0]regsub -all "\\\?" $text "" textset karma [lindex $text 1]if {$karma == "me"} { set karma $nick }if {$karma == ""} {putserv "PRIVMSG $chan :You have not entered a karma option 'karma for/set/reset'"} elseif {$karma_action == "for"} {set answer [infoegg_get_word "<karma> $karma"]if {$answer == "" || $answer == "0"} {putserv "PRIVMSG $chan :$karma has neutral karma"} {putserv "PRIVMSG $chan :$karma has karma of $answer"}} elseif {$karma_action == "set"} {set karma_setas [lindex $text 2]if {$karma == $nick} {putserv "NOTICE $nick :please don't karma yourself"} elseif {$karma_setas != ""} {putlog "!Karma! $karma been changed to $karma_setas"infoegg_del_word "<karma> $karma"infoegg_add_word "<karma> $karma" $karma_setasputserv "PRIVMSG $chan :$karma has now been set to $karma_setas"} {putserv "PRIVMSG $chan :You have not entered a set value! 'karma set <karma> <new value>'"}} elseif {$karma_action == "reset"} {if {$karma == $nick} {putserv "NOTICE $nick :please don't karma yourself"} else {infoegg_del_word "<karma> $karma"infoegg_add_word "<karma> $karma" ""putserv "PRIVMSG $chan :$karma has been reset"}}}bind pubm - "*\-\-" karma_actionbind pubm - "*\+\+" karma_actionproc karma_action {nick host hand chan text} {global botsnickregsub -all "\\\+\\\+" $text " \+\+" textregsub -all "\\\-\\\-" $text " \-\-" textset karma [lindex $text 0]set question [infoegg_get_word "<karma> $karma"]if {$karma == "me"} { set karma $nick }if {$question == ""} {infoegg_add_word "<karma> $karma" 0putlog "!Karma! $karma set to 0"} elseif {[string tolower $karma] == [string tolower $nick]} { putserv "NOTICE $nick :please don't karma yourself" } else {if {[lsearch -exact $text "\+\+"] == -1} {incr question -1} {incr question 1}infoegg_del_word "<karma> $karma"infoegg_add_word "<karma> $karma" $questionputlog "!Karma! $karma set to $question"}}proc infoegg_add_word {keyword sayback} {global botsnickglobal wordfileset fh [open $wordfile a]puts $fh "$keyword => $sayback"close $fh}proc infoegg_get_word {keyword} {global botsnickglobal wordfileset fh [open $wordfile r]set returnword {}while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }set breaker [lsearch -exact $stdin "=>"]set getkey [lrange $stdin 0 [expr $breaker - 1]] set getresult [lrange $stdin [expr $breaker + 1] end]if {[string tolower $getkey] == [string tolower $keyword]} { set returnword $getresult }}close $fh return $returnword}proc infoegg_del_word {word} {global botsnick global wordfile set fh [open $wordfile r] set return {} set del 0 while {![eof $fh]} {set stdin [string trim [gets $fh]]if {[eof $fh]} { break }if {![regexp -nocase $word $stdin]} {lappend return $stdin} {incr del 1} } close $fh; set fh [open $wordfile w] foreach a $return { puts $fh $a } close $fh return $del}proc infobot_animal {} {set randanimal {"goat""llama""lemming""hamster""penguin""goat""bear""emu""donkey""cat""dog""monkey""eel""monkey faced eel""iguana""hippo""bull""cow""duck""zebra""giraffe"} return [lindex $randanimal [rand [llength $randanimal]]]}proc infobot_day {} {set randday {"Monday""Tuesday""Wednesday""Thursday""Friday""Saturday""Sunday"} return [lindex $randday [rand [llength $randday]]]}proc infobot_nick {chan} { set randn [lindex [split [chanlist "$chan"]] [rand [llength [split [chanlist "$chan"]]]]] return $randn}proc infobot_month {} {set randmonth {"January""February""March""April""May""June""July""August""September""October""November""December"} return [lindex $randmonth [rand [llength $randmonth]]]}proc infobot_randq {text} {regsub -all "\\|" $text "\t" text set randq [lindex [split $text \t] [rand [llength [split $text \t]]]] return $randq}
