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