Alias Name: Random Color Line Generator

Purpose: Color text, making each line a different color chosen at random.

________ what to do _______________________________

Copy the lines below to your aliases section.
  
	Note: DO NOT CHANGE THE LENGTH OF THE LINES even if
	the lines are longer than your screen width!  You 
	should be viewing this file with NotePad and NOT with
	a regular wordprocessor.  Turn OFF all line wrap func-
	tions, mark the text below as a block, and paste it
	anywhere in your aliases section.

_______copy below here, but not this line __________


/rnd { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
  :start
  %U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2) 
  %DaMan =  
  if %u == 1 { %DaMan = $remove(%daMan,) }
  if %b == 1 { %DaMan = $remove(%DaMan,) }
  if %R == 1 { %DaMan = $remove(%DaMan,) }
  if $mid(%num,1, *1) != $null {
    if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
    if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
    inc %num 
  goto start  }
  say %msg
}
_______ do not paste this line _____________________

To use:

At the beginning of a blank line type: /rnd <text> <enter>

_______ credits ____________________________________

Sorry... I do not know who originally wrote this script.  If 
you find out, please let me know and I will be glad to so
document.