Mine

on *:TEXT:!swear on:#: {
  if ($nick ishop $chan || $Nick isop $chan) {
set %swear. [ $+ [ $chan ] ] on
    /notice $nick swear on  
  }
}
on *:TEXT:!swear off:#: {
    if ($nick ishop $chan || $Nick isop $chan) {
set %swear. [ $+ [ $chan ] ] off
    /notice $nick swear off  
  }
}
on $*:TEXT:/(fuck|hell|dick|bitch|cunt|pussy)/Si:#: {
  if (%swear. [ $+ [ $chan ] ] == on) {
    /notice $nick please stop spamming
  }
}
on $*:TEXT:/(fuck|hell|dick|bitch|cunt|pussy)/Si:#: {
  if (%swear. [ $+ [ $chan ] ] == on) {
    inc %swears. [ $+ [ $nick ] ] 1
  }
}
elseif (%swears. [ $+ [ $nick ] ] => 2) {
  ban -ku300 $chan $nick 2 Don't swear please.
}






on *:TEXT:!flood on*:#: {
   if ($nick ishop $chan || $Nick isop $chan) {
 set %flood. [ $+ [ $chan ] ] on 
    /notice $nick flood on
  }
}

on *:TEXT:!flood off*:#: {
   if ($nick ishop $chan || $Nick isop $chan) {
 set %flood. [ $+ [ $chan ] ] off
    /notice $nick flood off  
  }
}
on *:TEXT:*:#:{
  if (%flood. [ $+ [ $chan ] ] == on) {
    if (%cmd. [ $+ [ $nick ] ] == $null) {
      set -u10 %cmd. [ $+ [ $nick ] ] 1
    }
    else {
      inc %cmd. [ $+ [ $nick ] ]
    }
    if (%cmd. [ $+ [ $nick ] ] >= 4) {
      ban -ku300 $chan $nick 2 Don't flood
      unset %cmd. [ $+ [ $nick ] ]
    }
  }
}