All pastes #2050077 Raw Edit

Text Script for Aizen to clean

public text v1 · immutable
#2050077 ·published 2011-04-24 12:58 UTC
rendered paste body

#colors2 off
on *:input:*: {
  if ($left($1,1) != /) {
    say $colors2($1-)}
    halt
  }
}
#colors2 end
menu * {
  &colors2
  .on:/enable #colors2
  .off:/disable #colors2
}
alias colors2 {
  var %color1 = 4,1 
  var %color2 = 9,1
  var %i = 1, %count = $numtok($1-,32)
  while (%i <= %count) {
    var %c = $gettok($1-,%i,32), %text = %text $+(%color1 $+ ,$left(%c,1),%color2 $+ ,$mid(%c,2,$len(%)),%color2 $+ ,$mid(%c,3,$len(%)),%color1 $+ ,$mid(%c,4,$len(%)),%color2 $+ ,$mid(%c,5,$len(%)),%color2 $+ ,$mid(%c,6,$len(%)),%color1 $+ ,$mid(%c,7,$len(%)),%color2 $+ ,$mid(%c,8,$len(%)),%color2 $+ ,$mid(%c,9,$len(%)),%color1 $+ ,$mid(%c,10,$len(%c)), %color2 $+ ,$end(%c)))
    inc %i
  }
  return %text
}