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

alias -l remove.warned {
  set -e %caps.warned $remtok(%caps.warned,$1,1,32)
}