on *:INPUT:*:{
  if (%colourtxton == 1) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 15,0�|0,15�|14�|15,14�|1�|8,1 $1- 1,14|�15|�14,15|�0|�15,0|�
    haltdef
  }
  elseif (%colourtxton == 2) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 9,0�|0,9�|3�|9,3�|10�|11,10 $1- 10,3|�9|�3,9|�0|�9,0|�
    haltdef
  }
  elseif (%colourtxton == 3) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 11,0�|0,11�|12�|11,12�|2�|9,2 $1- 2,12|�11|�12,11|�0|�11,0|�
    haltdef
  }
  elseif (%colourtxton == 4) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 13,0�|0,13�|6�|13,6�|5�|4 $1- 5|�13|�6,13|�0|�13,0|�
    haltdef
  }
  elseif (%colourtxton == 5) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 8,0�|0,8�|7�|8,7�|4�|8,4 $1- 4,7|�8|�7,8|�0|�8,0|�
    haltdef
  }
  elseif (%colourtxton == 6) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say 4,0�|0,4|�7�|4,7|�8�|7,8|�9�|8,9|�11�|9,11|�13�|11,13|�6�|13,6|�13 $1- 13,6�|6,13|�11�|13,11|�9�|11,9|�8�|9,8|�7�|8,7|�4�|7,4|�0�|4,0|�
    haltdef
  }
  elseif (%colourtxton == 7) && ($left($1,1) != ! && $left($1,1) != / && $left($1,1) != `) {
    say $replacex($1-,$1-,%fcolour $+ $1- $+ %fcolour2)
    haltdef
  }
}

menu channel {
  -
  Text colourer
  .black+grey:{
    set %colourtxton 1
  }
  .green:{
    set %colourtxton 2
  }
  .blue:{
    set %colourtxton 3
  }
  .pink,purple:{
    set %colourtxton 4
  }
  .red,orange,yellow:{
    set %colourtxton 5
  }
  .rainbow:{
    set %colourtxton 6
  }
  .custom:{
    set %colourtxton 7
    set %fcolour $input(Change starting text too? (this appears BEFORE your text),eo,FRISHS font colour changer,%fcolour,text)
    set %fcolour2 $input(Change ending text too? (this appears AFTER your text),eo,FRISHS font colour changer ending,%fcolour,text)
  }
  .COLOUR OFF:{
    unset %colourtxton
    unset %fcolour
    unset %fcolour2
  }
  -
}