Miscellany

#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 ) || ( $group(#emo) == on ) { Return }
  if ($1 == Font= ) && ( $2 == white ) set %colour 00
  if ($1 == Font= ) && ( $2 == null ) set %colour
  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 == gray ) set %colour 15 
  if ( $1 == =v ) && ($2 != $null) { mode $chan +v $2 | halt }    
  if ( $1 == -v ) && ($2 != $null) { mode $chan -v $2 | halt }
  if ( $1 == =h ) && ($2 != $null) { mode $chan +h $2 | halt }
  if ( $1 == -h ) && ($2 != $null) { mode $chan $1 $2 | halt }
  if ( $1 == =o ) && ($2 != $null) { mode $chan +o $2 | halt }
  if ( $1 == -o ) && ($2 != $null) { mode $chan $1 $2 | halt }
  if ( $1 == =u ) && ($2 != $null) { mode $chan +u $2 | halt }
  if ( $1 == -u ) && ($2 != $null) { mode $chan -u $2 | halt }
  if ( $1 == =b ) && ($2 != $null) { mode $chan +b $address($2,2) | halt }
  if ( $1 == -b ) && ($2 != $null) { mode $chan $1 $address($2,2) | halt }
  if ( $1 == =v ) && ($2 == $null) { mode $chan +v $me | halt }    
  if ( $1 == -v ) && ($2 == $null) { mode $chan -v $me | halt }
  if ( $1 == =h ) && ($2 == $null) { mode $chan +h $me | halt }
  if ( $1 == -h ) && ($2 == $null) { mode $chan $1 $me | halt }
  if ( $1 == =o ) && ($2 == $null) { mode $chan +o $me | halt }
  if ( $1 == -o ) && ($2 == $null) { mode $chan $1 $me | halt }
  if ( $1 == =u ) && ($2 == $null) { mode $chan +u $me | halt }
  if ( $1 == -u ) && ($2 == $null) { mode $chan -u $me | halt }
  if ( $1 == =b ) && ($2 == $null) { mode $chan +b $address($me,2) | halt }
  if ( $1 == -b ) && ($2 == $null) { 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 == =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 == =l ) { mode $chan +l $2 | halt  }
  if ( $1 == -l ) { mode $chan -l | 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 == nou) { msg $chan  $+ $replace($1,n,Ñ,o,$read(o.txt),u,$read(u.txt))   $2- | halt }
  if ( $1 ison $chan ) { msg $active $replace($1,$1,5 $+ [14 $+ $1 $+ 5 $+ ]]:)  $+ %colour $2- | halt }
  if (%colour != $null) set %line $replace($1-,$1-, $+ %colour $+ $1-)
  if ($chan != #class) { say %line | halt }
  unset %line
}
#fontchange end


--

on *:INPUT:*: { if (DeFont isin $1 ) { disable #fontchange | halt }
  if (EnFont isin $1 ) { Enable #fontchange | halt }
}