Posted to tcl by wan at Sun Nov 04 13:02:05 GMT 2007view raw

  1. proc time_speaks {} {
  2. global botnick speaks
  3. set speaks(rmsg) [lindex $speaks(msg) [rand [llength $speaks(msg)]]]
  4. foreach channel $speaks(chans) {
  5. putquick "PRIVMSG $chan :$speaks(rmsg)"
  6. }
  7. timer $speaks(time) time_speaks
  8. return 1
  9. }