home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
optix
/
disk2
/
optxfpac.set
/
KACHEL.INC
< prev
next >
Wrap
Text File
|
1995-04-05
|
476b
|
19 lines
procedure kachel
rem** produziert aus dem aktuellen Winpuffer-Inhalt einen kachelartigen
rem** Bildschirmhintergrund mit Relief-Effekt (verändert WinPuffer)
locals(qx,qy,i,j)
random(winx/2,qx)
random(winy/2,qy)
for I:=0 to 19 do
loadsprite(qx,qy,2+i*32,2,28,20)
viewport(2+i*32,2,2+i*32+28,22)
plateau(7,0)
incviewport
plateau(7,0)
next(i)
copywin(0,0,xmax,24)
for I:=0 to 19 do
loadwin(0,i*24,0,0)
next(i)
return