Caps Kicker For A Bot

Please Register to submit score.

Average Score	9.4
Scores Submitted	5
Date Added	Aug 26, 2007
Last Updated	May 14, 2008
Tags	ban bot caps kicker warn

Introduction

So what this one does is warns the user not to use caps and if they keep useing them it will kick them if they do it again, and if they still do it they will get banned..Load it in a new remote of a bot and set Ur self as bot owner by typing /owner Urnickhere

Grab the Code

alias owner { auser owner $address($1,2) }
on owner:text:!caps*:#:{
  if (!$3) { msg $chan commands are !caps on #channel / !caps off #channel / !caps set number / !crooms }
  elseif ($2 == on) && ($istok(%capschan,$3,44)) {
    msg $chan My Caps Protection Is Already On For $3 
  }
  elseif ($2 == on) {
    set %capschan $addtok(%capschan,$3,44)
    msg $chan My Caps Protection Is Now ON In $3 
  }
  elseif ($2 == off) && (!$istok(%capschan,$3,44)) {
    msg $chan My Caps Protection Is Already OFF For $3 
  }
  elseif ($2 == off) {
    set %capschan $remtok(%capschan,$3,1,44)
    msg $chan My Caps Protection Is Now OFF In Room $3  
  }
  elseif ($2 == set) {
    set %caps $3
    msg $chan I Will Now Warn/Kick/Ban For %caps $+ % Caps.
  }
}
on owner:text:!crooms:#:{ 
  if (!%capschan) { msg $chan My Caps Protection Is NOT ON In Any Room's }
  else { msg $chan My Caps Protection Is On In Room's %capschan }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Caps Control. 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:text:*:%capschan: {
  if ($nick(#,$nick,vr)) && ($len($1-) > 5) {
    var %percent $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
    if (%percent > %caps) {
      inc $+(%,caps,.,$nick,.,$chan)
      if ($($+(%,caps,.,$nick,.,$chan),2) == 1) { msg $chan $nick Please Dont Use Cap's Here.. $round(%percent,0) $+ % Of Ur Message Was In Caps! }
      if ($($+(%,caps,.,$nick,.,$chan),2) == 2) { kick $chan $nick Please Turn Caps Lock Off Or Next It's A Ban.. $round(%percent,0) $+ % Of Ur Message Was In Caps! } 
      if ($($+(%,caps,.,$nick,.,$chan),2) == 3) { ban -ku600 # $nick 2 you were warned Not To Use Caps Here. $round(%percent,0) $+ % Of Ur Message Was In Caps | unset $+(%,caps,.,$nick,.,$chan) }
    }
  }
}

Comments

(0) RSS

Go to Bottom

Caps Kicker For A Bot

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (30)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 24, 2008 Profile \| Website Friends (30) Snippets (40) Images (1) Comments Received (350) Comments Submitted (797) Forum Posts (135)