Flood Protection for Dune2K v1.4

alias -l chans { return #channel }
alias -l flood_seconds { return 6 }
alias -l flood_times { return 3 }

ON @*:TEXT:*:$($chans): {
  inc $+(-eu,$flood_seconds) $+(%,flood,_,$nick,_,times) 1

  var %t = $evalnext($+(%,flood,_,$nick,_,times))

  if (%t >= $flood_times) {
    inc -e $+(%,flood,_,$nick,_,warns) 1

    var %w = $evalnext($+(%,flood,_,$nick,_,warns))

    if (%w == 1) { ban -u300 $chan $nick 3 | describe $chan Has muted $nick (This is your $ord(%w) warning, 5 minutes ban for flooding!) }
    if (%w == 2) { ban -u600 $chan $nick 3 | describe $chan Has muted $nick (This is your $ord(%w) warning, 10 minutes ban for flooding!) }
    if (%w >= 3) { describe $chan Has muted $nick (This is your $ord(%w) warning, 30 minutes ban for flooding!) | ban -ku1800 $chan $nick 3 Banned! }
  }
}