on *:TEXT:*:#:{
  if ($nick isreg $chan) || ($len($1-) < 5) { return }
  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
}

on *:text:*:#[P5]: { 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  }


on *:text:*:#[P5]: { 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 #RSMarket. 10 minute ban. $KCOUNT  }