;Script Editor > remotes > New File
;Any Lines with just "#" please delete - they are an error due to pastebin.
#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 == 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 == =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 == =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 }
halt }
  if (%colour != $null) set %line $replace($1-,$1-, $+ %colour $+ $1-)
unset %line }
#fontchange end

on *:INPUT:#: { if (defont isin $1) disable #fontchange
if ($1 == enfont) enable #fontchange }
;Save As > "fontChanger"
;Copy the above, read the below.
;To use:
;Font= (colour here)
;Defont - Disables the script.
;Enfont - enables it.
;I also included my channel modes.
;-v nick To devoice
;=v nick to voice.
;Etc. Enjoy.