Mine

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

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

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

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

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

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

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

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


    }
    say %msgrbw
    unset %msgrbw
    halt
  }

  elseif (%rainbowtextandbackgroundon == 1)  && ($left($1,1) != /) {
    unset %msgrbw2
    set %r2 1
    while (%r2 < 115) {

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

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

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

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

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

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

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


    }
    say %msgrbw2
    unset %msgrbw2
    halt
  }

}

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
  }
  -
}