Sorry your browser is not supported!

	If LEFTKEY()=1 AND hold=0 THEN facing=WRAP(facing-1,1,4) : hold=1
	If RIGHTKEY()=1 AND hold=0 THEN facing=WRAP(facing+1,1,4) : hold=1
	ang=ang_regulate(ang,facing*90,1)
	ROTATE OBJECT 1,0,ang,0
	IF LEFTKEY()+RIGHTKEY()+UPKEY()=0 THEN hold=0


FUNCTION ang_regulate(a,b,s)
IF (b-a)>180 THEN b=b-360
FOR c=1 TO s
IF (b-a)>0 THEN INC a
IF (b-a)<0 THEN DEC a
NEXT c
ENDFUNCTION a

TYPE entity
is_player AS BOOLEAN
is_mobile AS BOOLEAN
entid AS BYTE
curr_x AS INTEGER
curr_y AS INTEGER
loc_x AS INTEGER
loc_y AS INTEGER
grid_x AS INTEGER
grid_y AS INTEGER
ENDTYPE

DIM map(49,49,3)
DIM ent(4) AS entity

IF FILE EXIST("Test.flr")
LOAD ARRAY "Test.flr",map()
ENDIF
create_player(0)
create_floor()


DO
	IF UPKEY()=1 AND hold=0
	SELECT facing
		CASE 1
		ent(0).grid_x=ent(0).grid_x+1
		ENDCASE
		CASE 2
		ent(0).grid_y=ent(0).grid_y-1
		ENDCASE
		CASE 3
		ent(0).grid_x=ent(0).grid_x-1
		ENDCASE
		CASE 4
		ent(0).grid_y=ent(0).grid_y+1
		ENDCASE
	ENDSELECT
	hold=1
	ENDIF
	If LEFTKEY()=1 AND hold=0 THEN facing=WRAP(facing-1,1,4) : hold=1
	If RIGHTKEY()=1 AND hold=0 THEN facing=WRAP(facing+1,1,4) : hold=1
	ang=ang_regulate(ang,facing*90,1)
	ROTATE OBJECT 1,0,ang,0
	IF LEFTKEY()+RIGHTKEY()+UPKEY()=0 THEN hold=0
	
	SET CURSOR 0,0
	PRINT STR$(facing)
	PRINT STR$(ang)
	
	//Object Angle
	aY# = Object angle Y(1)
	
	//Get Camera Position
	cZ# = NEWZVALUE(ent(0).curr_y,aY#-180,100)
	cX# = NEWXVALUE(ent(0).curr_x,aY#-180,100)
	
	//Position Camera And Point At Player
	POSITION CAMERA cX#,100,cZ#
	POINT CAMERA ent(0).curr_x,50,ent(0).curr_y
	
	
	POSITION OBJECT 1,ent(0).curr_x,10,ent(0).curr_y
	ent(0).curr_x=num_regulate(ent(0).curr_x,ent(0).loc_x,1)
	ent(0).curr_y=num_regulate(ent(0).curr_y,ent(0).loc_y,1)
	
	ent(0).loc_x=(ent(0).grid_x*100)+50
	ent(0).loc_y=(ent(0).grid_y*100)+50

IF SHIFTKEY()=1 AND SPACEKEY()=1 THEN END
LOOP


END

FUNCTION create_player(x)
ent(x).is_player=1
ent(x).entid=0
ent(x).curr_x=20
ent(x).curr_y=20
ent(x).loc_x=0
ent(x).loc_y=0
ent(x).grid_x=1
ent(x).grid_y=1
MAKE OBJECT SPHERE 1,50
COLOR OBJECT 1,RGB(60,0,0)
ENDFUNCTION

FUNCTION create_floor()
MAKE MATRIX 1,1600,1600,16,16
ENDFUNCTION

FUNCTION num_regulate(a,b,s)
FOR c=1 TO s
IF b>a THEN INC a
IF b<a THEN DEC a
NEXT c
ENDFUNCTION a

FUNCTION ang_regulate(a,b,s)
IF (b-a)>180 THEN b=b-360
FOR c=1 TO s
IF (b-a)>0 THEN INC a
IF (b-a)<0 THEN DEC a
NEXT c
ENDFUNCTION a

FUNCTION num_trim(value,vfloor,vceiling)
IF value>vceiling THEN value=vceiling
IF value<vfloor THEN value=vfloor
ENDFUNCTION value

`%Project Title%
`SnippetMovement.dba
`======================

Sync On : Sync Rate 20

` Make level
Make Matrix 1, 100, 100, 50, 50
Position Matrix 1, -50, 0, -50
Color Backdrop Rgb(200,210,255)

` Make player

Make Object Cone 1, 4
Color Object 1, RGB(0,255,0)
XRotate Object 1, 90
Fix Object Pivot 1 ` 90 degree rotation is now 0 rotation
Set Object Cull	1, 0 ` Let me see behind my cone's polygons by switching off backface culling



` Properties
ViewingAngle# = 0
ViewingDistance# = 20
ViewingHeight# = 5
MoveSpeed# = 0.2
MaxViewingHeight# = 15
MinViewingHeight# = 1
TargetAngle = 90

Do

  ` Set angle as (Wrap it between 0-360)
  ` Turn only when LeftKey() + RightKey() keys are released
  If TurnKeyUp = 0
    TurnKeyUp = RightKey() - LeftKey()	` Right is positive, left is negative
  Else
    If LeftKey() + RightKey() = 0
      TargetAngle = WrapValue( TargetAngle + ( TurnKeyUp * 90 )  )
      TurnKeyUp = 0	` Reset key up event
    Endif
  Endif
  
	
  ` Turn towards the angle
  TurnInThisTime# = 5.0 ` Steps
  YRotate Object 1, CurveAngle(TargetAngle, Object Angle Y(1), TurnInThisTime#)
	
  ` Move
  Move Object 1, Upkey()-DownKey()*MoveSpeed#
	
	
	  ` Use this if you want fixed cell movement, in other words, only move at the target angle
		` not the angle the object is currently at during its turning phase
		` --------------------------------
		` fSpeed = Upkey()-DownKey()*MoveSpeed#
		` x# = NewXValue( Object Position X(1), TargetAngle, fSpeed )
		` z# = NewZValue( Object Position Z(1), TargetAngle, fSpeed )
		` Position Object 1, x#, Object Position Y(1), z#
		

		` Delta, multiply speed by this to run the same speed on all machines using quick fix solution
		` Eg:  Move Object 1, Upkey()-DownKey()*MoveSpeed#*fDelta#
		` fDelta# = (Screen FPS()+0.01)/60
	
  ` Zoom look
  Zoom# = MouseMoveZ()
  If Zoom# > 0
    If ViewingHeight# < MaxViewingHeight# Then Inc ViewingHeight# : Inc ViewingDistance#
  Else
    If Zoom# < 0 And ViewingHeight# > MinViewingHeight# Then Dec ViewingHeight# : Dec ViewingDistance#
  EndIf

  ` Tell camera to follow player

  Set Camera To Follow Object Position X(1), Object Position Y(1),  Object Position Z(1), ViewingAngle#, ViewingDistance#, ViewingHeight#, 5, 1 
	Point Camera Object Position X(1), Object Position Y(1), Object Position Z(1)
	
  ` Info
  Set Cursor 0,0
  Print "Angle: " + Str$(TargetAngle)

	
  Sync
	
Loop