All pastes #168690 Raw Edit

Something

public text v1 · immutable
·published 2006-09-13 06:00 UTC
rendered paste body
;Alt+r to open script editor.. file-New to open a new remotes file.. Paste this one first.
;Save as fontchanger.
#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 == 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 == greyblue ) set %colour 10
  if ($1 == Font= ) && ( $2 == cyan ) set %colour 11
  if ($1 == Font= ) && ( $2 == pink ) set %colour 13
  if ($1 == Font= ) && ( $2 == grey ) set %colour 14
  if ($1 == Font= ) && ( $2 == Othergrey ) set %colour 15 
  set %line $replace($1-,$1-, $+ %colour $+ $1-)
  { say %line | halt }
  unset %line
}
#fontchange end

;-Remote File 2;
;Save As Fontenabler-
on *:INPUT:*: { if (DeFont isin $1 ) { disable #fontchange | halt }
  if (EnFont isin $1 ) { Enable #fontchange | halt }
}