on *:text:*:#:{
if ($nick isop #) return
if ( $len($1-) >= 10 ) {
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 75 ) {
if !$istok(%caps.warned,$nick,32) {
msg $chan $nick -> stop typing in caps! [warning]
set -e %caps.warned $addtok(%caps.warned,$nick,32)
.timer 1 300 remove.warned $nick
}
else msg $chan Caps again :( | msg $chan .timeout $nick 60
}
}
}
alias -l remove.warned {
set -e %caps.warned $remtok(%caps.warned,$1,1,32)
}