/ScriptServ

j join $1-
k if ($chan($active) == $active) && ($me isop $active) { kick $active $1- }
kb if ($chan($active) == $active) && ($me isop $active) { mode $active +b $address($1,3) | kick $active $1- }
mass {
  var %r , %t = 1 , %m , %i = 1 , %n , %s = +
  if ($chan($1) == $1) { %r = $1 | tokenize 32 $2- } 
  elseif ($chan($active)) { %r = $active }
  else { echo -a * error /mass [#channel] <modes> [matchtext] | halt } 
  while (%t <= $len($1)) {
    if ($mid($1,%t,1) == +) || ($mid($1,%t,1) == -) { %s = $mid($1,%t,1) }
    elseif (%s) {
      var %m = $mid($1,%t,1) , %i = 1
      while (%i <= $iif(%s == +,$nick(%r,0,a,%m),$nick(%r,0,%m))) { 
        if ($2) { if ($2 iswm $iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m))) && ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)) != $me) { var %n = $addtok(%n,$iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)),32) } }
        else { if ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m))) && ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)) != $me) { var %n = $addtok(%n,$iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)),32) } }
        if ($numtok(%n,32) == $modespl) { mode %r %s $+ $str(%m,$numtok(%n,32)) %n | %n = "" } 
        inc %i 
      }
      if (%n) { mode %r %s $+ $str(%m,$numtok(%n,32)) %n | %n = "" }
    }
    inc %t
  }
}
cstatus {
  if (o isin $usermode) { return true }
  var %i = 1 , %c
  while (%i <= $len($1)) { if ($mid($1,%i,1) isin $nick($2,$me).pnick) { return $true } | inc %i }
  return $false 
}
short { return $iif($len($1) > $2,$left($1,$calc($2 - 3)) $+ ...,$1) }
wchan { if ($1 isnum) { return $chan($1) : who $chan($1) } }
nchan { if ($1 isnum) { return $chan($1) : names $chan($1) } }
rev { var %a = 1,%o | while (%a <= $len($1-)) { %o = $+($mid($1-,%a,1),%o) | inc %a } | return %o }
race { var %' 1,%" $ticks | While %' <= $1 { inc %' } | say race! $+ $bytes($1,b) ( $+ $calc(($ticks - %") /1000) $+ s) }