;Simply: /operscan <chan> or no channel for active.
 
alias operscan { 
  if (!$1 && $active !ischan) || ($isid) { return }
  if (%list_opers) { unset %list_opers }
  tokenize 32 $iif($1,$1,$active)  
  echo $color(info) -ta * IRC Operator scan of $+($1,...)
  .enable #operscan
  who $1
}
alias -l encap { return $iif($isid,$+($chr(40),$round($calc(($1 / $nick($2,0)) * 100),2),%,$chr(41))) }
#operscan off
raw 352:*:{ 
  if (* isin $7) { echo $color(info2) -ta * $+($chr(2),$6,$chr(2)) is an IRC Operator | %list_opers = %list_opers $6 }
  halt
}
raw 315:*:{ 
  var %a = $numtok(%list_opers,32), %q = IRC $iif(%a == 1,Operator,Operators)
  echo $color(info) -ta * %a %q found on $+($2,.) $2 is $+(%a,/,$nick($2,0)) $encap(%a,$2) $+(%q,.)
  unset %list_opers
  .disable #operscan
  halt
}
#operscan end