on *:TEXT:*:#:{
  if ($nick isop #) { halt }
  if ( $len($1-) >= 7 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) {
      var %capsblock = $rand(1,3)
      if (%capsblock == 1) { msg $chan $nick -> Excuse me, STOP typing in caps! [caps] [warning] }
      if (%capsblock == 2) { msg $chan $nick -> Ey! I'm not deaf... well I am now. Stop yelling [caps] [warning] }
      if (%capsblock == 3) { msg $chan $nick -> Stop typing in BIG LETTERS! [caps] [warning] }
      /msg $chan .timeout $nick 1
    }
    .timerCapsBan 1 300 CapsBan # $nick
  }
}