Posted to tcl by mjanssen at Tue Apr 24 22:27:52 GMT 2007view raw

  1. bind pub - !test posts
  2.  
  3. proc posts {nick host hand chan arg} {
  4. set response "\001ACTION $arg is offered a beer by $nick\001"
  5. puthelp "PRIVMSG $chan :$response"
  6. }