Miscellany

on @*:join:#:{
  hinc $+(-mu,$iif($hget(jflood,join).unset,$ifmatch,2)) jflood join
  if (!$read(clones.txt, w ,$wildsite)) { write clones.txt $wildsite | .timerha 1 4 .remove clones.txt }
  if ($hget(jflood,join) >= 4) && (%clones.st != ON) && ($chan != #IGOnline) {
    .timerha off
    mode # +mr | set %clones.st ON | set %clones.ha ON | .timerblaff 1 6 unset %clones.*
    set %bot.chan #
    .timerdav 1 2 doban
  }
}
alias doban {
  var %x = 1
  while ($read(clones.txt,%x)) {
    var %y = %y $gettok($v1,1-,32)
    if ($numtok(%y,32) == $modespl) { .timer 1 $calc(%x -10) mode %bot.chan $+(+,$str(b,$modespl)) %y | var %y }
    inc %x
  }
  if (%y < $numtok(%y,32)) { .timer 1 $calc(%x -10) mode %bot.chan $+(+,$str(b,$modespl)) %y }
  .timer 1 25 dokick %bot.chan
}
alias dokick {
  var %i = 1
  while ($ibl($1,%i)) {
    var %y $v1
    if ($ial(%y).nick ison $1) { .timer 1 $calc(%i *2) kick $1 $ial(%y).nick Reason: Clons NOT allowed here. $eval(%Nkicks,10) }
    inc %i
  }
  if ($ibl($1,45)) { .timer 1 $calc(%i *2 +7) mode $1 -m+M }
  else { .timer 1 $calc(%i *2 +7) mode $1 -mr }
}