hey ppl i got a addon of amoeba there in the help file i have reading this:
Synopsis - Will warn on 2nd on TEXT event with all caps in lines of length 10 or more. On 3rd, it will perform a kick. If the user returns within 5 minutes, he/she/it gets 2 more chances then is banned with kick.
In this version of my caps kicker, it strips out all emoticons (which mirc sees as CAPS). Also fixed a couple of little bugs I noticed.
Things you need to edit:
Create a caps group or remove #caps off and #caps end for an always on caps kicker.
You will need to replace, with your own values:
$prot.ini(scr.caps) - this dictates whether the script is on (redundancy). Can be removed.
$read(settings\cm.txt) - Warning message.
$kicks.ini(scr.capk.k) - Kick only message
$prot.ini(bantime) - Length of ban
$kicks.ini(scr.capk.kb) - KICK/BAN message
Once you replace these values, it should work fine.
so correct me if i'm wrong but i edit the addon like there say in the help/readme file but afther that its not working :s can someone explaines what i do wrong/did wrong
on ^*:TEXT:*:#:{
var %nick $replace($nick,>,Guest_)
if (($address isin $ulist($address,god,1)) || $&
(($address isin $ulist($address,admin,1)) || $&
($address isin $ulist($address,owner,1)) || $&
($address isin $ulist($address,host,1)) || $&
($address isin $ulist($address,level5,1))) return
if ($len($strip.emoticon($1-)) < 10) { halt | return }
var %l $len($strip.emoticon($1-))
var %c $len($removecs($strip.emoticon($1-),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))
var %p $round($calc((%c / %l) * 100),0)
if (%p >= $allowed.caps) {
inc -u300 %caps. [ $+ [ $nick ] ] 1
if (%caps. [ $+ [ $nick ] ] == 2) .PRIVMSG $chan $read :@
if ((%caps. [ $+ [ $nick ] ] == 3) && ($nick ison $chan)) .KICK $chan $nick $kicks.ini(scr.capk.k) :@
if ((%caps. [ $+ [ $nick ] ] >= 5) && ($nick ison $chan)) {
.ACCESS $chan ADD deny $address $prot.ini(bantime) :(- $+ $msn.ifdecode( $+ $nick - CAPS BAN-)
.KICK $chan $nick $kicks.ini(scr.capk.kb) :@ (-Caps Ban-)
unset %caps. [ $+ [ $nick ] ]
}
}
}
}
on *:ACTION:*:#:{
var %nick $replace($nick,>,Guest_)
if (($address isin $ulist($address,god,1)) || $&
(($address isin $ulist($address,admin,1)) || $&
($address isin $ulist($address,owner,1)) || $&
($address isin $ulist($address,host,1)) || $&
($address isin $ulist($address,level5,1))) return
if ($len($1-) < 10) { halt | return
var %caps.letters = $len($strip($1-))
var %caps = $len($removecs($1-,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))
var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if (%caps.percent >= $allowed.caps) {
inc -u300 %caps. [ $+ [ $nick ] ] 1
if (%caps. [ $+ [ $nick ] ] == 2) .PRIVMSG $chan $read :@
if ((%caps. [ $+ [ $nick ] ] == 3) && ($nick ison $chan)) .KICK $chan $nick $kicks.ini Geen CAPS :@
if ((%caps. [ $+ [ $nick ] ] >= 5) && ($nick ison $chan)) {
.ACCESS $chan ADD deny $address $prot.ini (5min) :(- $+ $msn.ifdecode( $+ $nick - CAPS BAN-)
.KICK $chan $nick $kicks.ini ik heb je gewaarschuwd daag :@ (-Caps Ban-)
unset %caps. [ $+ [ $nick ] ]
}
}
}
halt
}
alias allowed.caps { return $prot.ini(scr.caps.per) }
;--- Strips emoticons
alias strip.emoticon {
var %strip.emoticon = $1-
%strip.emoticon = $remove(%strip.emoticon,:- $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,: $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,:d)
%strip.emoticon = $remove(%strip.emoticon,:>)
%strip.emoticon = $remove(%strip.emoticon,:o)
%strip.emoticon = $remove(%strip.emoticon,:-o)
%strip.emoticon = $remove(%strip.emoticon,:p)
%strip.emoticon = $remove(%strip.emoticon,:-p)
%strip.emoticon = $remove(%strip.emoticon,;- $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,; $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,: $+ $chr(40))
%strip.emoticon = $remove(%strip.emoticon,:<)
%strip.emoticon = $remove(%strip.emoticon,:s)
%strip.emoticon = $remove(%strip.emoticon,:-s)
%strip.emoticon = $remove(%strip.emoticon,:-|)
%strip.emoticon = $remove(%strip.emoticon,:-@)
%strip.emoticon = $remove(%strip.emoticon,:@)
%strip.emoticon = $remove(%strip.emoticon,:' $+ $chr(40))
%strip.emoticon = $remove(%strip.emoticon,:- $+ $chr(91))
%strip.emoticon = $remove(%strip.emoticon,: $+ $chr(91))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ @ $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ h $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ * $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ s $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ y $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ n $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ $chr(125) $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ $chr(123) $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ ? $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ l $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ u $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ k $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ ^ $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ g $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ f $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ w $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ t $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ e $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ m $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ x $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ z $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ p $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ b $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ d $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ c $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ i $+ $chr(41))
%strip.emoticon = $remove(%strip.emoticon,$chr(40) $+ 8 $+ $chr(41))
return %strip.emoticon
Let me now 
