Coders-IRC

; Ops & NoOps v1.0 
; /ops (ops you on all channels) -and- /noops (deops you on all channels)

alias method { return $iif($network == UnderNet,.msg X op,.cs op) }
alias ops {
  var %a = 1, %b
  while ($scon(%a)) {
    scid $v1 | var %x = 1, %y
    while ($chan(%x)) { %y = $v1 | if ($me !isop %y) { $method %y $me } | inc %x }
    inc %a
  }
  scid -r
}
alias noops {
  var %a = 1, %b
  while ($scon(%a)) {
    scid $v1 | var %x = 1, %y
    while ($chan(%x)) { %y = $v1 | if ($me isop %y) { mode %y -o $me } | inc %x }
    inc %a
  }
  scid -r
}