home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.BIN
/
magazin
/
optix
/
disk1
/
optxppac.set
/
TOMATO.OPT
< prev
next >
Wrap
Text File
|
1995-03-22
|
2KB
|
77 lines
def(i)
def(j)
def(flg)
def(k)
def(mx,320)
def(my,120)
def(x)
def(y)
defs(mid$)
defs(dum$)
defs(ins$,'1')
begin
readsound('zusch.snd')
readpic('tomate.bmp')
setallpal
sysfont(3,1)
clearscreen(6)
keycol(255)
key(on)
dum$:='-----------------------------------'
for j:=0 to 4 do
for i:=0 to 6 do
viewport(20+i*80,20+j*80,20+i*80+74,20+j*80+70)
plateau(15,0)
decviewport
plateau(15,0)
next(i)
next(j)
setcolor(0)
printc(320,454,'vektorkontrolliertes Zufallsraster')
printc(320,470,'ohne Doppelbelegung')
setcolor(0)
setbcolor(15)
j:=0
repeat
random(7,x) Zufalls-X-Koord.
random(5,y) Zufalls-Y-Koord.
mid$:=dum$
mid(mid$,y*7+x+1,1) entsprechenden Vektoreintrag holen
val(mid$,k,flg) in num. Wert wandeln
if k<>1
startsound
for i:=0 to 11 do
pause(20)
loadsprite(i*32+1,0,40+x*80,40+y*80,31,31)
next(I)
for i:=0 to 3 do
pause(20)
loadsprite(i*64+1,32,24+x*80,24+y*80,63,63)
next(I)
delete(dum$,y*7+x+1,1) für neuen Eintrag Platz machen
i:=y*7+x+1
insert(ins$,dum$,i) Vektorplatz ist ab jetzt belegt
viewport(20+x*80,20+y*80,20+x*80+74,20+y*80+70)
plateau(0,15)
decviewport
plateau(0,15)
printc(320,430,'VEKTOR: '+dum$) zur Kontrolle ausgeben
inc(j,1)
endif
until j>=35
pause(5000)
end