on *:TEXT:*:#[P5]:{
  var %capcount $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100)
  if (%capcount >= 65) { ban -ku600 $chan $nick 3 Turn off the CAPS! (65% Allowed. %capcount Used.) - 10 Min. Ban $kcount
  }
if (($len($1-) > 130) && ($nick isreg $chan)) { ban -ku600 $CHAN $nick 2 Message too long, max of 150 characters per line! (10 minute Temp-KB) $KCOUNT
  }
if ((($chr(2) isin $1-) || ($chr(3) isin $1-) || ($chr(22) isin $1-) || ($chr(31) isin $1-)) && ($nick isreg $chan)) { ban -ku600 $chan $nick 2 No Bolds, Reverses, Colors or Underlines in #[P5]. 10 minute ban. $KCOUNT
  } 
}