autocam off
sync on
sync rate 60
color backdrop 100
hide mouse
make matrix 1,4000/25,30000,1,25
make matrix 2,4000,4000/25,25,1
make matrix 3,30000/25,800,1,25
make matrix 4,50000/25,800,1,25
make matrix 5,10000/25,800,1,25
make matrix 6,50000/25,800,1,25
make matrix 7,40000/25,800,1,25
position matrix 3, 2000,50,-100
position matrix 4, 1600,50,-100
position matrix 5, 3500,50,-100
position matrix 6, 1000,50,-100
position matrix 7, 0,50,-100
position camera 4000,100,10
for z=2 to 25
ang=ang+40
for x=0 to 1
y#=700*sin(ang)
set matrix height 1,x,z,y#
next x
next z
update matrix 1
update matrix 2
make object sphere 1,20
scale object 1, 100,100,-200
do
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -10.0
if leftkey()=1 then angley#=wrapvalue(angley#-2.0)
if rightkey()=1 then angley#=wrapvalue(angley#+2.0)
xrotate camera 0.0
yrotate camera angley#
zrotate camera 0.0
rem get ground height for camera height
camy#=get ground height(1,camera position x(),camera position z())
position camera camera position x(),camy#+20,camera position z()
text 0,0,str$(camy#)
sync
loop
Well its not much but just wanted to update, as of now, i'm working on walls.
"You can't expect to wield supreme executive power just because some watery tart throws a sword at you..."