You probably want this, as you metioned a bot command:

Code:
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
}


type !channels

-KingTomato