Something

on *:open:?:*:{
  hinc $+(-mu,$iif($hget(flood,$me).unset,$ifmatch,4)) flood $me 1
  if ($hget(flood,$me) >= 5) { mode $Me +R | close -m * | .timer 1 30 mode $Me -R }
}
on *:PING:{
  hinc $+(-mu,$iif($hget(flood,$me).unset,$ifmatch,4)) flood $me 1
  if ($hget(flood,$me) >= 5) { ignore $nick }
}
on *:notice:{
  hinc $+(-mu,$iif($hget(floodn,$me).unset,$ifmatch,4)) floodn $me 1
  if ($hget(floodn,$me) >= 5) { ignore $nick }
}