on da screen

how can i show all rooms which i am in in the room that i wrote the command in it on da screen?

on ^*:TEXT:*!chan*:#:{ 
 var %a = $chan(0), %b = 0 
 while (%a > 0) { 
   if ($me isop $chan(%a)) inc %b $nick($chan(%a),0) 
   dec %a 
 } 
 msg $chan I am on $chan(0) channels and there are %b people in these channels
}

thnx mail but i am in many rooms but 'ts saying

I am on 1 channels and there are 10 people in these channels

not all chan or the name of that rooms

alias allchans {
 var %a = 1
 while (%a <= $scid(0)) {
   scid $scon(%a)
   var %rooms = %rooms $chan(1)
   inc %a
 }
 scid $activecid
 msg $chan(1) i am in these rooms: %rooms
}

hope that's what you're after

thnx Nimbus03