ToM

bind pub - !vodka servir
bind pub - !whisky servir
proc servir { nick userhost hand chan text } {

    switch - "$::lastbind" {
        "!vodka"    { set message "salaud de Russe" ;  set boisson "Zubrowska"    }
        "!whisky"   { set message "salaud de Yankee" ; set boisson "Jack Daniels" }
    }

    putserv "privmsg $chan :Tiens, $nick, un verre de $boisson !"

}