home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / cn.txt < prev    next >
Text File  |  1996-04-23  |  971b  |  31 lines
  1. %G% Consonant colors %G%
  2.  
  3. *** Place in aliases:
  4.  
  5. /cn {
  6.   if status isin $active { echo 6 *** This is the status window, this does not work here. | halt }
  7.   if $1 == $null { echo 6 *** Usage: /cn <color> <text> color(s): (red,blue) | halt }
  8.   if *2 == $null { echo 6 *** Usage: /cn <color> <text> color(s): (red,blue) | halt }
  9.   if $1 == red  { goto red }
  10.   if $1 == blue { goto blue }
  11.   :red
  12.   set %cn.red *2
  13.   %cn.red = $replace(%cn.red,a,a4)
  14.   %cn.red = $replace(%cn.red,e,e4)
  15.   %cn.red = $replace(%cn.red,i,i4)
  16.   %cn.red = $replace(%cn.red,o,o4)
  17.   %cn.red = $replace(%cn.red,u,u4)
  18.   %cn.red = $replace(%cn.red,y,y4)
  19.   say %cn.red
  20.   halt
  21.   :blue
  22.   set %cn.blue *2
  23.   %cn.blue = $replace(%cn.blue,a,a12)
  24.   %cn.blue = $replace(%cn.blue,e,e12)
  25.   %cn.blue = $replace(%cn.blue,i,i12)
  26.   %cn.blue = $replace(%cn.blue,o,o12)
  27.   %cn.blue = $replace(%cn.blue,u,u12)
  28.   %cn.blue = $replace(%cn.blue,y,u12)
  29.   say %cn.blue
  30.   halt
  31. }