# Drunkscript Version 1.0
#
# German:
# Ein Bayrischer BarBot der mit Getr�ken aller Art lockt.
# # !drinks gibt eine �ersicht und mann kann halt dann
# die drinks ordern mit !name.
#
# English:
# A bavarien Barbot with all kinds of drinks.
# !drings shows all drinks and you can order them with
# !name
#
# error msg to: hippy@ipes-ent.com
# Support: www.ipes-ent.com/forums
#
################################################################################
#############################################
#Do not change anything above this lines if #
#you do not know what you are doing #
#############################################
proc putnot {nick msg} { putserv "NOTICE $nick :$msg" }
proc putchan {chan msg} { putserv "PRIVMSG $chan :$msg" }
#
# Getraenke
#
proc pub_!bar {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION hat Wasser, Cola, Fanta, Sprite, Wodka, Bier, Orangen-Saft, RedBull, Milch, Sekt, Whiskey und Kaffee" ;return 0}
}
bind pub - !drinks pub_!drinks
proc pub_!wasser {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION rennt zum Wasserhahn und fuellt ein Glas mit Wasser. Dann gibt er es $nick\001" ;return 0}
}
bind pub - !wasser pub_!wasser
proc pub_!cola {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION macht eine Flasche Cola auf, die er $nick gibt\001" ;return 0}
}
bind pub - !cola pub_!cola
proc pub_!fanta {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION rennt zum Supermarkt, um eine Flasche Fanta fuer $nick zu holen\001" ;return 0}
}
bind pub - !fanta pub_!fanta
proc pub_!sprite {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION holt eine Flasche Sprite aus dem Kuehlschrank und reicht sie $nick\001" ;return 0}
}
bind pub - !sprite pub_!sprite
proc pub_!wodka {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION beschafft sich eine Flasche Wodka aus Russland und gibt sie $nick\001" ;return 0}
}
bind pub - !wodka pub_!wodka
proc pub_!bier {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION holt ein Bier aus der hauseigenen Brauerei, giesst es in ein Glas ein und schiebt es zu $nick\001" ;return 0}
}
bind pub - !bier pub_!bier
proc pub_!osaft {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION presst eine Orange aus und faengt den Saft in einem Glas auf, welches er $nick ueberreicht\001" ;return 0}
}
bind pub - !osaft pub_!osaft
proc pub_!redbull {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION bricht in Chuck Norris' Haus ein, wartet bis dieser pinkelt und faengt die Fluessigkeit in einer Blechdose auf. Dann rennt er zurueck und gibt die Dose $nick\001" ;return 0}
}
bind pub - !redbull pub_!redbull
proc pub_!milch {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION melkt eine Kuh, kippt die Milch in ein Glas und gibt dieses $nick\001" ;return 0}
}
bind pub - !milch pub_!milch
proc pub_!sekt {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION laesst die Korken knallen und schenkt ein Glas fuer $nick ein \001" ;return 0}
}
bind pub - !sekt pub_!sekt
proc pub_!whiskey {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION schenkt $nick einfach mal so eine Flasche Whiskey\001" ;return 0}
}
bind pub - !whiskey pub_!whiskey
proc pub_!kaffee {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION macht $nick einen extrastarken Kaffee\001" ;return 0}
}
bind pub - !kaffee pub_!kaffee
#
# Nahrungsmittel
#
proc pub_!mampf {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION hat: Pizza, Doener, Bratwurst, Pommes, Hamburger, Kekse, Eis, Mentos und Gummibaerchen" ;return 0}
}
bind pub - !drinks pub_!drinks
proc pub_!pizza {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION macht $nick eine Pizza nach seinem Geschmack\001" ;return 0}
}
bind pub - !pizza pub_!pizza
proc pub_!doener {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION rennt zur naechsten Doenerbude und kauft $nick einen Doener\001" ;return 0}
}
bind pub - !doener pub_!doener
proc pub_!bratwurst {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION braet $nick eine Bratwurst auf dem Bratwurstbratgeraet\001" ;return 0}
}
bind pub - !bratwurst pub_!bratwurst
proc pub_!pommes {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION scheisst ein paar Fritten in die Friteuse und wartet ein paar Minuten, um sie dann $nick zu reichen\001" ;return 0}
}
bind pub - !pommes pub_!pommes
proc pub_!hamburger {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION macht $nick einen Hamburger\001" ;return 0}
}
bind pub - !hamburger pub_!hamburger
proc pub_!kekse {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION holt aus dem Nichts eine Packung Kekse fuer $nick\001" ;return 0}
}
bind pub - !kekse pub_!kekse
proc pub_!eis {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION backt $nick ein Eis\001" ;return 0}
}
bind pub - !eis pub_!eis
proc pub_!gummibaerchen {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION kauft fuer $nick eine Tuere Gummibaerchen\001" ;return 0}
}
bind pub - !gummibaerchen pub_!gummibaerchen
proc pub_!mentos {nick uhost hand chan rest} {
global botnick
set cmd [string tolower [lindex $rest 0]]
if {$cmd == ""} {
putchan $chan "\001ACTION schickt $nick eine Packung Mentos\001" ;return 0}
}
bind pub - !mentos pub_!mentos
#
# Interessantes
#
proc pub_!hl {nick uhost hand chan text} {
global botnick
putserv "PRIVMSG $chan :$text"
putserv "PRIVMSG $chan :$text "
putserv "PRIVMSG $chan :$text "
putserv "PRIVMSG $chan :$text "
putserv "PRIVMSG $chan :$text "
putserv "PRIVMSG $chan :$text "
}
bind pub - !hl pub_!hl
proc pub_!slap {nick uhost hand chan text} {
global botnick
putchan $chan "\001ACTION wirft eine ganze Packung Mentos in eine Flasche Cola-light, schuettelt kraeftig und wirft die detonierende Flasche auf $text!\001"
putchan $chan "*b00m*. $text hat diesen Anschlag nur mit schweren Verletzungen ueberlebt, aber er rappelt sich auf und kaempft weiter."
}
bind pub - !slap pub_!slap
proc pub_!wayne {nick uhost hand chan text} {
global botnick
putchan $chan "\002 $text: selbst-wayne@nteressierts.net\002"
}
bind pub - !wayne pub_!wayne
proc pub_!owned {nick uhost hand chan text} {
global botnick
putchan $chan "\002 $text was \0034,8PWNED\003 by $nick!\002"
}
bind pub - !owned pub_!owned
proc pub_!keks {nick uhost hand chan text} {
global botnick
putchan $chan "\001ACTION gibt $text einen Keks von $nick!\001"
}
bind pub - !keks pub_!keks
proc pub_!metal {nick uhost hand chan text} {
global botnick
putchan $chan "\002 $text IST KRIEG!\002"
}
bind pub - !metal pub_!metal
proc pub_!spam {nick uhost hand chan text} {
global botnick
putchan $chan "!moep"
}
bind pub - !spam pub_!spam
putlog "mentos started"