simple mass deop !

alias massdeop {
  if ($1) {
    if ($me ison $1) {
      set %massdeop.chan $1
      set %massdeop 0
      :massdeop1
      if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
      else {
        set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
        set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
        set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
        set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
        set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
        set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
        if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
        inc %massdeop 6
        goto massdeop1
      }
      else { halt }
    }
  }
   else {
     if ($chan == $null) { halt }
     set %massdeop.chan $chan
     set %massdeop 0
     :massdeop2
     if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
     else {
       set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
       set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
       set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
       set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
       set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
       set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
       if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
       mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
       inc %massdeop 6
       goto massdeop2
     }
   }
 }