set kahvit {
 "ojentaa höyryävän kupin kuumaa kahvia"
 "päättää olla antamatta tällä kertaa mitään"
 "antaa kuravettä"
 "antaa cappucinon"
 "ojentaa kuumaa mustaa kahvia"
 "ei jaksa keittää kahvia"
 "antaa tulisen espresson"
 "antaa kuuman kahvin"
 "kertoo vitsin, mutta ei anna kahvia"
}
set pillut {
 "antaa pillua"
 "antaa pimpsaa"
 "antaa pinppaa"
 "ei anna pimpsaa"
 "antaa pimpsarasiaa"
 "ei anna ikinä"
 "ei anna koskaan"
 "antaa vasta huomenna"
 "antaa kiimaiselle"
 "antaa reikää"
 "huohottaa vain, muttei valitettavasti anna tällä kertaa mitään"
 "sanoo uuuuh"
 "pastee http://www.jallu.fi/"
 "pastee http://www.free6.com/"
}
set jatskit {
 "antaa jätskin"
 "antaa suklaisen jätskin"
 "antaa vaniljaisen jätskin"
 "antaa mangotötterön"
 "antaa sorbettia"
 "antaa sulaneen jäätelön"
 "ei jaksa antaa jätskiä"
 "päättää olla antamatta tällä kertaa mitään"
 "antaa ruman jäätelön"
 "antaa paskaa käteen"
 "ei nyt halua antaa jätskiä"
 "päättää olla antamatta"
}
set vedet {
 "heittää ämpärillisen vettä"
 "antaa tipan vettä"
 "ei ole janoinen eikä siis anna vettä myöskään"
 "kysyy: Onko krapula? antaa vettä poloiselle"
}
set testit {
 "testaa"
}

bind pub - !kahvi pub:kahveet
bind pub - !jätski pub:ice
bind pub - !jäätelö pub:ice
bind pub - !pilu pub:pillu
bind pub - !pillu pub:pillu
bind pub - !pimpsa pub:pillu
bind pub - !pinppa pub:pillu
bind pub - !pimppa pub:pillu
bind pub - !pussy pub:pillu
bind pub - !vesi pub:vesi
bind pub - !vettä pub:vesi
bind pub - !testi pub:testi

proc pub:kahveet {nick host hand chan $kahvit} {
  global kahvit
    puthelp "PRIVMSG $chan :\001ACTION [lindex $kahvit [rand [llength $kahvit]]] $nick\lle."
}
proc pub:pillu {nick host hand chan $pillut} {
  global pillut
    puthelp "PRIVMSG $chan :\001ACTION [lindex $pillut [rand [llength $pillut]]] $nick\lle."
}
proc pub:ice {nick host hand chan $jatskit} {
  global jatskit
    puthelp "PRIVMSG $chan :\001ACTION [lindex $jatskit [rand [llength $jatskit]]] $nick\lle."
}
proc pub:vesi {nick host hand chan $vedet} {
  global vedet
    puthelp "PRIVMSG $chan :\001ACTION [lindex $vedet [rand [llength $vedet]]] $nick\lle."
}
proc pub:testi {nick host hand chan $testit} {
  global testit
    puthelp "PRIVMSG $chan :\001ACTION [lindex $testit [rand [llength $testit]]]"
}

putlog "Script loaded: \002Antaja 2.2\002 by rolle"