Posted to tcl by mjanssen at Tue Apr 24 22:44:07 GMT 2007view pretty
bind pub - !beer beer
proc beer {nick host hand chan arg} {
set response "\001ACTION $nick offers a |_P to [string trim $arg]\001"
puthelp "PRIVMSG $chan :$response"
}
bind pub - !beer beer
proc beer {nick host hand chan arg} {
set response "\001ACTION $nick offers a |_P to [string trim $arg]\001"
puthelp "PRIVMSG $chan :$response"
}