hope this help
SET DISPLAY MODE 800,600,16
sync on:SYNC RATE 30
`-----------------------------------MAKE GROUND TEXTURE------------
FOR X=0 TO 4
FOR Y=0 TO 4
ink rgb(RND(255),RND(255),RND(255)),1
box X*128,Y*128,128+X*128,128+Y*128
`SYNC
NEXT X
NEXT Y
GROUND_TEXTURE=1
get image GROUND_TEXTURE,1,1,512,512
`-----------------------------------MAKE ROOF TEXTURE------------
ROOF_TEXTURE=2
ink rgb(RND(255),RND(255),RND(255)),1
box 0,0,128,128
get image ROOF_TEXTURE,0,0,128,128
cls
GROUND=1
ROOF=2
`---------------------------------------MAKE GROUND--------------------
make matrix GROUND,1000,1000,15,15
PREPARE MATRIX TEXTURE GROUND, GROUND_TEXTURE,1,1
RANDOMIZE MATRIX GROUND,10
update matrix GROUND
`---------------------------------------MAKE ROOF OR SKY------------
make matrix ROOF,1000,1000,15,15
`RANDOMIZE MATRIX ROOF,10
PREPARE MATRIX TEXTURE ROOF, ROOF_TEXTURE,1,1
`-------------------------------------POSITION MATRIX----------
ROOF_POSX=0:ROOF_POSY=90:ROOF_POSZ=0:CAMX=500
position matrix ROOF,ROOF_POSX,ROOF_POSY,ROOF_POSZ
update matrix ROOF
do
`control camera using arrowkeys 0,3,3
IF UPKEY() THEN CAMZ=CAMZ+1
IF DOWNKEY() THEN CAMZ=CAMZ-1
IF LEFTKEY() THEN CAMX=CAMX-1
IF RIGHTKEY() THEN CAMX=CAMX+1
POSITION CAMERA CAMX,GET GROUND HEIGHT(GROUND,CAMERA POSITION X(),CAMERA POSITION Z())+20,CAMZ
sync
loop
this dont work well in DBP could be my ver of pro
You can do it if you try
