on *:TEXT:!channels:#: { var %c = 1 while ($chan(%c)) { var %chans = %chans $+ $iif(%c > 1, $chr(44)) $chan(%c) /inc %c } /msg $chan Active Channels: %chans }