; Syntax: $flpr(id,nick/hostmask,max triggers in time,time)
; Return: $true or $false
;
; Standard examples
;
; on *:text:!beer:#chan:if ($flpr(beer,$address($nick,3),2,3600)) describe $chan gives $nick a beer
;
; Result: allows the person to trigger the give beer thing twice per hour from his hostname
;
; WARNING: Currently doesn't check for invalid input
;

alias flpr {
  if (!$hget(floodprotection)) {
    hmake floodprotection 150
  }

  var %entry $+($1,/,$2)
  var %time = $hget(floodprotection,%entry)
  var %step = $4 / $3

  if (%time) {
    if (%time < $calc($ctime - $4)) {
      hadd floodprotection %entry $calc($ctime - $4 + 2 * %step)
      return $true
    }
    if (%time >= $calc($ctime - $4) && %time < $ctime) {
      hadd floodprotection %entry $calc(%time + %step)
      return $true
    }
    return $false
  }
  else {
    hadd floodprotection %entry $calc($ctime - $4 + 2 * %step)
    return $true
  }
}