caps kicker

Platform:  mIRC
Published  Sep 30, 2007
Updated  Sep 30, 2007
THis is a pretty good caps kicker kicks at 70% caps used & tells the user kicked how many caps they have used out of the allowed caps. menu menubar {
-
Caps Kicker ( $+ $group(#caps) $+ )
..$iif($group(#caps) == on,$style(2),$style(0)) On:{ .enable #caps | echo $active 0,12Caps Kicker 0,94Enabled }
..$iif($group(#caps) == off,$style(2),$style(0)) Off:{ .disable #caps | echo $active 0,12Caps Kicker 0,94Disabled }
}



#caps on
on ^*:TEXT:*:*:{
if ($len($1-) < 20) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(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 = $calc($len($1-) - $len($removecs($1-,($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 > $allowedcaps) && ($nick !isop $active)) {
/kick $active $nick Caps Allowed $allowedcaps $+ $chr(37) You Used %caps.percent $+ $chr(37) BYE!!
}
}
alias allowedcaps { return 70 }
#caps end

Comments

Sign in to comment.
H2O   -  Jun 23, 2011
This is working odd for me. It will work in one channel, but when i test it in another channel it will kick me from the first channel i tested it on, not the second. Any tips or a link to a better one? Im looking for one without a ban.
 Respond  
Jethro   -  Jan 14, 2010
You did it wrong. This is how you do it:

Code

 
Also, you need to be aware that $chan in private message becomes $null.
 Respond  
Klasic Kumputerz   -  Jan 14, 2010
How can you make this channel specific? I have tried to add channel name(s) to it and it renders the script none working.

Example:

on ^*:TEXT:#channelname:*:*:{
 Respond  
BytchAmy   -  Jan 28, 2008
thanks for your comments :)
 Respond  
KuTsuM   -  Oct 03, 2007
Whoops I meant .7 not .5 :)
 Respond  
KuTsuM   -  Oct 03, 2007
First thing. You can\'t kick someone who\'s talking to you in a query. You can do this however:
if ($chan) { kick $v1 $nick blah blah }
else { close -m $nick }

Also, the above would work, but you can use this for shorter code too:

on *:TEXT:*:#: {
var %x = 1,%y
while (%x <= $len($1-)) {
if ($right($left($1-,%x),1) isupper) inc %y
inc %x
}
if (%y > $calc($len($1-) * .5)) { do action... }
}
 Respond  
Kyousoukyoku   -  Oct 01, 2007
you don\'t really need th $allowedcaps. You can just have a local variable. And you should use $regex as napa said. Really nice work BytchAmy. =)
 Respond  
napa182   -  Sep 30, 2007
you can use

Code

 

then you can have a way to set the percent of caps you want to kick for like

Code

 

or what ever
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.