;Ranbow Text Script

;June 2002 - Slight Changes Sept 2003

;By

;Chris shaw@ http://chrisshaw.cjb.net

;Also Robert Naylor (Pobice)@http://pobice.co.uk

menu channel {

  %rainbow_ON :/rainbow

}

alias Rainbow {

  If (%rainbow_ON = $style(0) Rainbow Text) { /set %rainbow_ON $style(1) Rainbow Text }

  Else { /set %rainbow_ON $style(0) Rainbow Text }

}

alias bowcleanup {

  /unset %text

  /unset %textpro

  /unset %textcount

  /unset %textrand

  /unset %testright

  /unset %testleft

  /unset %randnum

  /unset %textnew

  /unset %textsay

}

on 1:INPUT:*:{

  If (%rainbow_ON == $style(0)  Rainbow Text) {

    if ($1 == -rbt ) set %text $2-

    else { GOTO ONE }

  }

  else { if ($1 == -rbt ) set %text $2-

    else set %text $1-

  }

  If (/ isin %text) GOTO one

  if (%text isnum) GOTO one

  /set %textpro 0

  :THREE

  ;change the processing value here

  If (%textpro => 6) GOTO Four

  :FIVE

  /set %textcount $len(%text)

  if ($left(%text,1) isnum) {

    /set %textrand $rand(1,%textcount)

    GOTO six

  }

  if (%textpro == 0) /set %textrand $len(%text)

  Else /set %textrand $rand(1,%textcount)

  :SIX

  /set %testright $right(%text,%textrand)

  /set %testleft $left(%testright,1)

  if (%testleft isnum) GOTO FIVE

  if (%testleft == $chr(32)) GOTO FIVE

  :two

  /set %randnum $rand(2,13)

  If (%randnum == 8) Goto two

  /set %textnew  $+ %randnum $+ %testleft

  //set %textsay $replace(%text,%testleft,%textnew)

  /set %text %textsay

  /inc %textpro

  GOTO THREE

  :FOUR

  /say %textsay

  /bowcleanup

  /halt

  :one

  /bowcleanup

}

on 1:LOAD:/set %rainbow_ON $style(1) Rainbow Text