Code:
on ^*:open:?:*:{
  if (%o.flood == $null) { set -u10 %o.flood 1 }
  else {
    inc %o.flood
    if (%o.flood == 5) { mode $me +g | set -u5 %o.flood 5 | halt }
    else if (%o.flood > 5) { halt }
  }
}


This won't help many but it's about the only non-oper required script I have. This script sets you temporarily +g if a bunch of names message you at once in an attempt to flood you.