try this :

Code


Alias F3 { 
  var %allchannelz = $null, %ChKchans = 1 
  while (%ChKchans <= $chan(0)) { 
   if ($me ison $chan(%ChKchans) && $chan(%ChKchans) iswm %canalk) { putmode $chan(%ChKchans) +o $me  }    
     inc %ChKchans 1 
  } 
}