ChristianEthics 9.4
_________________________________________________________________________
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 Spec.
Edited Sept 2004, works with clearmsn and vincula.
__________________________________________________________________________

*Do not edit this file.
__________________________________________________________________________

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 | capw1.set | capw2.set | capm.set |/splay chimes.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 = Too many caps.
   /msg $chan %capw1
}
if (%capkickkerr [ $+ [ $nick ] ] == 4) && ($nick ison #) {
  if (%capw2 = $null) %capw2 = You will be auto speced or kicked if you use caps again.
   /msg $chan %capw2 
}
if (%capkickkerr [ $+ [ $nick ] ] == 5) && ($nick ison #) {
  /mode $msn.get($cid,fullroom) -v $nick 
    if (%capms = $null) %capms = no caps!
   /msg $chan %capms 
  /unset %capkickkerr [ $+ [ $nick ] ]
$iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($nick,1) %profban Caps.
$iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick (caps kick) %prok Banned %profban minute(s) | echo $color(highlight text) -at [Moderated room is off so auto kicked istead]


}
}
}


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 = Too many caps.
   /msg $chan %capw1
}
if (%capkickkerr [ $+ [ $nick ] ] == 4) && ($nick ison #) {
  if (%capw2 = $null) %capw2 = You will be auto speced or kicked if you use caps again.
   /msg $chan %capw2 
}
if (%capkickkerr [ $+ [ $nick ] ] == 5) && ($nick ison #) {
  /mode $msn.get($cid,fullroom) -v $nick 
    if (%capms = $null) %capms = no caps!
   /msg $chan %capms 
  /unset %capkickkerr [ $+ [ $nick ] ]
$iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid access $msn.get($cid,fullroom) add deny $address($nick,1) %profban Caps.
$iif(m isin $gettok($chan($chan).mode,1,32),$style(1)) sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick (caps kick) %prok Banned %profban minute(s) | echo $color(highlight text) -at [Moderated room is off so auto kicked istead]


}
}
}

*Part of this Script written by persons Known by God, Unknown to me*







