My old Protection used for MSN and Buzzen.....
Take it, Rip it and use whatever you want of it.

/*
01000011 01101000 01100001 01110010 01101100 01100001 01110100 01100001 01101110                                                                                  
*/

on @!*:text:*:#:if (%Emo. [ $+ [ # ] ] = si) { EmotionsFlood $strip($1-) }
on @!*:action:*:#:if (%Emo. [ $+ [ # ] ] = si) { EmotionsFlood $strip($1-) }
alias -l EmotionsFlood {
  var %E = $strip($1-)
  if ($nick(#, $nick, '.@)) halt
  if ($Regex(%E,/([+#:;~^%\|].|[-y][s@\)\|\(]|\(.{1,8}?\))/ig) > 20) Flood
  halt
}
alias -l Flood { 
;Put whatever you want here.. the others Floods protection you can link it to this alias 
}
Menu Channel {
-
Protection
.$Iif(%Emo. [ $+ [ # ] ] == si, $Style(1)) Emoticons Protection: {
    Set %Emo. [ $+ [ # ] ] $Iif(%Emo. [ $+ [ # ] ] == si, no, si)
    Echo -at * 0Emoticons Protection $Iif(%Emo. [ $+ [ # ] ] == si, Activated, Desactivated)
  }
}
-

Is this script or part of it is good for you?.. Nice. Just don't forget to give me some love below...