alias prot {
  :flood
  var %µ = $+(%,flood.,$2,.,$3)
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
  if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
  else { return $false }
}

on @*:text:*:#:{
  if  ($nick isreg #) || if ($nick !ison #op) {
    if $prot(flood,#,$nick,3,1) {
      mode # +b $nick  
      kick # $nick flood(1sn:3) 
    }
  }
}