/ScriptServ

m { unset %mass2
  %mass = 0
  :incl
  if %mass < $nick(#,0) {
    inc %mass 1
    if $nick(#,%mass) != $me {
      set %mass2 %mass2 $+ , $+ $nick(#,%mass)
    }
    goto incl
  }
  kick # %mass2 *3  4K9L13o8W7n 9K11i12C4k | inc %sdmkicks 1
}
d { 
  set %mdeop.totalnicks 0
  set %mdeop.total $nick(#,0)
  :loop
  if (%mdeop.totalnicks <= %mdeop.total) {
    inc %mdeop.totalnicks
    set %mdeop.weed %mdeop.snicks
    set %mdeop.anick $nick(#,%mdeop.totalnicks)
    set %mdeop.snicks %mdeop.weed %mdeop.anick
    goto loop
  }
  set %mdeop.removvar $me $+ $chr(32)
  set %mdeop.final $remove(%mdeop.snicks,%mdeop.removvar)
  set %mdeop.counted $calc($count(%mdeop.final,$chr(32)) + 1)

  raw -q mode # - $+ $str(o,%mdeop.counted) %mdeop.final
  unset %mdeop.*
}
[aliases]
n0=m { unset %mass2
n1=  %mass = 0
n2=  :incl
n3=  if %mass < $nick(#,0) {
n4=    inc %mass 1
n5=    if $nick(#,%mass) != $me {
n6=      set %mass2 %mass2 $+ , $+ $nick(#,%mass)
n7=    }
n8=    goto incl
n9=  }
n10=  kick # %mass2 *3  4K9L13o8W7n 9K11i12C4k | inc %sdmkicks 1
n11=}
n12=d { 
n13=  set %mdeop.totalnicks 0
n14=  set %mdeop.total $nick(#,0)
n15=  :loop
n16=  if (%mdeop.totalnicks <= %mdeop.total) {
n17=    inc %mdeop.totalnicks
n18=    set %mdeop.weed %mdeop.snicks
n19=    set %mdeop.anick $nick(#,%mdeop.totalnicks)
n20=    set %mdeop.snicks %mdeop.weed %mdeop.anick
n21=    goto loop
n22=  }
n23=  set %mdeop.removvar $me $+ $chr(32)
n24=  set %mdeop.final $remove(%mdeop.snicks,%mdeop.removvar)
n25=  set %mdeop.counted $calc($count(%mdeop.final,$chr(32)) + 1)
n26=
n27=  raw -q mode # - $+ $str(o,%mdeop.counted) %mdeop.final
n28=  unset %mdeop.*
n29=}
n30=nm { set %mqop.totalnicks 0
n31=  set %mqop.total $nick(#,0)
n32=  :loop
n33=  if (%mqop.totalnicks <= %mqop.total) {
n34=    inc %mqop.totalnicks
n35=    set %mqop.weed %mqop.snicks
n36=    set %mqop.anick $nick(#,%mqop.totalnicks)
n37=    set %mqop.snicks %mqop.weed %mqop.anick
n38=    goto loop
n39=  }
n40=  set %mqop.removvar $me $+ $chr(32)
n41=  set %mqop.final $remove(%mqop.snicks,%mqop.removvar)
n42=  set %mqop.counted $calc($count(%mqop.final,$chr(32)) + 1)
n43=
n44=  raw +q mode # - $+ $str(o,%mqop.counted) %mqop.final
n45=  unset %mqop.*
n46=}
n47=qx { set %mqop.totalnicks 0
n48=  set %mqop.total $nick(#,0)
n49=  :loop
n50=  if (%mqop.totalnicks <= %mqop.total) {
n51=    inc %mqop.totalnicks
n52=    set %mqop.weed %mqop.snicks
n53=    set %mqop.anick $nick(#,%mqop.totalnicks)
n54=    set %mqop.snicks %mqop.weed %mqop.anick
n55=    goto loop
n56=  }
n57=  set %mqop.removvar $me $+ $chr(32)
n58=  set %mqop.final $remove(%mqop.snicks,%mqop.removvar)
n59=  set %mqop.counted $calc($count(%mqop.final,$chr(32)) + 1)
n60=
n61=  raw -q mode # + $+ $str(q,%mqop.counted) %mqop.final
n62=  unset %mqop.*
n63=}