Description: add colors of the rainbow to your text! (to make fun of colors)

alias rainbow {
  var %line $replace($1-,$chr(32),$chr(160))
  var %i 0
  var %c 0
  var %temp $null
  var %len $len($1-)
  while %i <= $calc(%len - 1) {
    if %i == $int($calc((%len / 6) * %c)) {
      if %c == 0 { var %temp %temp $+ [^K]5 }
      if %c == 1 { var %temp %temp $+ [^K]7 }
      if %c == 2 { var %temp %temp $+ [^K]8 }
      if %c == 3 { var %temp %temp $+ [^K]3 }
      if %c == 4 { var %temp %temp $+ [^K]2 }
      if %c == 5 { var %temp %temp $+ [^K]6 }
      inc %c
    }
    inc %i
    var %temp %temp $+ $mid([ %line ],[ %i ],1)
  }
  return $replace([ %temp ],$chr(160),$chr(32))
}

Oops! You need to login or register before you can post a comment!