help me with this tlc

[ZoneISP]

hi guys i wonder if u can make for me small tcl only want to add some thing like !cycle in puplic

set cycletime 4
timer $cycletime cycle
proc cycle {} {
global cycletime
foreach c [channels] {
putserv "PART $c"; putserv "JOIN $c"; timer $cycletime cycle
}
}

so when i do !cycle the bot do cycle all channels

[greenbear]

Code: Select all

bind pub n !cycle cycle
proc cycle {n u h c a} {
 foreach ch [channels] {
  putserv "PART $ch"
 }
}