Sorry your browser is not supported!

rem Control player direction

POSITION CAMERA OBJECT POSITION X(player),OBJECT POSITION Y(player),OBJECT POSITION Z(player)


IF upkey()=1 THEN MOVE OBJECT player,move#
IF downkey()=1 THEN MOVE OBJECT player,-move#
IF RIGHTKEY()=1 THEN MOVE OBJECT RIGHT player,move#
IF LEFTKEY()=1 THEN MOVE OBJECT LEFT player,move#



CAMY#=CAMY#+MOUSEMOVEX()*.1

CAMX#=CAMX#+MOUSEMOVEY()*.1

IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90

IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90

YROTATE CAMERA CAMY#

XROTATE CAMERA CAMX#

YROTATE OBJECT player,CAMY#

XROTATE OBJECT player,CAMX#


newx#=object position x(player)
newy#=object position y(player)
newz#=object position z(player)


set camera to follow oldx#,oldy#,oldz#,ay1#,10,10,1,1

Sync On
Sync Rate 0
Hide Mouse
Backdrop On : Color Backdrop RGB(0,0,0)

Global Player As Integer = 2
Global Move As Float
Global PlrYAngle As Float
Global Strafe As Float
Global Speed As Float = 0.2
Global StrafeSpeed As Float = 0.2

Make Matrix 1,500,500,10,10
Make Object Sphere Player,50
Position Object Player,250,50,250

Do

   Player_Movement()

   Sync
Loop

Function Player_Movement()

   If Upkey() = 1
      Inc Move,Speed
   Endif
   If Downkey() = 1
      Dec Move,Speed
   Endif
   If Leftkey() = 1
      Dec Strafe,StrafeSpeed
   Endif
   If Rightkey() = 1
      Inc Strafe,StrafeSpeed
   Endif

   Inc PlrYAngle,MouseMoveX()/2

   Move Object Player,Move
   Move Object Right Player,Strafe
   YRotate Object Player,PlrYAngle

   Position Camera Object Position X(Player),Object Position Y(Player),Object Position Z(Player)
   Rotate Camera Camera Angle X() + MouseMoveY()/2,Object Angle Y(Player),Camera Angle Z()

   Move = 0
   Strafe = 0

EndFunction

Sync On
Sync Rate 0
Hide Mouse
Backdrop On : Color Backdrop RGB(0,0,0)
Fog On : Fog Distance 200

Global Player As Integer = 2
Global Move As Float
Global PlrYAngle As Float
Global Strafe As Float
Global Speed As Float = 0.2
Global StrafeSpeed As Float = 0.2
Global MouseMoveYVar
Global UpperLimit = -30
Global LowerLimit = 50

Make Matrix 1,1000,1000,100,100
Make Object Sphere Player,50
Position Object Player,500,20,500

Do

   Player_Movement()

   Sync
Loop

Function Player_Movement()

   MouseMoveYVar = Camera Angle X() + MouseMoveY()/2

   If MouseMoveYVar < LowerLimit
      Inc MouseMoveYVar,1
   Endif
   If MouseMoveYVar > UpperLimit
      Dec MouseMoveYVar,1
   Endif

   If Upkey() = 1
      Inc Move,Speed
   Endif
   If Downkey() = 1
      Dec Move,Speed
   Endif
   If Leftkey() = 1
      Dec Strafe,StrafeSpeed
   Endif
   If Rightkey() = 1
      Inc Strafe,StrafeSpeed
   Endif

   Inc PlrYAngle,MouseMoveX()/2

   Move Object Player,Move
   Move Object Right Player,Strafe
   YRotate Object Player,PlrYAngle

   Position Camera Object Position X(Player),Object Position Y(Player),Object Position Z(Player)
   Rotate Camera MouseMoveYVar,Object Angle Y(Player),Camera Angle Z()

   Move = 0
   Strafe = 0

   Text 10,10,str$(MouseMoveYVar)

EndFunction

Rem  Third Person Camera View
create bitmap 1,32,32 : cls rgb(0,155,0) : ink rgb(0,145,0),0 : box 4,4,12,12
get image 1,0,0,32,32 : delete bitmap 1

make matrix 1,10000.0,10000.0,25,25
prepare matrix texture 1,1,2,2
randomize matrix 1,100.0
set matrix height 1,12,12,300.0
update matrix 1

make object cube 1,100.0
make object cube 2,50
POSITION OBJECT 2,0,50,50
PERFORM CSG UNION 1,2
DELETE OBJECT 2

x#=500
z#=500
SET CAMERA RANGE 1,30000
sync rate 60 : sync on
rem Game loop
do
  if upkey()=1    then x#=newxvalue(x#,a#, 10) : z#=newzvalue(z#,a#, 10):an=0
  if downkey()=1  then x#=newxvalue(x#,a#,-10) : z#=newzvalue(z#,a#,-10):an=180
  if leftkey()=1  then a#=wrapvalue(a#-2.0):an=270
  if rightkey()=1 then a#=wrapvalue(a#+2.0):an=90
  rem character
  cx#=newxvalue(x#,wrapvalue(a#),500)
  cz#=newzvalue(z#,wrapvalue(a#),500)
  cy#=get ground height(1,cx#,cz#)+50.0
  position object 1,cx#,cy#,cz#
  rem camera
  y#=get ground height(1,x#,z#)+200.0
  position camera x#,y#,z#
  yrotate object 1,a#+an
  point camera cx#,cy#,cz#

  sync
loop