on *:INPUT:*:{
  if (%rainbowtexton == 1) && ($left($1,1) != /) {
    unset %msgrbw
    var %r1 1
    set %nintext $len($1-) + 1
    while (%r1 < %nintext) {

      set %msgrbw %msgrbw $+  $+ 04 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 07 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 08 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 09 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 12 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 06 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

      set %msgrbw %msgrbw $+  $+ 13 $+ $mid($1-,%r1,1)
      if ($mid($1-,%r1,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
      inc %r1

    }
    say %msgrbw
    unset %msgrbw
    unset %nintext
    halt
  }

  elseif (%rainbowtextandbackgroundon == 1)  && ($left($1,1) != /) {
    unset %msgrbw2
    var %r2 1
    set %nintext2 $len($1-) + 1
    while (%r2 < %nintext2) {

      set %msgrbw2 %msgrbw2 $+  $+ 06,04 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 13,07 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 12,08 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 03,09 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 08,12 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 07,13 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
      inc %r2

      set %msgrbw2 %msgrbw2 $+  $+ 04,06 $+ $mid($1-,%r2,1)
      if ($mid($1-,%r2,1) == $chr(32)) { set %msgrbw22 %msgrbw2 $chr(32) }
      inc %r2


    }
    say %msgrbw2
    unset %msgrbw2
    unset %nintext2
    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
  }
  -
}