Posted to tcl by mjanssen at Tue Apr 24 22:27:52 GMT 2007view pretty
bind pub - !test posts
proc posts {nick host hand chan arg} {
set response "\001ACTION $arg is offered a beer by $nick\001"
puthelp "PRIVMSG $chan :$response"
}
bind pub - !test posts
proc posts {nick host hand chan arg} {
set response "\001ACTION $arg is offered a beer by $nick\001"
puthelp "PRIVMSG $chan :$response"
}