Posted to tcl by mjanssen at Tue Apr 24 22:44:07 GMT 2007view raw

  1. bind pub - !beer beer
  2.  
  3. proc beer {nick host hand chan arg} {
  4. set response "\001ACTION $nick offers a |_P to [string trim $arg]\001"
  5. puthelp "PRIVMSG $chan :$response"
  6. }