Sorry your browser is not supported!

 sync on
load image "cave02.bmp",1
load image "moss03.bmp",2
autocam off
fog off
x=0
y=0
rand=500
make matrix 1,10000,10000,25,25
randomize matrix 1,rand
prepare matrix texture 1,2,1,1
for t=1 to 10
make object cube t,1000
position object t,x,0,y
x=x+1000
texture object t,1
next t
for t2=11 to 21
make object cube t2,1000
position object t2,x,0,y
y=y+1000
texture object t2,1
next t2
x=x-1000
y=y-1000
for t3=22 to 32
make object cube t3,1000
position object t3,x,0,y
x=x-1000
texture object t3,1
next t3
x=x+2000
for t4=33 to 43
make object cube t4,1000
position object t4,x,0,y
y=y-1000
texture object t4,1
next t4
make object cube 50,200
obx#=rnd(10000)
obz#=rnd(10000)
oby#=get ground height(1,obx#,obz#)
text 200,200,str$(obx#)
text 300,300,str$(obx#)
position object 50,obx#,oby#,obz#
position camera 5000,0,5000
x#=camera position x()
z#=camera position z()
y#=get ground height(1,x#,z#)+10
position camera x#,y#,z#
rem MAIN LOOP
do
if upkey()=1 then move camera 20
if downkey()=1 then move camera -20
If Leftkey()=1 then Yrotate Camera Wrapvalue(caY#-5)
If Rightkey()=1 then Yrotate Camera Wrapvalue(caY#+5)
x#=camera position x()
z#=camera position z()
caY#= Camera angle Y()
x#=camera position x()
z#=camera position z()
y#=get ground height(1,x#,z#)+10
if inkey$()="x"
position camera x#,3000,z#
pitch camera down 90
sleep 1000
pitch camera up 90
endif
oldx#=x#
oldz#=z#
if x#>obX#-100 and x#oby#-100 and y# 9490 then x#=oldx#
if z# 9490 then z#=oldz#
text 10,10,"y = "+str$(y#)
text 10,30,"x = "+str$(oldx#) 
text 10,50,"z = "+str$(oldz#)	
position camera x#,y#,z#
text 10,70,"obx = "+str$(obx#)
text 10,90,"obz = "+str$(obz#)
text 10,110,"oby = "+str$(oby#)
sync
loop

if inkey$()="x"
position camera x#,3000,z#
pitch camera down 90
sleep 1000
pitch camera up 90
endif