Public paste
Special for armani
By: mike-creator | Date: Sep 19 2006 05:46 | Format: None | Expires: never | Size: 423 B | Hits: 1604

  1. alias changecolor {
  2.   unset %text2
  3.   var %text = $1-
  4.   var %i = 1
  5.   while (%i <= $len(%text)) {
  6.     set %text2 $addtok(%text2,$changecolor2($mid(%text,%i,1)),0)
  7.     inc %i
  8.   }
  9.   echo -ag %text2
  10. }
  11. alias changecolor2 {
  12.   if ($1 == $chr(40)) { return 7 $+ $chr(40) }
  13.   elseif ($1 == $chr(41)) { return 7 $+ $chr(41) }
  14.   elseif ($1 isupper) { return 15 $+ $1- }
  15.   elseif ($1 islower) { return 14 $+ $1- }
  16. }
  17.