Someone

#fontchange on
on *:input:*: { 
  set %line $1-
  If ($left($1,1) == /) || ($left($1,1) == !) || ($left($1,1) == $chr(59)) || ($left($1,1) == ' ) || ($left($1,1) == . ) || ($left($1,1) == @ ) || ( $1 == calc )  { Return } 
  if ($1 == Font=) {
    if ( $2 == white ) set %colour 00
    if  ( $2 == null ) set %colour
    if ( $2 == black ) set %colour 01
    if ( $2 == blue ) set %colour 02
    if ( $2 == green ) set %colour 03
    if ( $2 == red ) set %colour 04
    if ( $2 == darkred ) set %colour 05
    if ( $2 == purple ) set %colour 06
    if ( $2 == orange ) set %colour 07
    if ( $2 == yellow ) set %colour 08
    if  ( $2 == lime ) set %colour 09
    if ( $2 == Teal ) set %colour 10
    if ( $2 == cyan ) set %colour 11
    if ( $2 == blue2) set %colour 12
    if ( $2 == pink ) set %colour 13
    if ( $2 == grey ) set %colour 14
  if  ($2 == gray ) set %colour 15 }
  if ($2 != $null) {
    if ($1 == =v)  { mode $chan +v $2 | halt }    
    if ($1 == -v) { mode $chan -v $2 | halt }
    if ($1 == =h) { mode $chan +h $2 | halt }
    if ($1 == -h)  { mode $chan $1 $2 | halt }
    if ($1 == =o) { mode $chan +o $2 | halt }
    if ($1 == -o) { mode $chan $1 $2 | halt }
    if ($1 == =u) { mode $chan +u $2 | halt }
    if ($1 == -u) { mode $chan -u $2 | halt }
    if ($1 == =b) { mode $chan +b $address($2,2) | halt }
  if ($1 == -b)  { mode $chan $1 $address($2,2) | halt } }
  if ($2 == $null) {
    if ($1 == =v)  { mode $chan +v $me | halt }    
    if ($1 == -v) { mode $chan -v $me | halt }
    if ($1 == =h)  { mode $chan +h $me | halt }
    if ($1 == -h) { mode $chan $1 $me | halt }
    if ($1 == =o) { mode $chan +o $me | halt }
    if ($1 == -o) { mode $chan $1 $me | halt }
    if ($1 == =u) { mode $chan +u $me | halt }
    if ($1 == -u)  { mode $chan -u $me | halt }
    if ($1 == =b) { mode $chan +b $address($me,2) | halt }
  if ($1 == -b) { mode $chan $1 $address($me,2) | halt } }
  if ($1 == =m) { mode $chan +m | halt }
  if ($1 == -m) { mode $chan $1 | halt }
  if ($1 == =i) { mode $chan +i | halt }
  if ($1 == -i) { mode $chan $1 | halt }
  if ($1 == =a) { Mode $chan +a $2- | Halt }
  if ($1 == -a) { Mode $chan -a $2- | Halt }
  if ($1 == =ii) { mode $chan +I $address($2,2) | halt }
  if ($1 == -ii) { mode $chan -I $address($2,2) | halt }
  if ($1 == =e) && ($2 != $null) { mode $chan +e $address($2,2) | halt }
  if ($1 == -e) && ($2 != $null) { mode $chan $1 $address($2,2) | halt }
  if ($1 == =N) { mode $chan +N | halt }
  if ($1 == -N) { mode $chan -N | halt }
  if ($1 == =q) { mode $chan +Q | halt }
  if ($1 == -q) { mode $chan -Q | halt }
  if ($1 == =l) { mode $chan +l $2 | halt  }
  if ($1 == -l) { mode $chan -l | halt } 
  if ($1 == -c) { mode $chan -c | halt }
  if ($1 == =c) { mode $chan +c | halt }
  if ($1 == -s) { mode $chan -s | halt }
  if ($1 == =s) { mode $chan +s | halt }
  if ($1 == =e) && ($2 == $null) { mode $chan +e $address($me,2) | halt }
  if ($1 == -e) && ($2 == $null) { mode $chan $1 $address($me,2) | halt }
  if ($1 ison $chan) { msg $active $replace($1,$1,05-14 $+ $1 $+ 05-)  $+ %colour $+ $2- | halt }
  if (%colour != $null) set %line $replace($1-,$1-, $+ %colour $+ $1-)
  { say %line | halt }
unset %line }
#fontchange end


^^thats it