Posted to tcl by rix at Thu Mar 01 13:53:56 GMT 2012view raw

  1. set reg_timer [utimer 190 lov_begin]
  2.  
  3. proc lov_go {nick uhost hand chan arg} {
  4. global reg_timer game_on
  5. putlog [utimers]
  6. if {$game_on} {
  7. killutimer $reg_timer
  8. set reg_timer [utimer 30 lov_begin]
  9. putquick "PRIVMSG #lov :## Играта ще започне след 30 секунди, бързо влезте с !in"
  10. }
  11. }
  12. # this time the error occurs 30 seconds after lov_go is triggered..so the new #timer cannot be killed?