Posted to tcl by mjanssen at Wed Jan 12 19:22:40 GMT 2011view raw

  1. proc hello {chan nick} {
  2. putquick "PRIVMSG $chan :hallo $nick"
  3. }
  4.  
  5. bind join - * jmsg
  6. proc jmsg {nick host hand chan text} {
  7. after 60000 [list hello $chan $nick]
  8. }