What script is mIRC written in as i would like to know here's an example of a peace of its script:

#capsprot on
on ^*:TEXT:*:#:{
if ($nick == $chan) halt
if ($$ial($nick $+ *,1).addr == $read(protect.txt, w,* $+ $$ial($nick $+ *,1).addr $+ * )) return
if ($nick isowner #) halt
if ($nick isop #) halt
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 #)) {
set -u60 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
;the -u60 makes the variable unset after 60 secs without being used
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) /ctcpreply $nick TIME  -=(6)[ Dont Use Caps $replace($nick,>,Guest_) ](6)=-
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) /ctcpreply $nick TIME  -=(6)[ Dont You Learn $replace($nick,>,Guest_) $+ ? Caps Off ](6)=-
if (%rl. [ $+ [ $address($nick,2) ] ] >= 3) {
access $chan add deny $address 5 :-=*[ LOD ](6)=- Caps Prot $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
access $chan add deny $nick 5 :-=*[ LOD ](6)=- Caps Prot $replace($nick,>,Guest_) added by $replace($me,>,Guest_) at $date @ $time
kick # $nick -=(6)[ Too Many Warnings 5 Minute Ban ](6)=-
}
}
}

Does anyone know this script and what its name is.

It may look confusing but its a cool action peace of script that i dont know what is called




This post has been edited by microscopic^earthling: Jun 14 2005, 05:39 PM