mIRC Scripting mIRC

What script is mIRC written in as i would like to know here's an example of a peace of its script:#capsprot onon ^*: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