Quote color + text cut wickednights

alias qcolor {
  return 10 $+ $replace($1-,$chr(32) $+ $chr(34),$chr(32) $+ 05 $+ $chr(34), $chr(34) $+ $chr(32),05 $+ $chr(34) $+ 10 $+ $chr(32))
}

alias quote {
  if (%quote.status = $null) { set %quote.status on | echo -a Quoting is 03 $+ enabled! | halt }
  elseif (%quote.status = off) { set %quote.status on | echo -a Quoting is 03 $+ enabled! }
  elseif (%quote.status = on) { set %quote.status off | echo -a Quoting is 04 $+ disabled!  }
  else { halt }
}

on *:INPUT:*:{
  var %End 01...
  var %New 01...
  var %MaxLen $calc(400 - $len($nick))
  if ($len($1-) < %MaxLen) {
    if ((($left($1,1) != /) || ($1 == /me)) && (%quote.status = on)) {
      if ($1 == /me) {
        describe $target $qcolor($2-) | haltdef
      }
      else {
        msg $target $qcolor($1-) | haltdef
      }
    }
    return
  }
  var %x %MaxLen, %y, %1, %2, %3, %Prefix say
  while ($asc($mid($1-,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound | dec %x }
  :SpcFound
  %1 = $left($1-,%x) | %2 = $mid($1-,%x,$len($1-))
  if ($len(%2) > %MaxLen) {
    %x = %MaxLen
    while ($asc($mid(%2,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound3 | dec %x }
    :SpcFound3
    %3 = $mid(%2,%x,$len(%2))
    %2 = $left(%2,%x)
  }
  if (($1 = /me) || ($1 = /action)) {
    %Prefix = /me
    if ($1 == /me) %1 = $right(%1,$calc($len(%1) - 3))
    else %1 = $right(%1,$calc($len(%1) - 7))
  }
  %Prefix $iif(%quote.status = on,$qcolor(%1),%1) %End
  if (%3 != $null) {
    %2 = %2 %End
    if (($isodd($count(%2,"))) && ($iseven($count(%1,"))) && (%quote.status = on))  {
      %3 = 05 $+ %3
    }
    .timerCuttxt3 1 2 %Prefix %New $iif(%quote.status = on,$qcolor(%3),%3)
  }
  if (($isodd($count(%1,"))) && (%quote.status = on))  {
    %2 = 05 $+ %2
  }
  .timerCuttxt2 1 1 %Prefix %New $iif(%quote.status = on,$qcolor(%2),%2)
  halt
}
alias iseven return $iif(2 // $1,$true,$false)
alias isodd return $iif(!$iseven($1),$true,$false)