Caps kicker

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	Sep 27, 2007
Last Updated	Sep 28, 2007
Tags	caps kick

Introduction

Pretty simple code. I am currently experimenting the use of regex as I have just started learning. This snippet uses regex to monitor the precentage of capital letters used in bits of text. I hope this works for everyone.

* Thanks goes to Olliegod for giving me the idea to use the percentage of caps.

Grab the Code

#caps On  
on @*:TEXT:*:#:{ 
  var %n 2
  if ($nick isreg $chan) { 
    var %percentage 60
    if ($calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) > %percentage) {
      if (%n < 3)  {
        inc $+(%,caps,.,$nick,.,$wildsite)
        var %i $($+(%,caps,.,$nick,.,$wildsite),2)
        if (%i < %n) { 
          msg $chan You are currently using too many captial letters. This is the $ord(%i) time that you have broken this rule. Please stop this conduct or immidiate action will be taken against you.
        } 
        if (%i = 3) { 
          ban -ku120 # $nick You are using $calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) percent caps. You have been warned before, you will now be banned.
          unset $+(%caps,.,$nick,.,$wildsite)
        }
      }
    }
  }
}

on @*:ACTION:*:#:{ 
  var %n 2
  if ($nick isreg $chan) { 
    var %percentage 60
    if ($calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) > %percentage) {
      if (%n < 3)  {
        inc $+(%,caps,.,$nick,.,$wildsite)
        var %i $($+(%,caps,.,$nick,.,$wildsite),2)
        if (%i < %n) { 
          msg $chan You are currently using too many captial letters. This is the $ord(%i) time that you have broken this rule. Please stop this conduct or immidiate action will be taken against you.
        } 
        if (%i = 3) { 
          ban -ku120 # $nick You are using $calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) percent caps. You have been warned before, you will now be banned.
          unset $+(%caps,.,$nick,.,$wildsite)
        }
      }
    }
  }
}
#caps end

menu channel { 
 caps kicker $group(#caps).status:
 .On/off:$iif($group(#caps).status = off, enable #caps, disable #caps)
}

Comments

(4) RSS

Go to Bottom

Olliegod

Comments: 74

mIRC Snippet: Caps kicker
Posted on Sep 28, 2007 3:09 am

It is quite easy for someone to use more than 5 capital letters in a message. Perhaps a better method would be to kick people who use a certain percentage of capital letters, for example: OMG JOIN #NEWBP0WNAGE NOW!!! That sentence has 20 out of 28 characters capitalised, which would be about 71% capital letters. The maximum could be set around 50%, or even better, inclue a method for the user to define the percentage.

Saeed

Comments: 31

mIRC Snippet: Caps kicker
Posted on Sep 28, 2007 8:32 am

I fixed it. Thanks. =) You can edit the percentage in the %percentage variable below the if ($nick isreg $chan)

token

Comments: 24

mIRC Snippet: Caps kicker
Posted on Sep 28, 2007 9:24 am

perhaps use groups to disable/enable the script, good work

Sick_Puppy

Comments: 38

mIRC Snippet: Caps kicker
Posted on Oct 4, 2007 1:41 am

Could You Make a Punctuation One Next?
:D

Caps kicker

Introduction

Grab the Code

Comments

Saeed

My Snippet Tags

Contact

Sponsors


Last seen: Nov 23, 2007 Profile Snippets (5) Comments Received (25) Comments Submitted (31) Forum Posts (3)