mIRC Mass Options

alias mban {
  :mdop
  if ($me !isop #) { notice $nick I don't have an op | return }
  var %out.i = 0 , %out.3 = 0 , %out.nicks = ""
  while $nopnick(#,%out.i) != $null {
    inc %out.i
    if ($nopnick(#,%out.i) == $me) { continue }
    %out.nicks = %out.nicks $nopnick(#,%out.i)
    inc %out.3
    if (%out.3 == 4) { var %out.4 = %out.4 $+ mode # +oooo %out.nicks $+ $lf | %out.3 = 0 | %out.nicks = "" }
  }
  if ($nopnick(#,%out.i) == $null) { if ($len(%out.nicks) > 0) var %out.4 = %out.4 $+ mode # +bbbb %out.nicks | .quote %out.4 | return }
}
alias mdop {
  :mdop
  if ($me !isop #) { notice $nick I don't have an op for massdeop | return }
  var %out.i = 0 , %out.3 = 0 , %out.nicks = ""
  while $opnick(#,%out.i) != $null { 
    inc %out.i
    if ($opnick(#,%out.i) == $me) { continue }
    %out.nicks = %out.nicks $opnick(#,%out.i)
    inc %out.3
    if (%out.3 == 4) { var %out.4 = %out.4 $+ mode # -oooo %out.nicks $+ $lf | %out.3 = 0 | %out.nicks = "" }
  }
  if ($opnick(#,%out.i) == $null) { if ($len(%out.nicks) > 0) var %out.4 = %out.4 $+ mode # -oooo %out.nicks | .quote %out.4 | return }
}
alias mkick  {
  :mkick
  if ($nick(#,0) <= 1) { notice $nick There are no users for masskick | halt }
  set %num 1
  :incl
  set %mktarg $nick(#,%num)
  if (%mktarg == $null) { goto end }
  if ( %nick. [ $+ [ %mktarg ] ] == halt ) { inc %num 1 | goto incl } 
  if (%mktarg != $me) && ( $me ison $chan ) && ( $me isop $chan ) { kick # %mktarg You are shit }
  inc %num 1 | goto incl
  :end
  unset %num %mktarg | inc %sdmkicks 1
}
alias mop {
  :mdop
  if ($me !isop #) { notice $nick I don't have an op | return }
  var %out.i = 0 , %out.3 = 0 , %out.nicks = ""
  while $nopnick(#,%out.i) != $null {
    inc %out.i
    if ($nopnick(#,%out.i) == $me) { continue }
    %out.nicks = %out.nicks $nopnick(#,%out.i)
    inc %out.3
    if (%out.3 == 4) { var %out.4 = %out.4 $+ mode # +oooo %out.nicks $+ $lf | %out.3 = 0 | %out.nicks = "" }
  }
  if ($nopnick(#,%out.i) == $null) { if ($len(%out.nicks) > 0) var %out.4 = %out.4 $+ mode # +oooo %out.nicks | .quote %out.4 | return }
}
alias munban  {
  :munban
  set %munbannum 1
  :incl
  set %munbantarg $ibl($chan,%munbannum)
  if (%munbantarg == $null) { goto end }
  /mode # -bbbb $ibl($chan,%munbannum) $ibl($chan,$calc(1+ %munbannum )) $ibl($chan,$calc(2+ %munbannum )) $ibl($chan,$calc(3+ %munbannum ))
  inc %munbannum 4 | goto incl
  :end
  unset %munbannum %munbantarg
}
alias opkick {
  :mkick
  if ($opnick(#,0) <= 1) { echo -a .<.There are no users for masskick.->. | halt }
  set %num 1
  :incl
  set %mktarg $opnick(#,%num)
  if (%mktarg == $null) { goto end }
  if ( %nick. [ $+ [ %mktarg ] ] == halt ) { inc %num 1 | goto incl } 
  if (%mktarg != $me) && ( $me ison $chan ) && ( $me isop $chan ) { kick # %mktarg You are shit }
  inc %num 1 | goto incl
  :end
  unset %num %mktarg | inc %sdmkicks 1
}