# 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"