home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
STRICHMA.OPT
< prev
next >
Wrap
Text File
|
1995-04-29
|
2KB
|
96 lines
def(i)
def(j)
def(k)
def(l)
def(m)
def(n)
def(o)
defs(mid$)
defs(dum$)
begin
readfont(1,'hel15x29.fnt')
font(1)
dum$:='OPTIX Media Base'
readpic('strichm2.tga')
setallpal
gradation(100,204,12,12,12,55,55,55)
clearscreen(7)
loadwin(6,16,0,0)
viewport(0,1,639,15)
cbox(0,0,0)
viewport(0,103,639,119)
cbox(0,0,0)
for i:=0 TO 630 STEP 10 DO
viewport(i+1,4,i+7,12)
cbox(0,7,0)
viewport(i+1,107,i+7,115)
cbox(0,7,0)
next(i)
for i:=0 TO 77 DO
viewport(6+i*8,400,6+i*8+6,470)
cbox(0,120+i,0)
plateau(255,0)
next(i)
textcofs(3)
writestyle(3)
textshadow(2,1)
mid$:='Trickfilm-Technik (SPRITE-Modus)'
textw(mid$,i)
texth(j)
for k:=290+i/2 TO 280-i/2 STEP -4 DO
viewport(k,414,k+3,455)
cbox(0,210-k/7,0)
next(k)
viewport(284-i/2-5,414,290+i/2+5,420+j+5)
plateau(255,0)
viewport(550,360,613,466)
cbox(0,160,0)
plateau(255,0)
viewport(559,369,604,457)
plateau(0,255)
setcolor(0)
printat(285-i/2,420,'Trickfilm-Technik (SPRITE-Modus)')
setcolor(8)
line(0,381,639,255,0)
scrtobuf
l:=5
m:=100000
do
random(20,o)
textcolor(o)
k:=8
n:=k
do
for j:=0 TO 13 DO
if j<13
viewport(7+j*48,17,5+j*48+48,102)
cbox(13,0,0)
endif
pause(40)
viewport(j*l+(n-k)*l*14,300-j-(9-k)*14,9+j*l+(n-k)*l*14,386-j-(9-k)*14)
restorebox(0,0)
viewport(j*l+(n-k)*l*14,386-j-(9-k)*14,j*l+(n-k)*l*14+43,396-j-(9-k)*14)
restorebox(0,0)
loadsprite(j*48+2,1,10+j*l+(n-k)*l*14,300-j-(9-k)*14,43,86)
loadsprite((13-j)*48+2,1,560,370,43,86)
textbcolor(255)
writestyle(2)
if j<13
viewport(7+j*48,17,5+j*48+48,102)
cbox(13,0,0)
endif
next(j)
loop(k)
timeout('trickweiter',1)
goto('trickexit')
:trickweiter
viewport(10+j*l+(n-k)*l*14,300-j-(9-k)*14,10+j*l+(n-k)*l*14+43,300-j-(9-k)*14+86)
restorebox(0,0)
loop(m)
:trickexit
end