%G% Consonant colors %G%

*** Place in aliases:

/cn {
  if status isin $active { echo 6 *** This is the status window, this does not work here. | halt }
  if $1 == $null { echo 6 *** Usage: /cn <color> <text> color(s): (red,blue) | halt }
  if *2 == $null { echo 6 *** Usage: /cn <color> <text> color(s): (red,blue) | halt }
  if $1 == red  { goto red }
  if $1 == blue { goto blue }
  :red
  set %cn.red *2
  %cn.red = $replace(%cn.red,a,a4)
  %cn.red = $replace(%cn.red,e,e4)
  %cn.red = $replace(%cn.red,i,i4)
  %cn.red = $replace(%cn.red,o,o4)
  %cn.red = $replace(%cn.red,u,u4)
  %cn.red = $replace(%cn.red,y,y4)
  say %cn.red
  halt
  :blue
  set %cn.blue *2
  %cn.blue = $replace(%cn.blue,a,a12)
  %cn.blue = $replace(%cn.blue,e,e12)
  %cn.blue = $replace(%cn.blue,i,i12)
  %cn.blue = $replace(%cn.blue,o,o12)
  %cn.blue = $replace(%cn.blue,u,u12)
  %cn.blue = $replace(%cn.blue,y,u12)
  say %cn.blue
  halt
}