By BigSteve on Jul 19, 2011ok so I recoded this to be vampire
http://www.egghelp.org/tclhtml/3478-4-0-0-1-bar.htm < bartender.tcl
its a bar script for eggdrop updated to vampire drinks
# Choose your trigger for the bot to use ... use example set cmdz "!" or "?"
# But you get the hint.
# You dont need me to take your hand and make one up for you.
# I personally just hated how some coders just forget to put a set your own trigger
# command on some of these
#############################################################################
set cmdz "!"
#############################################################################
bind pub - ${cmdz}bar pub_bar
bind pub - ${cmdz}shot pub_shots
bind pub - ${cmdz}mixed pub_mixed
bind pub - ${cmdz}beer pub_beer
bind pub - ${cmdz}obeer pub_obeer
bind pub - ${cmdz}oshots pub_oshots
bind pub - ${cmdz}omixed pub_omixed
bind pub - ${cmdz}blood pub_blood
####################################################################################################
# NO TOUCHING THIS OR ILL BREAK YOUR FINGERS JUST LEAVE THE CREDITS ALONE.
# I WROTE NOT YOU SO BUGGER OFF
####################################################################################################
proc pub_bar {nick uhost hand channel rest} {
global botnick cmdz
putquick "PRIVMSG $nick :Welcome to $channel, $nick!"
putquick "PRIVMSG $nick :I am $botnick your resident Bartender. Please choose from the list below for items"
putquick "PRIVMSG $nick :----------------------------------------------------------------------------"
putquick "PRIVMSG $nick :${cmdz}bar -=- Showing the list of Features"
putquick "PRIVMSG $nick :${cmdz}beer -=- Nice cold beer"
putquick "PRIVMSG $nick :${cmdz}shot -=- Have a shot of hard liquor"
putquick "PRIVMSG $nick :${cmdz}mixed -=- Mixed drink of your choice"
putquick "PRIVMSG $nick :${cmdz}obeer -=- For the beer thats not listed"
putquick "PRIVMSG $nick :${cmdz}oshot -=- For the Liquor thats not listed"
putquick "PRIVMSG $nick :${cmdz}omixed -=- For a Special Mixed drink of your choice"
putquick "PRIVMSG $nick :${cmdz}blood -=- A list of available blood related drinks."
putquick "PRIVMSG $nick :----------------------------------------------------------------------------"
return 0
}
proc pub_blood {nick uhost hand channel arg} {
global botnick cmdz
putquick "PRIVMSG $nick :Hello, $nick I'm $botnick your Bartender."
putquick "PRIVMSG $nick :Here are some of the blood drinks that I can serve for you!"
putquick "PRIVMSG $nick :----------------------------------------------------------------------------"
putquick "PRIVMSG $nick :${cmdz}ab+ -=- Order a glass of ab+"
putquick "PRIVMSG $nick :${cmdz}ab- -=- Order a glass of ab-"
putquick "PRIVMSG $nick :${cmdz}a- -=- Order a glass of a-"
putquick "PRIVMSG $nick :${cmdz}a+ -=- Order a glass of a+"
putquick "PRIVMSG $nick :${cmdz}b- -=- Order a glass of b-"
putquick "PRIVMSG $nick :${cmdz}b+ -=- Order a glass of b+"
putquick "PRIVMSG $nick :${cmdz}o- -=- Order a glass of o-"
putquick "PRIVMSG $nick :${cmdz}o+ -=- Order a glass of o+"
putquick "PRIVMSG $nick :${cmdz}wyneab+ -=- Order a glass of wyneab+"
putquick "PRIVMSG $nick :${cmdz}wyneab- -=- Order a glass of wyneab-"
putquick "PRIVMSG $nick :${cmdz}wynea- -=- Order a glass of wynea-"
putquick "PRIVMSG $nick :${cmdz}wynea+ -=- Order a glass of wynea+"
putquick "PRIVMSG $nick :${cmdz}wyneb- -=- Order a glass of wyneb-"
putquick "PRIVMSG $nick :${cmdz}wyneb+ -=- Order a glass of wyneb+"
putquick "PRIVMSG $nick :${cmdz}wyneo- -=- Order a glass of wyneo-"
putquick "PRIVMSG $nick :${cmdz}wyneo+ -=- Order a glass of wyneo+"
putquick "PRIVMSG $nick :${cmdz}teaab+ -=- Order a glass of teaab+"
putquick "PRIVMSG $nick :${cmdz}teaab- -=- Order a glass of teaab-"
putquick "PRIVMSG $nick :${cmdz}teaa- -=- Order a cup of teaa-"
putquick "PRIVMSG $nick :${cmdz}teaa+ -=- Order a cup of teaa+"
putquick "PRIVMSG $nick :${cmdz}teab- -=- Order a cup of teab-"
putquick "PRIVMSG $nick :${cmdz}teab+ -=- Order a cup of teab+"
putquick "PRIVMSG $nick :${cmdz}teao- -=- Order a cup of teao-"
putquick "PRIVMSG $nick :${cmdz}teao+ -=- Order a cup of teao+"
putquick "PRIVMSG $nick :${cmdz}coffeeab+ -=- Order a mug of coffeeab+"
putquick "PRIVMSG $nick :${cmdz}coffeeab- -=- Order a mug of coffeeab-"
putquick "PRIVMSG $nick :${cmdz}coffeea- -=- Order a mug of coffeea-"
putquick "PRIVMSG $nick :${cmdz}coffeea+ -=- Order a mug of coffeea+"
putquick "PRIVMSG $nick :${cmdz}coffeeb- -=- Order a mug of coffeeb-"
putquick "PRIVMSG $nick :${cmdz}coffeeb+ -=- Order a mug of coffeeb+"
putquick "PRIVMSG $nick :${cmdz}coffeeo- -=- Order a mug of coffeeo-"
putquick "PRIVMSG $nick :${cmdz}coffeeo+ -=- Order a mug of coffeeo+"
putquick "PRIVMSG $nick ;${cmdz}vbs -=- Order a Vanilla BloodSlide"
putquick "PRIVMSG $nick ;${cmdz}fvanbs -=- Order a Frozen Vanilla BloodSlide"
putquick "PRIVMSG $nick :----------------------------------------------------------------------------"
return 0
}
proc pub_beer {nick uhost hand channel arg} {
global botnick cmdz
putserv "PRIVMSG $channel :Go Hard liquor if you wanna get drunk fast, But Here's your list of selections anywho:"
putserv "PRIVMSG $channel :${cmdz}corona, ${cmdz}Coors, ${cmdz}Icehouse, ${cmdz}Colt45, ${cmdz}Lowenbrau, ${cmdz}budweiser, ${cmdz}busch, ${cmdz}michelob, ${cmdz}fosters, ${cmdz}labattblue, ${cmdz}labattlight, ${cmdz}heineken, ${cmdz}beck, ${cmdz}bud, ${cmdz}fosters"
return 0
}
proc pub_shots {nick uhost hand channel arg} {
global botnick cmdz
putserv "PRIVMSG $channel :Here's your list of selections:"
putserv "PRIVMSG $channel :Available Shots: ${cmdz}rum, ${cmdz}vodka, ${cmdz}tequila, ${cmdz}jagger, ${cmdz}blackbitch, ${cmdz}doublebrit, ${cmdz}boomer, ${cmdz}deadnazi, ${cmdz}china_white, ${cmdz}buttery_nipple, ${cmdz}monkeybrain"
return 0
}
proc pub_mixed {nick uhost hand channel arg} {
global botnick cmdz
putserv "PRIVMSG $channel :Here's your list of selections:"
putserv "PRIVMSG $channel :Available Mixed Drinks: ${cmdz}llicetea, ${cmdz}sexonthebeach, ${cmdz}zombie, ${cmdz}orgasm, ${cmdz}7n7, ${cmdz}kamikaze, ${cmdz}wrussian, ${cmdz}jagerbomb, ${cmdz}hurricane, ${cmdz}Screwdriver, ${cmdz}ginntonic, ${cmdz}capecodder, ${cmdz}pinacolada, ${cmdz}mojito, ${cmdz}fuzzynavel, ${cmdz}vodkanredbull, ${cmdz}Blowjob, ${cmdz}shirleytemple, ${cmdz}bloodymary"
return 0
}
##############Start of the beers#################
proc pub_corona {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a ice-cold Corona with lime!!"
return 0
}
proc pub_coors {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a ice-cold Coors Light."
return 0
}
proc pub_icehouse {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :\001ACTION here you go $theNick. $nick is a cheap bastard and bought you a fresh chilled Icehouse brew. I hope he atleast leaves a tip!"
return
}
putserv "PRIVMSG $channel :\001ACTION sees $nick is a cheap-bastard and gives him a cold Icehouse brew."
putserv "PRIVMSG $channel :You better leave me a tip cheap bastard."
return 0
}
proc pub_colt45 {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "KICK $channel $nick :For gods sake $theNick doesn't want to be a gangsta. Atleast buy him a decent drink!"
return
}
putserv "PRIVMSG $channel :COLT 45?!?!? Get the hell out of here you gangster wanna-be"
putserv "KICK $channel $nick :PFT, $nick wants to be a gangsta"
return 0
}
proc pub_lowenbrau {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a pint of lowenbrau..."
return 0
}
proc pub_budweiser {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a American budweiser!"
return 0
}
proc pub_busch {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a busch beer !"
return 0
}
proc pub_michelob {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a michelob beer !"
return 0
}
proc pub_fosters {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a fosters beer!.. Come on get a real beer"
return 0
}
proc pub_labattblue {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a labatt blue beer!"
return 0
}
proc pub_labattlight {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a labatt light beer!"
return 0
}
proc pub_heineken {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a heineken beer!"
return 0
}
proc pub_beck {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a becks! mmmm lil stronger beer"
return 0
}
proc pub_budlight {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a budlight!"
return 0
}
proc pub_fosters { nick uhost hand channel arg } {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION serves $theNick a 750ml can of Fosters!"
return 0
}
bind pub - ${cmdz}corona pub_corona
bind pub - ${cmdz}coors pub_coors
bind pub - ${cmdz}icehouse pub_icehouse
bind pub - ${cmdz}colt45 pub_colt45
bind pub - ${cmdz}lowenbrau pub_lowenbrau
bind pub - ${cmdz}budweiser pub_budweiser
bind pub - ${cmdz}busch pub_busch
bind pub - ${cmdz}michelob pub_michelob
bind pub - ${cmdz}fosters pub_fosters
bind pub - ${cmdz}labattblue pub_labattblue
bind pub - ${cmdz}labattlight pub_labattlight
bind pub - ${cmdz}heineken pub_heineken
bind pub - ${cmdz}beck pub_beck
bind pub - ${cmdz}bud pub_budlight
bind pub - ${cmdz}fosters pub_fosters
##############End of the beers###################
##############Start of the Shots#################
proc pub_monkeybrain {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Here you go $theNick $nick just bought you a shot of MONKEY BRAINS! muhahahaha"
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot of monkey BRAINS! muhahahaha"
return 0
}
bind pub - ${cmdz}monkeybrain pub_monkeybrain
proc pub_butterynipple {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Coming right up Sir, Here you go $theNick one Buttery Nipple! mmmmMMM GOOD."
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot Buttery Nipple mmmMMM good!"
return 0
}
bind pub - ${cmdz}buttery_nipple pub_butterynipple
proc pub_tequila {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Ut oh $theNick! $nick just bought you a shot of tequila! You know what they say... ONE TEQUILA, TWO TEQUILA, THREE TEQUILA........"
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot of tequila! Clean up the floor after you puke please!"
return 0
}
bind pub - ${cmdz}tequila pub_tequila
proc pub_rum {nick uhost hand channel arg} {
global botnick cmdz
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Here you go $theNick $nick just bought you a shot of rum!"
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot of rum! Yo-Ho Where have all the rum gone??!"
return 0
}
bind pub - ${cmdz}rum pub_rum
proc pub_vodka {nick uhost hand channel arg} {
global botnick cmdz
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Here you go $theNick $nick just bought you a shot of vodka! I hope he/she will also help hold your hair up tonight when your praying to the porcelain god!"
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot of vodka! Good-boy now go out and get yourself a DUI!"
return 0
}
bind pub - ${cmdz}vodka pub_vodka
proc pub_jack {nick uhost hand channel arg} {
global botnick cmdz
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
putserv "PRIVMSG $channel :Here you go $theNick $nick just bought you a shot of Jackdaniels! I hope he/she will also help hold your hair up tonight when your praying to the porcelain god!"
return
}
putserv "PRIVMSG $channel :\001ACTION tosses $nick a shot of Jackdaniels! Good-boy now go out and get yourself a DUI!"
return 0
}
bind pub - ${cmdz}jack pub_jack
##############End of the Shots###################
##############Start of the Mixed Drinks#################
proc pub_longislandicetea {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick nice large glass of Long island ice tea"
return 0
}
bind pub - ${cmdz}llicetea pub_longislandicetea
proc pub_sexonthebeach {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick nice large glass of sex on the beach"
return 0
}
bind pub - ${cmdz}sexonthebeach pub_sexonthebeach
proc pub_zombie {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick nice large glass of zombie"
return 0
}
bind pub - ${cmdz}zombie pub_zombie
proc pub_orgasm {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Orgasm"
return 0
}
bind pub - ${cmdz}orgasm pub_orgasm
proc pub_7n7 {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Seven & Seven"
return 0
}
bind pub - ${cmdz}7n7 pub_7n7
proc pub_WhiteRussian {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of white russian"
return 0
}
bind pub - ${cmdz}wrussian pub_WhiteRussian
proc pub_kamikaze {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of kamikaze"
return 0
}
bind pub - ${cmdz}kamikaze pub_kamikaze
proc pub_jagerbomb {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION Fixes up the most favorite Jager Bomb...."
putserv "PRIVMSG $channel :\001ACTION serves $theNick a Jager Bomb"
return 0
}
bind pub - ${cmdz}jagerbomb pub_jagerbomb
proc pub_rumncoke {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Rum & Coke"
return 0
}
bind pub - ${cmdz}rumncoke pub_rumncoke
proc pub_hurricane {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Hurricane"
return 0
}
bind pub - ${cmdz}hurricane pub_hurricane
proc pub_Screwdriver {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Screwdriver"
return 0
}
bind pub - ${cmdz}Screwdriver pub_Screwdriver
proc pub_ginntonic {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Gin & Tonic"
return 0
}
bind pub - ${cmdz}ginntonic pub_ginntonic
proc pub_capecodder {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the stir in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Cape Codder"
return 0
}
bind pub - ${cmdz}capecodder pub_capecodder
proc pub_pinacolada {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Pina Colada"
return 0
}
bind pub - ${cmdz}pinacolada pub_pinacolada
proc pub_mojito {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Mojito"
return 0
}
bind pub - ${cmdz}mojito pub_mojito
proc pub_fuzzynavel {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of Fuzzy Navel"
return 0
}
bind pub - ${cmdz}fuzzynavel pub_fuzzynavel
proc pub_vodkanredbull {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick glass of vodka & redbull"
return 0
}
bind pub - ${cmdz}vodkanredbull pub_vodkanredbull
proc pub_Blowjob {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick mmmmmm a Blowjob damn..."
return 0
}
bind pub - ${cmdz}Blowjob pub_Blowjob
proc pub_shirleytemple {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick a Shirley Temple"
return 0
}
bind pub - ${cmdz}shirleytemple pub_shirleytemple
proc pub_bloodymary {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick a Bloody Mary"
return 0
}
bind pub - ${cmdz}bloodymary pub_bloodymary
proc pub_minderaser {nick uhost hand channel arg} {
global botnick
set theNick $nick
if { [llength $arg] == 1 } {
set theNick [lindex [split $arg] 0]
}
putserv "PRIVMSG $channel :\001ACTION little of this and a little of that wala the mixed drink....places the umbrella in it"
putserv "PRIVMSG $channel :\001ACTION serves $theNick a Mind Eraser"
return 0
}
bind pub - ${cmdz}minderaser pub_minderaser
##############End of the Mixed Drinks###################
################ make up your own brand here.################################
proc pub_obeer {nick uhost hand channel arg} {
global botnick cmdz
if {$arg == ""} {
putserv "PRIVMSG $nick :Usage: ${cmdz}obeer <brand>"
return 0
}
set brand [lrange $arg 0 end]
putserv "PRIVMSG $channel :\001ACTION pours some $brand from the tap and slides it to $nick\001"
return 0
}
bind pub - ${cmdz}obeer pub_obeer
proc pub_omixed {nick uhost hand channel arg} {
global botnick cmdz
if {$arg == ""} {
putserv "PRIVMSG $nick :Usage: ${cmdz}omixed <brand>"
return 0
}
set brand [lrange $arg 0 end]
putserv "PRIVMSG $channel :\001ACTION Little of this and a little of that wala nice cold $brand for $nick\001"
return 0
}
bind pub - ${cmdz}omixed pub_omixed
proc pub_wine {nick uhost hand channel arg} {
global botnick cmdz
if {$arg == ""} {
putserv "PRIVMSG $nick :Usage: ${cmdz}wine <brand>"
return 0
}
set brand [lrange $arg 0 end]
putserv "PRIVMSG $channel :\001ACTION pours some $brand wine from the puriest year and slides it to $nick\001"
return 0
}
bind pub - ${cmdz}wine pub_wine
proc pub_shooter {nick uhost hand channel arg} {
global botnick cmdz
if {$arg == ""} {
putserv "PRIVMSG $nick :Usage: ${cmdz}oshot <type>"
return 0
}
set brand [lrange $arg 0 end]
putserv "PRIVMSG $channel :\001ACTION pours a $brand into a shotglass and hands it to $nick\001"
return 0
}
bind pub - ${cmdz}oshot pub_shooter
bind pub - ${cmdz}oshooter pub_shooter
####################################################################
################ BLOOD.################################
proc pub_ab+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of ab+ \001"
return 0
}
bind pub - ${cmdz}ab+ pub_ab+
proc pub_ab- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of ab- \001"
return 0
}
bind pub - ${cmdz}ab- pub_ab-
proc pub_a- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of a- \001"
return 0
}
bind pub - ${cmdz}a- pub_a-
proc pub_a+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of a+ \001"
return 0
}
bind pub - ${cmdz}a+ pub_a+
proc pub_b- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of b- \001"
return 0
}
bind pub - ${cmdz}b- pub_b-
proc pub_b+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of b+ \001"
return 0
}
bind pub - ${cmdz}b+ pub_b+
proc pub_o- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of a+ \001"
return 0
}
bind pub - ${cmdz}o- pub_o-
proc pub_o+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of o+ \001"
return 0
}
bind pub - ${cmdz}o+ pub_o+
proc pub_wyneab+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of ab+ \001"
return 0
}
bind pub - ${cmdz}wyneab+ pub_wyneab+
proc pub_wyneab- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of ab- \001"
return 0
}
bind pub - ${cmdz}wyneab- pub_wyneab-
proc pub_wynea- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of a- \001"
return 0
}
bind pub - ${cmdz}wynea- pub_wynea-
proc pub_wynea+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of a+ \001"
return 0
}
bind pub - ${cmdz}wynea+ pub_wynea+
proc pub_wyneb- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of b- \001"
return 0
}
bind pub - ${cmdz}wyneb- pub_wyneb-
proc pub_wyneb+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of b+ \001"
return 0
}
bind pub - ${cmdz}wyneb+ pub_wyneb+
proc pub_wyneo- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of o- \001"
return 0
}
bind pub - ${cmdz}wyneo- pub_wyneo-
proc pub_wyneo+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a goblet of wyne with just the right amount of o+ \001"
return 0
}
bind pub - ${cmdz}wyneo+ pub_wyneo+
proc pub_teaab+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of ab+ \001"
return 0
}
bind pub - ${cmdz}teaab+ pub_teaab+
proc pub_teaab- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of ab- \001"
return 0
}
bind pub - ${cmdz}teaab- pub_teaab-
proc pub_teaa- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of a- \001"
return 0
}
bind pub - ${cmdz}teaa- pub_teaa-
proc pub_teaa+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of a+ \001"
return 0
}
bind pub - ${cmdz}teaa+ pub_teaa+
proc pub_teab- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of b- \001"
return 0
}
bind pub - ${cmdz}teab- pub_teab-
proc pub_teab+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of b+ \001"
return 0
}
bind pub - ${cmdz}teab+ pub_teab+
proc pub_teao- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of o- \001"
return 0
}
bind pub - ${cmdz}teao- pub_teao-
proc pub_teao+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a cup of tea with just the right amount of o+ \001"
return 0
}
bind pub - ${cmdz}teao+ pub_teao+
proc pub_coffeeab+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of ab+ \001"
return 0
}
bind pub - ${cmdz}coffeeab+ pub_coffeeab+
proc pub_coffeeab- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of ab- \001"
return 0
}
bind pub - ${cmdz}coffeeab- pub_coffeeab-
proc pub_coffeea- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of a- \001"
return 0
}
bind pub - ${cmdz}coffeea- pub_coffeea-
proc pub_coffeea+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of a+ \001"
return 0
}
bind pub - ${cmdz}coffeea+ pub_coffeea+
proc pub_coffeeb- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of b- \001"
return 0
}
bind pub - ${cmdz}coffeeb- pub_coffeeb-
proc pub_coffeeb+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of b+ \001"
return 0
}
bind pub - ${cmdz}coffeeb+ pub_coffeeb+
proc pub_coffeeo- {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of o- \001"
return 0
}
bind pub - ${cmdz}coffeeo- pub_coffeeo-
proc pub_coffeeo+ {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION hands $nick a mug of coffee with just the right amount of o+ \001"
return 0
}
bind pub - ${cmdz}coffeeo+ pub_coffeeo+
proc pub_vbs {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION mixes 2oz of vodka 1oz of baileys 1oz of khalua a dash of vanilla essence and adds in 5 drops of blood and hands it to $nick \001"
return 0
}
bind pub - ${cmdz}vbs pub_vbs
proc pub_fvanbs {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :\001ACTION mixes 2oz of vodka 1oz of baileys 1oz of khalua a dash of vanilla essence thowing it all into the blender with some vanilla icecream and adds in 5 drops of blood and hands it to $nick \001"
return 0
}
bind pub - ${cmdz}fvanbs pub_fvanbs
####################################################################
################ misc.################################
#### Set this to your botnick ######
set ircnick "Eragon" ;# this is your bots nick on IRC
####################################################################
putlog "Bar script by Cayne Loaded...."
