snack.tcl

####################################################
#    Botsnacks v1.0                                #
#  by oldsoldier <oldsoldier@gshellz.org>          #
#        18 Feb 2011                               #
####################################################
# Description:                                     #
# botsnacks! people can feed the bot a snack       #
#                                                  #
####################################################
# Setup:                                           #
# extract to your eggdrop/scripts directory        #
# add this to your conf:                           #
# source scripts/botsnack.tcl                      #
####################################################
# Configuration:                                   #
# via DCC:                                         #
# .chanset <#channel> +bsnack    - enables         #
# .chanset <#channel> -bsnack    - disables        #
####################################################
# Usage:                                           #
# anyone can feed the bot by typing                #
# .botsnack                                        #
####################################################
# define channel flag to enable quotes.
setudef flag bsnack
# define trigger
#you can change the triggers to what you want

bind pub -|- .snack  pub_snacks
#set replies array
# one per line format is "blah blah blah"
set randreply {
"Domo arigato"
"Sweeet! ^_-"
"BUUUURP! MOAR MOAR!"
"Slimy, yet satisfying"
"Thanks!"
"Merci!! ^_^"
"Nice!"
"Om nom nom @_@"
"No thanks, I'm full"
"Keep that to yourself ..."
"Dammit, not again"
"I'm speechless -_-"
"(╯آ°â–،آ°)╯︵"
"Yukk!!!"
"ewwwww"
"please!!"
"how do you know it's my favourite :)"
"you eat it"
"give me some more"
"feed me"

}

proc pub_snacks {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randreply
 set botsays [lindex $randreply [rand [llength $randreply]]]
 if {[channel get $chan bsnack]} {
 putchan $chan "$nick is that a $arg?!! $botsays"}
 }


putlog "botsnacks v1.0 loaded"