Rainbow Script by Roy911

Insert into Remotes

Usage:
//echo $rainbow(asdf)
would return asdf in rainbow colors.

/*

Rainbow Script by Roy911
irc.abxy.org:#Roy911

Usage:
//echo $rainbow(asdf)
would return asdf in rainbow colors.
*/

alias rainbow {
  var %text = $1-
  var %text = $replace(%text,$chr(32),$chr(95))
  var %len = $len($1-)
  var %color.pos = 1
  var %pos = 1
  while (%len != 0) {
    if (%color.pos == 7) { var %color.pos = 1 }
    if (%color.pos == 1) { var %color = 4 }
    if (%color.pos == 2) { var %color = 7 }
    if (%color.pos == 3) { var %color = 8 }
    if (%color.pos == 4) { var %color = 3 }
    if (%color.pos == 5) { var %color = 2 }
    if (%color.pos == 6) { var %color = 6 }
    var %return = %return $+  $+ %color $+ $mid($1-,%pos,1) $+ 
    inc %color.pos 1 | dec %len 1 | inc %pos 1 | var %color $null
  }
  var %return = $replace(%return,$chr(95),$chr(32))
  var %return =  $+ %return $+ 
  return %return
  ;echo $active %return 
  ;msg $active %return
}