Sorry your browser is not supported!

x#=object position(1)
y#=object position(1)
z#=object position(1)
position camera x#,y#+50,z#
point camera x#,y#,z#

      hide mouse
      sync rate 0
      sync on

      backdrop on
      color backdrop 0
      make object cube 1,1
      hide object 1
      yrotate object 1,360
      make matrix 1,5000,5000,50,50
      randomize matrix 1,50

      make object cube 10,20


      do
      control()
      camera()
      text 5,5,Str$(joystick x())
      text 5,35,Str$(joystick y())
      text 5,65,Str$(joystick z())
      sync
      loop


      function control()
      if leftkey()=1 or joystick X()<-600 then roll object left 10,1 : roll camera left 1
      if rightkey()=1 or joystick X()>600 then roll object right 10,1 : roll camera right 1
      if upkey()=1 or joystick Y()<-600 then pitch object down 10,1 : pitch camera down 1
      if downkey()=1 or joystick Y()>600 then pitch object up 10,1 : pitch camera up 1
      if shiftkey()=1 then move object 10,5
      move object 10,(joystick z()-joystick z()*2)/100
      endfunction

      function camera()
      position object 1,object position x(10),object position y(10),object position z(10)
      rotate object 1,object angle x(10),object angle y(10),object angle z(10)
      move object 1,-50
      move object up 1,30
      set camera to follow object position x(1), object position y(1), object position z(1), object angle x(10), 0, 0, 6.0, 0
      point camera object position x(10),object position y(10)+30,object position z(10)
      endfunction

`setup
sync on
sync rate 0
hide mouse

`variables
health#=100

`make player
make object cube 1,100
set object rotation zyx 1
color object 1,rgb(255,0,0)

`make a light for the player
make light 1 : color light 1,rgb(255,255,0)

`make matrix
make matrix 1,15000,15000,25,25
randomize matrix 1,1300
set matrix 1,1,1,1,1,1,1,1

`texture matrix
create bitmap 1,50,50
set current bitmap 1
ink rgb(0,200,0),rgb(0,200,0)
for x=1 to 50
for y=1 to 50
dot x,y
next x
next y
get image 1,0,0,50,50
set current bitmap 0
delete bitmap 1
prepare matrix texture 1,1,1,1

`ambience
fog on
fog distance 3000
color backdrop 0
set camera range 1,9999999999

`))Main Loop((
Do

`Control Player
if upkey()=1
xd#=newxvalue(xd#,a#,10.0)
zd#=newzvalue(zd#,a#,10.0)
endif
if downkey()=1
xd#=newxvalue(xd#,a#,-10.0)
zd#=newzvalue(zd#,a#,-10.0)
endif
if leftkey()=1 then a#=wrapvalue(a#-3.0)
if rightkey()=1 then a#=wrapvalue(a#+3.0)

`Curvy movement
x#=curvevalue(xd#,x#,20.0)
z#=curvevalue(zd#,z#,20.0)

`Get points around player
out#=1
y#=get ground height(1,x#,z#)+50
frontx#=newxvalue(x#,a#,out#)
frontz#=newzvalue(z#,a#,out#)
backx#=newxvalue(x#,wrapvalue(a#+180),out#)
backz#=newzvalue(z#,wrapvalue(a#+180),out#)
leftx#=newxvalue(x#,wrapvalue(a#-90),out#)
leftz#=newzvalue(z#,wrapvalue(a#-90),out#)
rightx#=newxvalue(x#,wrapvalue(a#+90),out#)
rightz#=newzvalue(z#,wrapvalue(a#+90),out#)

`Get heights of these points
front#=get ground height(1,frontx#,frontz#)
back#=get ground height(1,backx#,backz#)
left#=get ground height(1,leftx#,leftz#)
right#=get ground height(1,rightx#,rightz#)

`rotate player
axd#=wrapvalue((back#-front#)*30)
azd#=wrapvalue((right#-left#)*30)
ax#=wrapvalue(curveangle(axd#,ax#,10.0))
az#=wrapvalue(curveangle(azd#,az#,10.0))

`update player
rotate object 1,ax#,a#,az#
position object 1,x#,y#,z#

`update player light
position light 1,x#,y#,z#

`Control Camera
ca#=wrapvalue(curveangle(a#,ca#,60.0))
cx#=newxvalue(x#,ca#,-400)
cz#=newzvalue(z#,ca#,-400)
cy#=y#+200
position camera cx#,cy#,cz#
yrotate camera wrapvalue(ca#)
point camera x#,y#+25,z#

`Lower health (for no reason at all)
dec health#,0.5
if health#<0 then health#=100 : dec health#
ink rgb(0,128,255),0
box object screen x(1)-health#/2,object screen y(1)+10,(object screen x(1)-health#/2)+health#,object screen y(1)+25
ink rgb(0,0,0),0
set text font "tahoma"
set text size 20
set text to normal
center text object screen x(1),object screen y(1)+10,"Health"


`))End Loop((
sync
Loop