home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk1
/
optxppac.set
/
WILLY.OPT
< prev
next >
Wrap
Text File
|
1995-04-27
|
2KB
|
97 lines
def(a)
def(b)
def(c)
def(k)
def(j)
def(n)
def(x,100)
def(y,25)
def(o,14)
def(l,10)
begin
readsound('capumusi.snd')
readwin('willi.pcx')
setallpal
readfont(1,'hel15x29.fnt')
clearscreen(8)
keycol(243)
setcolor(243)
viewport(0,20,639,125)
cbox(3,243,100)
viewport(0,175,639,280)
cbox(4,243,100)
scrtobuf
startsound
soundloop(1)
b:=1
c:=b
do
for a:=0 to 31 do
viewport(5+a*20+(c-b)*20,160,15+a*20+(c-b),170)
cbox(0,115,0)
viewport(5+a*20+(c-b)*20,130,15+a*20+(c-b),140)
cbox(0,115,0)
viewport(5+a*20+(c-b)*20,285,15+a*20+(c-b),295)
cbox(0,115,0)
viewport(5+a*20+(c-b)*20,5,15+a*20+(c-b),15)
cbox(0,115,0)
viewport(5+a*20+(c-b)*20,315,15+a*20+(c-b),325)
cbox(0,115,0)
viewport(5+a*20+(c-b)*20,440,15+a*20+(c-b),450)
cbox(0,115,0)
viewport(5,330,115,435)
cbox(0,243,0)
viewport(125,330,235,435)
cbox(0,243,0)
viewport(265,330,375,435)
cbox(0,243,0)
viewport(405,330,515,435)
cbox(0,243,0)
viewport(525,330,635,435)
cbox(0,243,0)
next(a)
loop(b)
key(0)
font(1)
textcofs(2)
textcolor(115)
textbcolor(172)
textshadow(2,2)
writestyle(3)
printc(320,465,'WILLI der Wegweiser')
repeat
k:=o
n:=k
do
rotpal(115,121)
for j:=0 to 3 DO
viewport(0,25,639,120)
restorebox(0,0)
loadsprite(j*85,97,j*10+(n-k)*40,y,86,95)
viewport(0,176,639,279)
restorebox(0,0)
loadsprite(j*85,0,535-j*10-(n-k)*40,y+155,86,95)
loadsprite(j*85,97,15,335,86,95)
loadsprite(j*85,0,535,335,86,95)
loadsprite(170+(j*85),289,135,335,86,95)
loadsprite(170+(j*85),385,415,335,86,95)
loadsprite(170+(j*85),193,275,335,86,95)
next(j)
loop(k)
until keypressed<>mousek
end