bind pubm -|- "!slap*" slap;
proc slap {nick host hand chan arg} {
putserv "PRIVMSG $chan :/me slaps $arg around with a large trout.";
}