Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:input:#: {
- if (%rainbowtexton) && (!$istok(! $chr(47),$left($1,1),32)) {
- var %r1 1
- var %rainbownupt 1
- var %nintext $len($1-) + 1
- var %rainboworder 8,9,8,9,8,8
- 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 8,01.9,01.8,01.9,01.8,01.9,01.8,01
- 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
- }
- -
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement