Control Codes Channel Protection.

[Cult]

on @*:TEXT:*:#:{
if ($nick isreg $chan)
if ($calc($len($1-) - $len($strip($1-))) >= 10) {
if ($me isop $chan) {
if ($nick ison $chan) {
ban -k # $nick Excess Use Of CTRL CODES.
mode $chan +bMR $mask($fulladdress,2)
timer 1 2 freezeoff
}
}
}
}

on @*:NOTICE:*:#:{
if ($nick isreg $chan)
if ($calc($len($1-) - $len($strip($1-))) >= 10) {
if ($me isop $chan) {
if ($nick ison $chan) {
ban -k # $nick Excess Use Of CTRL CODES.
mode $chan +bMR $mask($fulladdress,2)
timer 1 2 freezeoff
}
}
}
}

on @*:ACTION:*:#:{
if ($nick isreg $chan)
if ($calc($len($1-) - $len($strip($1-))) >= 10) {
if ($me isop $chan) {
if ($nick ison $chan) {
ban -k # $nick Excess Use Of CTRL CODES.
mode $chan +bMR $mask($fulladdress,2)
timer 1 2 freezeoff
}
}
}
}

alias freezeoff {
timer 1 0 remote off
timer 1 20 remote on
mode $chan -MR
}

[Cult]

This code is better, same.. just some editions

on @*:TEXT:*:#:actfreeze $1-
on @*:NOTICE:*:#:actfreeze $1-
on @*:ACTION:*:#:actfreeze $1-

alias actfreeze {
  if ($nick isreg $chan) {
    if ($calc($len($1-) - $len($strip($1-))) >= 20) {
      if ($me isop $chan) {
        if ($nick ison $chan) { 
          kick $chan $nick Excess Use Of CTRL CODES. 4C14ult
          mode $chan +b $mask($fulladdress,2)
          if (MR !isincs $chan(#).mode) { 
            mode $chan +MR 
            $+(.,timer,munset,.,$chan) 1 20 mode $chan -MR 
          }
        }
      }
    }
  }
}

[Cult]

umm this is faster

on @*:TEXT:*:#:actfreeze $1-
on @*:NOTICE:*:#:actfreeze $1-
on @*:ACTION:*:#:actfreeze $1-

alias actfreeze {
  if ($nick isreg $chan) {
    if ($calc($len($1-) - $len($strip($1-))) >= 20) {
      if ($nick ison $chan) { 
        kick $chan $nick Excess Use Of CTRL CODES. %logo
        mode $chan +bMR $mask($fulladdress,2)
$+(.,timer,munset,.,$chan) 1 20 mode $chan -MR 
      }
    }
  }
}

[Cult]

on @*:TEXT:*:#: if ($len($strip($1-)) < 20 ) actfreeze $1-
on @*:NOTICE:*:#: if ($len($strip($1-)) < 20 ) actfreeze $1-
on @*:ACTION:*:#: if ($len($strip($1-)) < 20 ) actfreeze $1-

alias actfreeze {
  if ($nick ison $chan) && ($nick isreg $chan) kick $chan $nick Excess Use
  Of CTRL CODES. %logo
  mode $chan +bMR $mask($fulladdress,2)
  $+(.,timer,munset,.,$chan) 1 20 mode $chan -MR
}

should be faster.
not tested yet