caps kicker

Platform: mIRC

Published Sep 30, 2007

Updated Sep 30, 2007

2,144 8

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

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 			
on ^*:TEXT:*:#chan1,#chan2,#chan3,#chan4: {	

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 			
if ($len($1-) > 5) {
    var %percent $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
    if (%percent > %caps) {	

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

		Code 			
alias capset { set %caps $1 | echo -a I will Now Kick For $1 $+ % Caps }	

or what ever

Respond