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
}
-
}
Thanks in advance