ChristianEthics 9.2
_________________________________________________________________________
E-mail: ChristianEthics2@yahoo.ca 
Messenger: ChristianEthics@hotmail.com 
Home page: http://ca.geocities.com/christianethics2
Message Board: http://groups.yahoo.com/group/ChristianEthics_BibleBotDownloadZone/
__________________________________________________________________________


Caps Kicker /warning
Edited October 2004
Updated May 2006 to send kick message.
____________________________________________________________________________
Do not edit this file.
__________________________________________________________________________

alias cappban.set { 
  set %cappban $$?="SET BAN TIME FOR CAPS KICK. [Note: ban time is in minutes (24 Hours is 1440 Minutes) or use [0] for indefinite ban and the word [off] for no ban] The current ban set in minutes is: %cappban " | /splay notify.wav 
}

alias capm.set {
  set %capm $$?="Enter the message you want displayed for caps kick/spec. The current message is: %capm "
}

alias capw1.set {
  set %capw1 $$?="Enter the message you want displayed for caps kick/spec warning 1. The current message is: %capw1 "
}

alias capw2.set {
  set %capw2 $$?="Enter the message you want displayed for caps kick/spec warning 2. The current message is: %capw2 "
}


on *:LOAD:{ 
  set %capp $=cp Kick On 
  ;/splay chimes.wav  
  ;capw1.set 
  ;capw2.set 
  ;capm.set 
  ;cappban.set 
  /splay notify.wav  
}

on *:UNLOAD:{ set %capp $=cp Off 
  set %cappban $=cpb off 
  /splay unload.wav
}



alias allowedcaps { return 80 }

on *:TEXT:*:#:{ 
  if ($nick == $me) halt 
  if ($nick == $mi) halt
  if ($nick isowner $chan) halt 
  if ($nick isop $chan) halt  
  if ($level($address($nick,6)) == ownerlist) halt 
  if ($level($address($nick,6)) == hostlist) halt 
  if ($len($1-) < 10) { 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 #)) {
    .inc -u70 %capkickkerr [ $+ [ $nick ] ] 
    if (%capkickkerr [ $+ [ $nick ] ] == 3) && ($nick ison #) {
      if (%capw1 = $null) %capw1 = don't use so many caps.
      /msg $chan %capw1
    }
    if (%capkickkerr [ $+ [ $nick ] ] == 4) && ($nick ison #) {
      if (%capw2 = $null) %capw2 = setting caps kick. 
      /msg $chan %capw2 
    }

    if (%capkickkerr [ $+ [ $nick ] ] == 5) && ($nick ison #) {
      if( %cappban = $null) %cappban = off
      sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %cappban Caps.  
      sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (caps kick)  minute(s)  
      /unset %capkickkerr [ $+ [ $nick ] ]
    }
  }  
}


on *:action:*:#:{ 
  if ($nick == $me) halt 
  if ($nick == $mi) halt
  if ($nick isowner $chan) halt 
  if ($nick isop $chan) halt  
  if ($level($address($nick,6)) == ownerlist) halt 
  if ($level($address($nick,6)) == hostlist) halt 
  if ($len($1-) < 10) { 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 #)) {
    .inc -u70 %capkickkerr [ $+ [ $nick ] ] 
    if (%capkickkerr [ $+ [ $nick ] ] == 3) && ($nick ison #) {
      if (%capw1 = $null) %capw1 = don't use so many caps.
      /msg $chan %capw1
    }
    if (%capkickkerr [ $+ [ $nick ] ] == 4) && ($nick ison #) {
      if (%capw2 = $null) %capw2 = setting caps kick. 
      /msg $chan %capw2 
    }

    if (%capkickkerr [ $+ [ $nick ] ] == 5) && ($nick ison #) {
      if( %cappban = $null)  %cappban = off
      sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address %cappban Caps. 
      sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : (caps kick) %capm Banned %cappban minute(s) 
      /unset %capkickkerr [ $+ [ $nick ] ]
    }
  }  
}

;**Part of this Script was written by persons unknown to me, but 
;known to God *******
