Mine

;Alt+R, Remotes, new file. Save it as 'fontchanger' when done. remove the '#'s in between lines if ;there are any.
'#fontchange on
on *:input:*: { 
  set %line $1-
  If ($left($1,1) == /) || ($left($1,1) == !) || ($left($1,1) == ' ) || ($left($1,1) == . ) || ($left($1,1) == @ ) || ( $1 == calc ) { Return }
  if ($1 == Font= ) && ( $2 == null ) set %colour 
  if ($1 == Font= ) && ( $2 == white ) set %colour 00
  if ($1 == Font= ) && ( $2 == black ) set %colour 01
  if ($1 == Font= ) && ( $2 == blue ) set %colour 02
  if ($1 == Font= ) && ( $2 == green ) set %colour 03
  if ($1 == Font= ) && ( $2 == red ) set %colour 04
  if ($1 == Font= ) && ( $2 == darkred ) set %colour 05
  if ($1 == Font= ) && ( $2 == purple ) set %colour 06
  if ($1 == Font= ) && ( $2 == orange ) set %colour 07
  if ($1 == Font= ) && ( $2 == yellow ) set %colour 08
  if ($1 == Font= ) && ( $2 == lime ) set %colour 09
  if ($1 == Font= ) && ( $2 == Teal ) set %colour 10
  if ($1 == Font= ) && ( $2 == cyan ) set %colour 11
  if ($1 == Font= ) && ( $2 == blue2 ) set %colour 12
  if ($1 == Font= ) && ( $2 == pink ) set %colour 13
  if ($1 == Font= ) && ( $2 == grey ) set %colour 14
  if ($1 == Font= ) && ( $2 == Othergrey ) set %colour 15 

  if (%colour != $null) set %line $replace($1-,$1-, $+ %colour $+ $1-)
) { say %line | halt }
  unset %line
}
#fontchange end
;Script 2. Save first one, open new script. paste this, and save as 'fontenabler'
on *:INPUT:*: { if (DeFont isin $1 ) { disable #fontchange | halt }
  if (EnFont isin $1 ) { Enable #fontchange | halt }
}