;Admin Script (chatspace)
;By T0x|cAv3ng3r
alias crev {
  window -e0 @Chat.Revolution
  nick RandomNickHere
  server peterczechenterprises.poweredbyclear.com 7009
}

on *:CONNECT: {
  if ($server = Chat.Revolution) {
    if ($me != MainNickHere) { nick MainNickHere }
    pass PASSWORD
    oper NAME PASSWORD
    join #SERVICES-DIAGNOSTICS,#Opers,#Lobby
  }
}

alias masskill {
  %mkl = 1
  while (%mkl <= $numtok($1,44)) {
    kill $gettok($1,%mkl,44) $2-
    inc %mkl
  }
}

alias crld {
  if ($1 == off) {
    unset %crld
    globops 4Chat.Revolution flood lock down terminated.
    echo -a 4Chat.Revolution lock down terminated.
  }
  if ($1 == on) {
    set %crld $true
    globops 4Chat.Revolution flood lock down initiated.
    echo -a 4Chat.Revolution lock down initiated.
  }
}

on ^*:SNOTICE:*: {
  if ($server == Chat.Revolution) {
    echo 4 @Chat.Revolution $timestamp $1-
    echo 4 @Chat.Revolution -
    if (client connecting isin $1-) {
      if (!%crld) {
        if (!%chat.r) { set -u8 %chat.r $9 }
        else { set -u8 %chat.r $addtok(%chat.r,$9,44) }
        if ($numtok(%chat.r,44) >= 4) {
          crld on
          masskill %chat.r It is suspected that you are a spambot.
          unset %chat.r
        }
        goto end
      }
      if (%crld) {
        .timerchtr 1 120 crld off
        kill $9 Server is temporarily locked down due to flood. Please try again in a few minutes.
        goto end
      }
    }
  }
  :end
  halt
}