um how is it a 10 min time out? If all you are doing is kicking them...
could also do
on @*:TEXT:*:#:{
if ($nick !isop # && %capskick && $len($1-) > 5) {
var %caps.percent $calc($regex($1-,/[A-Z]/Sg)/$len($1-)*100)
if (%caps.percent > %caps.allowed) {
inc %kick
ban -ku600 # $nick 2 $round(%caps.percent,0) $+ % CAPS! 4[ $+ %kick $+ ]
.msg $nick You got 10 minute time-out automatically for using Caps Lock!
}
}
if ($regex($1-,/^!!capskick\s(o(n|ff)?|set)?\s?(\d+)?/iS) && $nick isop #) {
if ($istok(on off,$regml(1),32)) {
$+($iif($regml(1) = off,un),set) %capskick on
msg # Capskick is $iif(%capskick,on,off)
}
if ($regml(1) = set && $regml(2)) {
set %caps.allowed $v1
msg # Caps allowed set to $v1 $+ %
}
}
}