Unnamed

on *:TEXT:*:#RsMarket: {
  if ($nick isop $chan || $nick ishop $chan) { halt }
  if ($chr(3) isin $1- || $chr(2) isin $1- || $chr(31) isin $1- || $caps.pc($1-) >= 70) {
    inc %kicks
    ban -u300 $chan $nick 2
    kick $chan $nick 7You were kicked because you violated a channel rule ~ 4Noobs kicked: %kicks
  }
}

alias caps.pc {
  var %str = $remove($1, $chr(32))
  var %upper = $regex(%str, /[A-Z]/g)
  return $calc(%upper / $len(%str) * 100)
}