on *:INPUT:*:{
  if (%rainbowtexton == 1) && ($left($1,1) != /) {
    var %r1 1
    var %nintext $len($1-) + 1
    while (%r1 < %nintext) {
      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,04 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,07 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,13 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,09 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,12 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,06 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1

      if ($mid($1-,%r1,1) != $chr(32)) { var %msgrbw $addtok(%msgrbw,13 $+ $mid($1-,%r1,1),0) }
      else { var %msgrbw %msgrbw $chr(32) }
      inc %r1
    }
    say %msgrbw
    haltdef
  }

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

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,04 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 6,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,07 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 13,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,13 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 12,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,9 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 3,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,11 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 8,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,8 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 7,01 $chr(32) }
      inc %r2

      if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,0 $+ $chr(44) $+ 01 $+ $mid($1-,%r2,1),0) }
      else { var %msgrbw2 %msgrbw2 $+ 4,01 $chr(32) }
      inc %r2
    }
    say %msgrbw2
    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
  }
  -