Dave

on *:LOAD: {
  set %flood.unset 15
  ; Seconds
  set %flood.lines 3
  ; Lines
  set %flood.bantime 300
  ; Bantime in seconds
}
on $*:TEXT:/^[!@]dm?/Si:#ThePC: {
  if ($nick isop $chan || $nick ishop $chan) { halt } else {
    inc $($+(-u,%flood.unset)) $+(%,flood.,$chan,.,text.,$nick)
    if ($($+(%,flood.,$chan,.,text.,$nick),2) >= %flood.lines) {
      inc %kicks 1
      ban $($+(-ku,%flood.bantime)) $chan $nick 2 14Flood protection: 073 14DM commands in 0715 14seconds $kickc
    }
  }
}
alias kickc { inc %kicks | return 7»14 $bytes(%kicks,db) 7« }