Untitled

alias opscan {
  if (!$chan) { echo -a $+($chr(3),03,You can't perform an op scan if you aren't in a channel!,$chr(3)) | HALT }
  var %a Katlyn Fx IEP Funman Tim Chrono Tarball Gic Slaap Slaapkamer Strider3282 Pancakes Cursive Sara Awong Scott Allen  
  var %d Patje Sphinx Steve| Karl Salty |Luke| Xotick FoSho Remy Urza [-Home-] Patje Hamish Timmy Jakerz |Sean Scott| Hutchins Scotty Kol
  var %b 1
  while (%b < $nick(#,0)) {
    if ($istok(%a,$nick(#,%b),32) || *127.0.0.1* iswm $address($nick(#,%b),5)) {
      var %c %c $nick(#,%b)
      inc %b
    }
    if ($istok(%d,$nick(#,%b),32) || *.support.SwiftIRC.net iswm $address($nick(#,%b),5)) {
      var %e %e $nick(#,%b)
    }
    inc %b
  }
  if (%c != $null || %e != $null) {
    tokenize 32 $iif(%c, %c) $iif(%e, %e)
    echo -a 5There are $0 opers in $+($chan,.)
    $iif(%c, tokenize 32 %c)
    $iif(%c, echo -a $+($chr(3),05,$0 are ircops - $1-,$chr(3)))
    $iif(%e, tokenize 32 %e)
    $iif(%e, echo -a $+($chr(3),05,$0 are helpops - $1-,$chr(3)))
  }
  else {
    echo -a $+($chr(3),03,There are no opers in $chan,$chr(3))
  }
}