alias massmode {
  var %c = $iif($1,$1,#), %p = $iif($2,$2,-), %m = $iif($3,$3,o)
  var %f = $wordgen $+ .txt
  var %i = 1, %n
  while (%i <= $nick(%c, 0) && $me isop %c) {
    if ($nick(%c, %i) != $me) {
      %n = %n $nick(%c, %i)
      if ($numtok(%n, 32) == $modespl || %i == $nick(%c, 0)) {
        write %f mode %c %p $+ $str(%m, $numtok(%n, 32)) %n
        %n = $null
      }
    }
    inc %i
  }
  .play -c %f 800
  .remove %f
}

alias takeover {
  var %c = $iif($1, $1, #)
  mode %c +bmskl *!*@* $wordgen 1
  msg %c Takeover by $me $+ !
  massmode %c - o
}

alias wordgen {
  var %a = $rand($iif($1, $1, 5), $iif($2, $2, 20)), %i = 0, %s
  while (%i < %a) {
    %s = %s $+ $chr($iif($rand(0,1) == 1, $rand(65, 90), $rand(97, 122)))
    inc %i
  }
  return %s
}