Emoticon Kicker

Here is one by gatekeeper http://www.tg007.net/dls/index.php?action=file&id=796

I had this one in a script.

1 
2  ;Emoticon Kicker By The Gate Keeper and Petertje
3  ;Basically works as is, fill out the amout of emots allowed,
4  ;the kick message and ban time, and enable it, and it will work fine
5 
6  ;code begins here
7  menu * {
8    -
9    Emoticon Kicker
10   .$iif(%emotkick == on,$style(2)) Turn On : set %emotkick on
11   .$iif(%emotkick != on,$style(2)) Turn Off : unset %emotkick
12   .-
13   .Amount of Emots allowed [ $+ %emotcount $+ ]
14   ..Change : set %emotcount $$?="Enter the max amount of emoticons allowed before kick is activiated"
15   .Kick Message
16   ..View : echo -at Emoticon Kick Message $chr(44) %emotmsg
17   ..Change : set %emotmsg $$?="Enter message for emotion kicker"
18   .Ban Time [ $+ %emotban $+ ]
19   ..Change : set %emotban $$?="Enter the ban time for emoticon kicker"
20 }
21
22 on @*:TEXT:*:*: emotkick $1-
23 on @*:ACTION:*:#: emotkick $1-
24 on @*:NOTICE:*:*: emotkick $1-
25 alias emotkick {
26   if (%emotkick == on) {
27	 if ($emotcount($1-) > $iif(%emotcount,%emotcount,10)) {
28	   access $iif($chan ischan,$chan,$comchan($nick,1)) add deny *! $+ $ial($nick).addr $iif(%emotban,%emotban,60) : Emoticon Kicker
29	   kick $iif($chan ischan,$chan,$comchan($nick,1)) $nick %emotmsg (Access ban set for %emotban minutes)
30	 }
31   }
32 }
33 alias emotcount {
34   var %emolist /<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/sad.png' class='bbc_emoticon' alt=':(' />-?)(p|d|s|@|>|<|\||\)|\(|\[)|:-#|8-(\)|\|)|\((a|b|c|d|e|f|g|h|i|k|m|n|o|p|l|s|u|w|t|x|y|z|0|6|8|@|\?|\^|\}|\{)\)/gi
35   var %emolist2 /\((pi|ci|au|so|sn|bah|mp|ap|co|mo|ip|um|yn|h5|tu|brb|xx|st|li|pl|al|\|\|)\)|(\*-|\^o|\|-|;|;-|<)\)|(\+o|:')\(|:\^\)|\*-\)|-?)o|-?)O/g
36   return $calc($regex($1-,%emolist)+$regex($1-,%emolist2))
37 }
38

here also.

1
2 alias emotcount {
3   var %l1 /<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/sad.png' class='bbc_emoticon' alt=':(' />-?)[\$pds@><\|\)\(\[]|:-[#\*]|8-[\)\|]|\([a-ik-prtuw-z680@#%\^&\*\?\{\}]\)/gi
4   var %l2 /\((S|pi|ci|au|so|sn|bah|mp|ap|co|mo|ip|um|yn|h5|tu|brb|xx|st|li|pl|al|\|\|)\)|(:\^|\*-|\^o|\|-|;|;-|<<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/ohmy.png' class='bbc_emoticon' alt=':o' />)\)|(\+o|:')\(|<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/sad.png' class='bbc_emoticon' alt=':(' />-?)[oO]/g
5   return $calc($regex($1-,%l1)+$regex($1-,%l2))
6 }

Emoticon flood prot by molson & Ice

1  #emoticon on
2  on *:TEXT:*:#: {
3	if ($nick == $me) || ($nick isop $chan) || ($nick isowner $chan) { return 10 }
4	else {
5	  var %t $strip($1-) , %t2 $remove(%t,+1) , %c $emoche(%t2) , %l $gdcheck , %l2 $bantime , %l3 $banmessage
6	  if (%c > %l) { /access $comchan($nick,1) add deny $ial($nick).addr %l2 : emo flood kick <img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/biggrin.png' class='bbc_emoticon' alt=':D' /> | /kick $comchan($nick,1) $nick %l3 (Access Ban: %l2 minutes) }
7	}
8  }
9  #emoticon end
10
11 menu * {
12   • Emoticon Flood Protection •
13   .$iif($group(#emoticon) == on,$style(2),$style(0)) Turn On: { .enable #emoticon | echo -at $color(red) Emoticon Enabled. | echo -at $color(green) This addon will kick a user for useing anymore then the allowed emoticon given. | echo -at $color(green) It doesn't matter if the emoticon is the same all or different. }
14   .$iif($group(#emoticon) == off,$style(2),$style(0)) Turn Off: { .disable #emoticon | echo -at $color(red) Emoticon Disabled. }
15 }
16
17 alias emoche {
18   var %x = $remove($1-,1)
19   %x = $replace(%x,$chr(40) $+ brb $+ $chr(41),+1,$chr(40) $+ yn $+ $chr(41),+1,$chr(40) $+ h5 $+ $chr(41),+1,$chr(40) $+ ci $+ $chr(41),+1,$chr(40) $+ ? $+ $chr(41),+1,$chr(40) $+ % $+ $chr(41),+1,$chr(40) $+ e $+ $chr(41),+1,$chr(40) $+ xx $+ $chr(41),+1,:^ $+ $chr(41),+1,$chr(40) $+ tu $+ $chr(41),+1,8-|,+1,$chr(316) $+ $chr(314) $+ O $+ $chr(297),+1,$chr(299) $+ o $+ $chr(296),+1,$chr(40) $+ R $+ $chr(41),+1,$chr(296) $+ $chr(291) $+ $chr(297),+1,$chr(40) $+ g $+ $chr(41),+1)
20   %x = $replace(%x,$chr(40) $+ A $+ $chr(41),+1,:@,+1,:-@,+1,8o|,+1,$chr(40) $+ so $+ $chr(41),+1,: $+ $chr(91),+1,:- $+ $chr(91),+1,$chr(40) $+ B $+ $chr(41),+1,$chr(40) $+ U $+ $chr(41),+1,$chr(40) $+ $chr(124) $+ $chr(124) $+ $chr(41),+1,$chr(40) $+ ^ $+ $chr(41),+1,$chr(40) $+ P $+ $chr(41),+1,$chr(40) $+ au $+ $chr(41),+1,$chr(40) $+ @ $+ $chr(41),+1,$chr(40) $+ 0 $+ $chr(41),+1,$chr(40) $+ pl $+ $chr(41),+1,$chr(40) $+ F $+ $chr(41),+1,: $+ $chr(40),+1,:- $+ $chr(40),+1,^o $+ $chr(41),+1,:-*,+1)
21   %x = $replace(%x,$chr(40) $+ C $+ $chr(41),+1,$chr(40) $+ co $+ $chr(41),+1,:S,+1,:-S,+1,$chr(40) $+ H $+ $chr(41),+1,:' $+ $chr(40),+1,$chr(40) $+ 6 $+ $chr(41),+1,:|,+1,:-|,+1,$chr(40) $+ & $+ $chr(41),+1,:-#,+1,: $+ $chr(36),+1,:- $+ $chr(36),+1,8- $+ $chr(41),+1,$chr(40) $+ ~ $+ $chr(41),+1,$chr(40) $+ S $+ $chr(41),+1,$chr(40) $+ 8 $+ $chr(41),+1,$chr(40) $+ T $+ $chr(41),+1,$chr(40) $+ pi $+ $chr(41),+1,$chr(40) $+ ap $+ $chr(41),+1,$chr(40) $+ al $+ $chr(41),+1)
22   %x = $replace(%x,$chr(40) $+ x $+ $chr(41),+1,$chr(40) $+ $chr(125) $+ $chr(41),+1,$chr(40) $+ Z $+ $chr(41),+1,$chr(40) $+ $chr(123) $+ $chr(41),+1,$chr(40) $+ L $+ $chr(41),+1,$chr(40) $+ I $+ $chr(41),+1,$chr(40) $+ ip $+ $chr(41),+1,$chr(40) $+ K $+ $chr(41),+1,$chr(40) $+ li $+ $chr(41),+1,$chr(40) $+ D $+ $chr(41),+1,$chr(40) $+ M $+ $chr(41),+1,$chr(40) $+ mp $+ $chr(41),+1,$chr(40) $+ mo $+ $chr(41),+1,$chr(40) $+ o $+ $chr(41),+1)
23   %x = $replace(%x,$chr(40) $+ bah $+ $chr(41),+1,$chr(124) $+ - $+ $chr(41),+1,: $+ $chr(41),+1,:- $+ $chr(41),+1,<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/biggrin.png' class='bbc_emoticon' alt=':D' />,+1,:-D,+1,<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/ohmy.png' class='bbc_emoticon' alt=':o' />,+1,:-O,+1,<img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/tongue.png' class='bbc_emoticon' alt=':P' />,+1,:-P,+1,$chr(40) $+ sn $+ $chr(41),+1,$chr(40) $+ * $+ $chr(41),+1,$chr(40) $+ st $+ $chr(41),+1,*- $+ $chr(41),+1,$chr(40) $+ N $+ $chr(41),+1,$chr(40) $+ Y $+ $chr(41),+1,$chr(40) $+ um $+ $chr(41),+1,$chr(40) $+ W $+ $chr(41),+1,; $+ $chr(41),+1,;- $+ $chr(41),+1)
24   var %y = $remove(%x,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(32),$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$chr(42),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(64),$chr(91),$chr(92),$chr(93),$chr(94),$chr(95),$chr(96),$chr(123),$chr(124),$chr(125),$chr(126),$chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(141),$chr(142),$chr(143))
25   %y = $remove(%y,$chr(144),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150),$chr(151),$chr(152),$chr(153),$chr(154),$chr(155),$chr(156),$chr(157),$chr(158),$chr(159),$chr(160),$chr(161),$chr(162),$chr(163),$chr(164),$chr(165),$chr(166),$chr(167),$chr(168),$chr(169),$chr(170),$chr(171),$chr(172),$chr(173),$chr(174),$chr(175),$chr(176),$chr(177),$chr(178),$chr(179),$chr(180),$chr(181),$chr(182),$chr(183),$chr(184),$chr(185),$chr(186),$chr(187),$chr(188),$chr(189),$chr(190),$chr(191),$chr(192),$chr(193),$chr(194),$chr(195),$chr(196),$chr(197),$chr(198),$chr(199))
26   %y = $remove(%y,$chr(200),$chr(201),$chr(202),$chr(203),$chr(204),$chr(205),$chr(206),$chr(207),$chr(208),$chr(209),$chr(210),$chr(211),$chr(212),$chr(213),$chr(214),$chr(215),$chr(216),$chr(217),$chr(218),$chr(219),$chr(220),$chr(221),$chr(222),$chr(223),$chr(224),$chr(225),$chr(226),$chr(227),$chr(228),$chr(229),$chr(230),$chr(231),$chr(232),$chr(233),$chr(234),$chr(235),$chr(236),$chr(237),$chr(238),$chr(239),$chr(240),$chr(241),$chr(242),$chr(243),$chr(244),$chr(245),$chr(246),$chr(247),$chr(248),$chr(249),$chr(250),$chr(251),$chr(252),$chr(253),$chr(254),$chr(255))
27   var %z = $calc(%y)
28   return %z
29 }