home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
hypsh40b.arj
/
HYPDEVEL.LZH
/
EFFECTS.HSI
< prev
next >
Wrap
Text File
|
1991-04-24
|
1KB
|
106 lines
.REMARK
Example effects and subroutines
.SCRIPT Example
Vx=1
Vy=1
-- clear screen
i~X1~Y1~a~X79~Y24~b6
LEXP
Vj=80-x
Vk=25-y
i~X$x~Y$y~a~X$j~Y$k~DK~b1~DT
Vx=x+1
Vy=y+1
vy12;jeXOUT
JEXP
LXOUT
i~X$x~Y$y This is an example of what we can do with box drawings
i~X$x~d What else can we do with boxes - wait and see
Y&G200
LEXP2
Vj=80-x
Vk=25-y
i~DT~X$x~Y$y~a~X$j~Y$k~b7
Vx=x-1
Vy=y-1
vy0;jeDOWIN
JEXP2
LDOWIN
i~X1~Y1~a~X79~Y24~DD~b6
-- i~X1~Y1~a~X78~Y24~b6
Vx=1;Vy=1
LWINS
Vs&N$xKJMUVSWALP
Vj=x+10
Vk=y+4
-- i~X$x~Y$y~a~X$j~Y$k~D$s~b3~DT
i~X$x~Y$y~a~X$j~Y$k~D$s~b3
iHi there
iThis is
ia window
Zr
Vx=x+8
Vy=y+2
vy18;jgNEXT
JWINS
LNEXT
Y&G400
y
.
.REMARK
---------------------------------------------
Various scripts for effects on frames
.SCRIPT IMPLODE
-- call using SIMPLODE(framename)
ZJIMPLODE
F$\
q
+EXPLODE
.
.SCRIPT WIPE
-- call using SWIPE(framename)
ZJWIPE
F$\
q
+EXPLODE
.
.SCRIPT EXPLODE
-- call using SEXPLODE(framename)
ZJEXPLODE
F$\
q
-- explode to screen
LEXPLODE
VA=33
VB=11
LEXP2
VC=80-A
VD=25-B
i~DT~X$A~Y$B~a~X$C~Y$D~b7
VA=A-3
VB=B-1
vB0;jnEXP2
ZE
-- Curtains
LIMPLODE
VA=1
LIMP2
VB=81-A
i~DG~X$A~Y1~a~X$B~Y24~b1
VA=A+1
vA39;jnIMP2
ZE
-- Wipe
LWIPE
VA=3
LWIP2
i~DG~X1~Y1~a~X$A~Y24~b6
VA=A+1
vA80;jnWIP2
ZE
-- clear screen
LCLEARSCR
i~X1~Y1~a~X79~Y24~b6
ZE
.