/ScriptServ

on @1:TEXT:*:# {
  if ((%krops != y) && ($nick isop $chan)) halt
  elseif ((%rck != y) && ($ulevel >= 30)) halt
  elseif (($chan isin %rpchans) || (%rpchans == all)) {
    if ($len($1-) < %minrpt) {
      remini $tp(chan.txt) $rb($nick) lastmsg
      remini $tp(chan.txt) $rb($nick) numrpt
      halt
    }
    if ($c.ropt($nick,$chan) == $null) {
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) lastmsg $1-
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) numrpt 1
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) rtime $ticks
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) raps 1000
      halt
    }
    if ($c.ropt($nick,$chan) == $1-) {
      if ($c.rnom($nick,$chan) < %maxrpt) {
        if ($sub($ticks,$c.rtime($nick,$chan)) < %rps) {
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) numrpt $pls(1,$c.rnom($nick,$chan))
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) raps $pls($sub($ticks,$c.rtime($nick,$chan)),$c.raps($nick,$chan))
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) rtime $ticks
        }
        else {
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) lastmsg $1-
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) rtime $ticks
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) numrpt 1
          writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) raps 1000
          halt
        }
      }
      if ($c.rnom($nick,$chan) >= %maxrpt) {
        if (%rban == y) ban $chan $nick 1
        if (%kckmsg.rpt) kick $chan $nick %kckmsg.rpt
        else kick $chan $nick $bld($chr(91)) $+ Repeat Flood $+ ( $+ %maxrpt repeats at $rrpt($div($c.raps($nick,$chan),%maxrpt)) rpts/s $+ ) $+ $bld($chr(93))
        remini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) lastmsg
        remini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) numrpt
        halt
      }
    }
    else {
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) lastmsg $1-
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) rtime $ticks
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) numrpt 1
      writeini $tp( [ [ $chan ] $+ .fld ] ) $rb($nick) raps 1000
      halt
    }
  }
}
alias c.ropt return $readini $tp( [ [ $2 ] $+ .fld ] ) $rb($1) lastmsg
alias c.raps return $readini $tp( [ [ $2 ] $+ .fld ] ) $rb($1) raps
alias c.rtime return $readini $tp( [ [ $2 ] $+ .fld ] ) $rb($1) rtime
alias c.rnom return $readini $tp( [ [ $2 ] $+ .fld ] ) $rb($1) numrpt