Code: Select all
if {![info exists timecheckn]} { set timecheckn [timer 5 checkn] }
proc checkn {} {
global cycle_time
if {![botonchan #chan]} {return 0}
set nusers [llength [chanlist #chan]]
if {$nusers < 10} {
if {$cycle_time == 360} {return 0}
set cycle_time 360
putlog "Cycle time set to \002360\002 seconds, \[$nusers users < 10\]"
} elseif {$nusers < 40} {
if {$cycle_time == 152} {return 0}
set cycle_time 152
putlog "Cycle time set to \002152\002 seconds, \[$nusers users < 40\]"
} elseif {$nusers < 100} {
if {$cycle_time == 97} {return 0}
set cycle_time 97
putlog "Cycle time set to \00297\002 seconds, \[$nusers users < 100\]"
} elseif {$nusers < 120} {
if {$cycle_time == 87} {return 0}
set cycle_time 87
putlog "Cycle time set to \00287\002 seconds, \[$nusers users < 120\]"
} elseif {$nusers < 150} {
if {$cycle_time == 69} {return 0}
set cycle_time 63
putlog "Cycle time set to \00263\002 seconds, \[$nusers users < 150\]"
} elseif {$nusers > 180} {
if {$cycle_time == 63} {return 0}
set cycle_time 63
putlog "Cycle time set to \00263\002 seconds, \[$nusers users > 180\]"
}
set timecheckn [timer 5 checkn]
}
.tcl info exists timecheckn
[18:09] (Sentinel^) Tcl: 1
.tcl timers
[18:10] (Sentinel^) Tcl: