Player movement troubles... - GameCreators Forum

Author

Message

Rage_Matrix

21

Years of Service

User Offline

Joined: 14th Dec 2002

Location: Brighton, UK.

Posted: 1st May 2004 19:39

Link

(code attached)

Hi all,

I'm trying to sort out the movement of my player along the XZ plain. I'm using a cone to simulate the direction of the player mesh. The player can move in eight directions at 45 degree increments. Eventually, I hope to have the cone rotate smoothly between each of the eight points, but for now I'm just setting the angle to the cone object.
This sort of works okay, but the problem is when ANDing the keystates together for say, Up-Left or Down-Right, when I let go of the two keys, the cone angle seems to reset to looking Up, Left, Down or Right, while I would like it to stay at the angle it was moving in. This only affects the ANDing of two keystates and not if I just press Left or Up, Down or Right.
I think it might be to do with the IF/ELSE code to do with movement...

if (keystate(KEYS_PLAYER_UP)) and (keystate(KEYS_PLAYER_RIGHT))
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_RIGHT
   else if (keystate(KEYS_PLAYER_UP)) and (keystate(KEYS_PLAYER_LEFT))
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_LEFT
   else if (keystate(KEYS_PLAYER_DOWN)) and (keystate(KEYS_PLAYER_LEFT))
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_LEFT
   else if (keystate(KEYS_PLAYER_DOWN)) and (keystate(KEYS_PLAYER_RIGHT))
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_RIGHT
   else if (keystate(KEYS_PLAYER_UP) = 1)
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP
   else if (keystate(KEYS_PLAYER_RIGHT) = 1)
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_RIGHT
   else if (keystate(KEYS_PLAYER_DOWN) = 1)
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN
   else if (keystate(KEYS_PLAYER_LEFT) = 1)
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_LEFT
   endif:endif:endif:endif:endif:endif:endif:endif
   yrotate object tPlayer.LegsObjNum, tPlayer.LegsAngle#
   position object tPlayer.LegsObjNum, tPlayer.X#, tPlayer.Y#, tPlayer.Z#

+ Code Snippet

   if (keystate(KEYS_PLAYER_UP)) and (keystate(KEYS_PLAYER_RIGHT))
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_RIGHT
   else if (keystate(KEYS_PLAYER_UP)) and (keystate(KEYS_PLAYER_LEFT))
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_LEFT
   else if (keystate(KEYS_PLAYER_DOWN)) and (keystate(KEYS_PLAYER_LEFT))
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_LEFT
   else if (keystate(KEYS_PLAYER_DOWN)) and (keystate(KEYS_PLAYER_RIGHT))
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_RIGHT
   else if (keystate(KEYS_PLAYER_UP) = 1)
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP
   else if (keystate(KEYS_PLAYER_RIGHT) = 1)
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_RIGHT
   else if (keystate(KEYS_PLAYER_DOWN) = 1)
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN
   else if (keystate(KEYS_PLAYER_LEFT) = 1)
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_LEFT
   endif:endif:endif:endif:endif:endif:endif:endif
   yrotate object tPlayer.LegsObjNum, tPlayer.LegsAngle#
   position object tPlayer.LegsObjNum, tPlayer.X#, tPlayer.Y#, tPlayer.Z#

Can anyone give me any ideas on how to fix this? Perhaps its to do with the keystate being too sensitive....as in when I take my fingers off Up & Right cursor keys, one finger comes off later than the next, thus triggering either the Up keystate or the Right keystate and switching the angle.

Little help?

www.tronsoftware.co.uk
AMD Athlon XP 1700+, 180GB HDD, 512MB DDR RAM, ATI Radeon 9700 Pro 128MB DDR, Windows XP Pro, DirectX 9.0b

Back to top

Profile PM Email Website

Rage_Matrix

21

Years of Service

User Offline

Joined: 14th Dec 2002

Location: Brighton, UK.

Posted: 2nd May 2004 06:41

Link

Politest possible bump. I wouldn't usually resort to such newbie-style methods, but this is kinda average urgent.

Jeez....I *hate* sounding desperate on the forums.

www.tronsoftware.co.uk
AMD Athlon XP 1700+, 180GB HDD, 512MB DDR RAM, ATI Radeon 9700 Pro 128MB DDR, Windows XP Pro, DirectX 9.0b

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 2nd May 2004 07:42

Link

Looks greek to me I thought you had to put the scancodes in the () after keystate. Or did you not post the whole code?

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Rage_Matrix

21

Years of Service

User Offline

Joined: 14th Dec 2002

Location: Brighton, UK.

Posted: 2nd May 2004 07:44 Edited at: 2nd May 2004 07:45

Link

The entire shebang is included in the source button thingy.

The thing that might have thrown you is I'm using constants in the keystate function to replace the scancodes. Easier to remember that way. Anyway, its all in the source if you fancy taking a look in the spirit of charity.

www.tronsoftware.co.uk
AMD Athlon XP 1700+, 180GB HDD, 512MB DDR RAM, ATI Radeon 9700 Pro 128MB DDR, Windows XP Pro, DirectX 9.0b

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 2nd May 2004 08:58 Edited at: 2nd May 2004 08:59

Link

I would make a second version of the code and take the player movement stuff out of a function - try this with a DO-LOOP. Yes theoretically it should all work but with dbp dodgy scope and other issues try a more straight forward approach. Then see if you have a different result

my $0.02

** DBP_NETLIB_v1 PLUGIN - FULL VERSION RELEASED! **

Mooooooo!

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 2nd May 2004 12:01

Link

This works but might not be what you want.

Rem Project: Movement Test

Rem ***** Main Source File *****

#constant ARENA_OBJECT_NUM = 200
#constant PLAYER_OBJECT_START = 300

#constant ANGLE_DOWN = 0.0
#constant ANGLE_DOWN_LEFT = 45.0
#constant ANGLE_LEFT = 90.0
#constant ANGLE_UP_LEFT = 135.0
#constant ANGLE_UP = 180.0
#constant ANGLE_UP_RIGHT = 225.0
#constant ANGLE_RIGHT = 270.0
#constant ANGLE_DOWN_RIGHT = 315.0

#constant PLAYER_SPEED = 0.04

#constant KEYS_PLAYER_UP = 200
#constant KEYS_PLAYER_LEFT = 203
#constant KEYS_PLAYER_DOWN = 208
#constant KEYS_PLAYER_RIGHT = 205

type Player
   X#, Y#, Z#
   LegsObjNum
   TorsoObjNum
   LegsAngle#
   TorsoAngle#
endtype

global tPlayer as Player
global allowdirection = 0

randomize timer()

rem Hide the pointer.
hide mouse

rem Setup graphics mode.
gosub SetupGraphics

rem Setup the Camera.
gosub SetupCamera

rem Setup the lights for the scene.
gosub SetupLights

rem Set up the arena.
gosub CreateArena

rem Set up the Player.
gosub CreatePlayer
rem Main Loop.
while not escapekey()
   gosub SystemDisplay
   ProcessPlayer()
   gosub ProcessCamera
   sync
endwhile
end

rem Setup the player objects.
CreatePlayer:
   tPlayer.X# = 0
   tPlayer.Y# = 2
   tPlayer.Z# = 0
   tPlayer.LegsObjNum = PLAYER_OBJECT_START
   tPlayer.TorsoObjNum = PLAYER_OBJECT_START + 1
   tPlayer.LegsAngle# = PLAYER_DOWN
   tPlayer.TorsoAngle# = 0.0
   make object cone tPlayer.LegsObjNum, 5
   rotate object tPlayer.LegsObjNum, -90, 0, 0
   position object tPlayer.LegsObjNum, 0, 4, 0
return

rem Process the player movement and controls.
function ProcessPlayer()
   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_DOWN) = 0
   		if keystate(KEYS_PLAYER_LEFT) = 0
   			if keystate(KEYS_PLAYER_RIGHT) = 0
   				allowdirection = 0
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 1
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 2
   					direction = 2
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 3
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 2
   					direction = 4
   					allowdirection = 2
   				endif	
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 1
   					direction = 5
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 2
   					direction = 6
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 7
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 2
   					direction = 8
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

select direction
	case 1
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP
   endcase
	case 2
		tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_RIGHT
	endcase
	case 3
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_RIGHT
   endcase
	case 4
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_RIGHT
   endcase
	case 5
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN
   endcase
	case 6
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_LEFT
   endcase
	case 7
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_LEFT
   endcase
	case 8
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_LEFT
   endcase
	case default
		tPlayer.X# = tPlayer.X#
      tPlayer.LegsAngle# = tPlayer.LegsAngle#
	endcase
endselect
   yrotate object tPlayer.LegsObjNum, tPlayer.LegsAngle#
   position object tPlayer.LegsObjNum, tPlayer.X#, tPlayer.Y#, tPlayer.Z#
endfunction

rem Setup camera.
SetupCamera:
   set camera range 0.1, 10000
return

rem Process the camera.
ProcessCamera:
   position camera 0, 0, 30, -50
   point camera 0,0,0
return

rem Create the arena floor.
CreateArena:
   make object box ARENA_OBJECT_NUM, 100.0, 60.0, 1.0
   position object ARENA_OBJECT_NUM, 0.0, -1.0, 0.0
   rotate object ARENA_OBJECT_NUM, 90.0, 0.0, 0.0
return

SetupLights:
   rem Set Ambient lighting.
   set ambient light 0
   rem Setup point light for the scene.
   make light 1
   set point light 1, 0, 100, 0
   color light 1, 150, 150, 150
   set normalization on
return

rem System Display.
SystemDisplay:
   text 10, 10, "Graphics: " + Str$(ResX) + "x" + Str$(ResY) + "x" + Str$(BPP)
   text 10, 22, "FPS: " + Str$(screen fps())
   text 10, 33, "Camera X: " + Str$(camera position x())
   text 10, 44, "Camera Y: " + Str$(camera position y())
   text 10, 55, "Camera Z: " + Str$(camera position z())
   text 10, 66, "Player Angle: " + Str$(tPlayer.LegsAngle#)
return

rem Setup graphics.
SetupGraphics:
   sync on
   rem sync rate 100
   if (check display mode(1024,768,32)=1)
      ResX = 1024 : ResY = 768 : BPP = 32
      set display mode 1024, 768, 32
   else if (check display mode(1024,768,16)=1)
      ResX = 1024 : ResY = 768 : BPP = 16
      set display mode 1024, 768, 16
   else if (check display mode(800,600,32)=1)
      ResX = 800 : ResY = 600 : BPP = 32
      set display mode 800, 600, 32
   else if (check display mode(800,600,16)=1)
      ResX = 800 : ResY = 600 : BPP = 16
      set display mode 800, 600, 16
   else if (check display mode(640,480,32)=1)
      ResX = 640 : ResY = 480 : BPP = 32
      set display mode 640, 480, 32
   else if (check display mode(640,480,16)=1)
      ResX = 640 : ResY = 480 : BPP = 16
      set display mode 640, 480, 16
   else
      print "Your graphics card does not support any of the program's display modes!"
      end
   endif:endif:endif:endif:endif:endif
return

+ Code Snippet

  
Rem Project: Movement Test

Rem ***** Main Source File *****

#constant ARENA_OBJECT_NUM = 200
#constant PLAYER_OBJECT_START = 300

#constant ANGLE_DOWN = 0.0
#constant ANGLE_DOWN_LEFT = 45.0
#constant ANGLE_LEFT = 90.0
#constant ANGLE_UP_LEFT = 135.0
#constant ANGLE_UP = 180.0
#constant ANGLE_UP_RIGHT = 225.0
#constant ANGLE_RIGHT = 270.0
#constant ANGLE_DOWN_RIGHT = 315.0

#constant PLAYER_SPEED = 0.04

#constant KEYS_PLAYER_UP = 200
#constant KEYS_PLAYER_LEFT = 203
#constant KEYS_PLAYER_DOWN = 208
#constant KEYS_PLAYER_RIGHT = 205

type Player
   X#, Y#, Z#
   LegsObjNum
   TorsoObjNum
   LegsAngle#
   TorsoAngle#
endtype

global tPlayer as Player
global allowdirection = 0

randomize timer()

rem Hide the pointer.
hide mouse

rem Setup graphics mode.
gosub SetupGraphics

rem Setup the Camera.
gosub SetupCamera

rem Setup the lights for the scene.
gosub SetupLights

rem Set up the arena.
gosub CreateArena

rem Set up the Player.
gosub CreatePlayer
rem Main Loop.
while not escapekey()
   gosub SystemDisplay
   ProcessPlayer()
   gosub ProcessCamera
   sync
endwhile
end


rem Setup the player objects.
CreatePlayer:
   tPlayer.X# = 0
   tPlayer.Y# = 2
   tPlayer.Z# = 0
   tPlayer.LegsObjNum = PLAYER_OBJECT_START
   tPlayer.TorsoObjNum = PLAYER_OBJECT_START + 1
   tPlayer.LegsAngle# = PLAYER_DOWN
   tPlayer.TorsoAngle# = 0.0
   make object cone tPlayer.LegsObjNum, 5
   rotate object tPlayer.LegsObjNum, -90, 0, 0
   position object tPlayer.LegsObjNum, 0, 4, 0
return

rem Process the player movement and controls.
function ProcessPlayer()
   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_DOWN) = 0
   		if keystate(KEYS_PLAYER_LEFT) = 0
   			if keystate(KEYS_PLAYER_RIGHT) = 0
   				allowdirection = 0
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 1
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 2
   					direction = 2
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 3
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 1
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 2
   					direction = 4
   					allowdirection = 2
   				endif	
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 0
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 1
   					direction = 5
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 1
   				if allowdirection <= 2
   					direction = 6
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 0
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 1
   					direction = 7
   					allowdirection = 1
   				endif
   			endif
   		endif
   	endif
   endif

   if keystate(KEYS_PLAYER_UP) = 1
   	if keystate(KEYS_PLAYER_LEFT) = 1
   		if keystate(KEYS_PLAYER_RIGHT) = 0
   			if keystate(KEYS_PLAYER_DOWN) = 0
   				if allowdirection <= 2
   					direction = 8
   					allowdirection = 2
   				endif
   			endif
   		endif
   	endif
   endif

select direction
	case 1
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP
   endcase
	case 2
		tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_RIGHT
	endcase
	case 3
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_RIGHT
   endcase
	case 4
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# + PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_RIGHT
   endcase
	case 5
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN
   endcase
	case 6
      tPlayer.Z# = tPlayer.Z# - PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_DOWN_LEFT
   endcase
	case 7
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_LEFT
   endcase
	case 8
      tPlayer.Z# = tPlayer.Z# + PLAYER_SPEED
      tPlayer.X# = tPlayer.X# - PLAYER_SPEED
      tPlayer.LegsAngle# = ANGLE_UP_LEFT
   endcase
	case default
		tPlayer.X# = tPlayer.X#
      tPlayer.LegsAngle# = tPlayer.LegsAngle#
	endcase
endselect
   yrotate object tPlayer.LegsObjNum, tPlayer.LegsAngle#
   position object tPlayer.LegsObjNum, tPlayer.X#, tPlayer.Y#, tPlayer.Z#
endfunction

rem Setup camera.
SetupCamera:
   set camera range 0.1, 10000
return

rem Process the camera.
ProcessCamera:
   position camera 0, 0, 30, -50
   point camera 0,0,0
return

rem Create the arena floor.
CreateArena:
   make object box ARENA_OBJECT_NUM, 100.0, 60.0, 1.0
   position object ARENA_OBJECT_NUM, 0.0, -1.0, 0.0
   rotate object ARENA_OBJECT_NUM, 90.0, 0.0, 0.0
return

SetupLights:
   rem Set Ambient lighting.
   set ambient light 0
   rem Setup point light for the scene.
   make light 1
   set point light 1, 0, 100, 0
   color light 1, 150, 150, 150
   set normalization on
return

rem System Display.
SystemDisplay:
   text 10, 10, "Graphics: " + Str$(ResX) + "x" + Str$(ResY) + "x" + Str$(BPP)
   text 10, 22, "FPS: " + Str$(screen fps())
   text 10, 33, "Camera X: " + Str$(camera position x())
   text 10, 44, "Camera Y: " + Str$(camera position y())
   text 10, 55, "Camera Z: " + Str$(camera position z())
   text 10, 66, "Player Angle: " + Str$(tPlayer.LegsAngle#)
return

rem Setup graphics.
SetupGraphics:
   sync on
   rem sync rate 100
   if (check display mode(1024,768,32)=1)
      ResX = 1024 : ResY = 768 : BPP = 32
      set display mode 1024, 768, 32
   else if (check display mode(1024,768,16)=1)
      ResX = 1024 : ResY = 768 : BPP = 16
      set display mode 1024, 768, 16
   else if (check display mode(800,600,32)=1)
      ResX = 800 : ResY = 600 : BPP = 32
      set display mode 800, 600, 32
   else if (check display mode(800,600,16)=1)
      ResX = 800 : ResY = 600 : BPP = 16
      set display mode 800, 600, 16
   else if (check display mode(640,480,32)=1)
      ResX = 640 : ResY = 480 : BPP = 32
      set display mode 640, 480, 32
   else if (check display mode(640,480,16)=1)
      ResX = 640 : ResY = 480 : BPP = 16
      set display mode 640, 480, 16
   else
      print "Your graphics card does not support any of the program's display modes!"
      end
   endif:endif:endif:endif:endif:endif
return

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Rage_Matrix

21

Years of Service

User Offline

Joined: 14th Dec 2002

Location: Brighton, UK.

Posted: 2nd May 2004 15:47

Link

Hey, thanks. Thats fixed it fine.

www.tronsoftware.co.uk
AMD Athlon XP 1700+, 180GB HDD, 512MB DDR RAM, ATI Radeon 9700 Pro 128MB DDR, Windows XP Pro, DirectX 9.0b

Back to top

Profile PM Email Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 2nd May 2004 23:58

Link

Glad I could help.

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Player movement troubles...