This can colour you text in a rainbow sequence. Just load into your remotes (Alt+R).
When loaded right click and then select under "rainbow" one of for options.
"text On" will colour the font in a rainbow sequence
"text background On" will colour the font and background colour in a rainbow sequence.
"Colour Off" turns both of these colours off.
note that "text On" and "text background On" can only colour a certain number of characters and will uncolour the text if it is too much. (It doesnt seem to be much of a concern anymore tho)
on *:input:#: {
if (%rainbowtexton) && (!$istok(! $chr(47),$left($1,1),32)) {
var %r1 1
var %rainbownupt 1
var %nintext $len($1-) + 1
var %rainboworder 4,7,8,9,11,6,13
while (%r1 < %nintext) {
if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,$gettok(%rainboworder,%rainbownupt,44) $+ $mid($1-,%r1,1),0) | inc %rainbownupt $iif(%rainbownupt = 7,-6,1) }
else { var %msgrbw %msgrbw $chr(32) }
inc %r1
}
say %msgrbw
haltdef
}
elseif (%rainbowtextandbackgroundon) && (!$istok(! $chr(47),$left($1,1),32)) {
var %r1 1
var %rainbownupt 1
var %nintext $len($1-) + 1
var %rainboworder 6,04.13,07.11,08.3,09.8,11.7,13.4,06
while (%r1 < %nintext) {
if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,$gettok(%rainboworder,%rainbownupt,46) $+ $mid($1-,%r1,1),0) }
else { var %msgrbw %msgrbw $+ $gettok(%rainboworder,%rainbownupt,46) $chr(32) }
inc %r1
inc %rainbownupt $iif(%rainbownupt = 7,-6,1)
}
say %msgrbw
haltdef
}
}
menu channel {
-
Rainbow
.Text On:{
unset %rainbowtextandbackgroundon
set %rainbowtexton 1
;echo -a Rainbow text turned on
}
.Text + Background On:{
unset %rainbowtexton
set %rainbowtextandbackgroundon 1
;echo -a Rainbow text and background colour turned on
}
.Colour Off:{
unset %rainbowtexton
unset %rainbowtextandbackgroundon
;echo -a Rainbow text, and Rainbow text with background colour turned off
}
-
}