Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ####################################################
- # 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"
- }
- 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"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement