CAPS tcl help pls

[Illidan]

Hello,

I tried this script below and it doesnt work. Please guide.

#########################################
# capsGF.tcl (GF stands for G-Force bot)
# credits goes to:
# ppslim, Papillon
#
#Date: 11 sept 2002
#
#########################################
#
#Set this to the minimum string wize, before it will act
#IE, set 6, "HELLO" = no kick, "HELLO ALL" = kick
set cap_min 5

#set this tot he percentage, wihtout any percentage char
#IE, 50
set cap_per 40

bind pubm - "*" cap:perc:kick
proc cap:perc:kick {nick uh hand chan arg} {
global cap_per cap_min
if {[string length $arg] <= $cap_min} { return }
set full [string length $arg]
regsub -all {[A-Z]} $arg "" arg
putlog "$arg"
set perc [expr (($full - [string length $arg]) * 100) / $full]
putlog "$perc"
if {$perc >= $cap_per} {
putserv "KICK $chan $nick :*** NO *** caps please!!!) ([string range $perc 0 5]% caps)"
}
}

putlog "CapsGF.tcl 2002 Loaded"

[ppslim]

Remember, text contains spaces, and these are classed as normal text.

Can you give any examples or when it doesn't work?

Can you conclusivly proove it doesn't work?