home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HaCKeRz KrOnIcKLeZ 3
/
HaCKeRz_KrOnIcKLeZ.iso
/
scriptz
/
cv.txt
< prev
next >
Wrap
Text File
|
1996-04-23
|
941b
|
32 lines
...%G%... Color Vowel 1.0 C0rTeX '97 ...%G%...
*** Place in Aliases:
/cv {
if status isin $active { echo 6 *** This command does not work in status. | halt }
if $1 == $null { echo 6 *** Usage: /cv [<color(red,blue)>] [<text>] | halt }
if *2 == $null { echo 6 *** Usage: /cv [<color(red,blue)>] [<text>] | halt }
if $1 == red { goto red }
if $1 == blue { goto blue }
:red
set %c.red *2
%c.red = $replace(%c.red,a,4a)
%c.red = $replace(%c.red,e,4e)
%c.red = $replace(%c.red,i,4i)
%c.red = $replace(%c.red,o,4o)
%c.red = $replace(%c.red,u,4u)
%c.red = $replace(%c.red,y,4y)
say %c.red
halt
:blue
set %c.blue *2
%c.blue = $replace(%c.blue,a,12a)
%c.blue = $replace(%c.blue,e,12e)
%c.blue = $replace(%c.blue,i,12i)
%c.blue = $replace(%c.blue,o,12o)
%c.blue = $replace(%c.blue,u,12u)
%c.blue = $replace(%c.blue,y,12y)
say %c.blue
halt
}