Gliding movement over a specific distance?

Author

Message

Zwarteziel

13

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: Netherlands

Posted: 11th Mar 2012 12:14 Edited at: 11th Mar 2012 12:23

Link

Good morning fellow forum-members,

I'd like to pose a quick question to you: in these two threads I've been asking questions about step-by-step movement and camera rotation. Thanks to Quisco's help, I've been able to learn a lot about these subjects and the way DarkBasic functions. Now, I'm trying hard at reaching the 'final synthesis' of these two elements: creating a gliding movement-motion of the object during the steps.

I've been experimenting with several ways to do this. For instance, I've created a function with a FOR - NEXT loop, during which the object moves at every iteration. For some reason though, it seems the object is set directly at the end of the loop or moves to fast through it to be noticable. Instead of gliding to it's new position, the object appears instantly at it's destination. Here's an example of one of these experiments:

+ Code Snippet

Function MoveForward()
  for i = 1 to StepSpeed
    ObjPosZ=NewZValue(ObjPosZ, CamAngZ, StepSpeed*0.01)
    position object 1, ObjPosX, ObjPosY, ObjPosZ

    set camera to follow object position x(1), object position y(1), object position z(1), 0, 0, 50, 0, 0
    set camera to object orientation 0, 1
    position camera 0, object position x(1), object position y(1), object position z(1)

  next i
endfunction

So, my question is: is this the proper or most efficient way of trying to program a gliding effect? I'd really appreciate help by getting a pointer in the right direction!

p.s. I hope I'm not giving the impression of wanting to be spoon-fed with answers - I like learning DarkBasic by trial and error, but at this stage I'm still getting stuck a lot.

Back to top

Profile PM Email

Ramon156

13

Years of Service

User Offline

Joined: 13th Jul 2011

Location: Netherlands

Posted: 12th Mar 2012 13:42 Edited at: 12th Mar 2012 13:51

Link

I'm not able to feed you as I don't understand exactly how this works. But here's my idea.

position object 1, ObjPosX, ObjPosY, ObjPosZ

That line will place the object at ObjPosX ObjPosY ObjPosZ for as many times the variable StepSpeed stands for, and then ends. This is why it pops up instantly at its destination.

You should increase ObjPosX / Y / Z in a loop, shall that be a - for next loop or the main loop.
A function and gosub do also work, as they are declared in the main loop.

I hope this gives you an idea what should happen.

+ Code Snippet

   

Rem - First  Store the old position of the object in a variable
   Player.Oldx = object position x(1)
   Player.Oldy = object position y(1)
   Player.Oldz = object position z(1)

Rem - Make Variables for Calculation
   vx# = 0
   vz# = 0

Rem - Keystate 17 is "w". (Move Forward in games)
Rem - Calculate it, and place it in the variable VX# as stated above.

   if keystate(17)=1 then vx# = vx# + sin(angy#) : vz# = vz# + cos(angy#)

Rem - here player.x /y / z will be updated by adding VX#/y/z to the "OLD" positions.
   Player.x = Player.Oldx+vx#
   Player.y = Player.Oldy+vy#
   Player.z = Player.Oldz+vz#

Then at last you can add your line.
Position Object 1,Player.X,Player.Y,Player.Z

This is a piece of code I have in my game, it comes with sparkys Collision DLL. I have commented it for as much as I know.

I'm sorry for the messy code. I cannot seem to get it placed correctly on the forum.

Back to top

Profile PM

Quisco DaLuse

17

Years of Service

User Offline

Joined: 3rd Feb 2007

Location: USA

Posted: 12th Mar 2012 17:02

Link

You are wasting time by using the for - next loop like that. From your other thread, StepSpeed was set to a constant value of 10, which means you are moving a total of 0.1 screen units after ten iterations of the loop, which is an extremely small amount for the total, let alone for each iteration. It would be better to make StepSpeed a float value of 0.1 and get rid of the for-next loop.

Also, you are using the Z camera angle with NewZvalue and it should be the Y camera angle. Additionally, you need to use the NewXValue in conjunction with the NewZValue.

I have looked at the code you put up on the other thread, and I edited it so that you can move in all four directions (it will move you forward and left at the same time, for example). It does not have object 1 in it yet.

`------------------------------------------------------
` Set screen and variables for timer-based movement
`------------------------------------------------------
autocam on
color backdrop 0
sync on : sync rate 60
make matrix 1,5000,5000,50,50
set matrix height 1,25,25,500
update matrix 1
#constant StepSpeed = 2
global oldTime, difTime, key
global ObjPosX as float : global ObjPosZ as float
oldTime = timer() : key = 0
ObjPosX = 400.0 : ObjPosZ = 200.0
position camera ObjPosX,30.0,ObjPosZ
`------------------------------------------------------
` Loop for displaying matrix and checking for key input
`------------------------------------------------------
 do
   difTime = timer() - oldTime
   oldTime = timer()
    
   text 0,0, "Use WASD or arrow-keys to move. Esc to exit."
   text 0,20,"Scancode: "+str$(scancode())
    text 0,30,"key     : "+str$(key)
     
    k17 = keystate(17) : k72 = keystate(72) : k200 = keystate(200) ` forward
    k31 = keystate(31) : k45 = keystate(45) : k80 = keystate(80) : k208 = keystate(208) ` backward
    k30 = keystate(30) : k75 = keystate(75) : k203 = keystate(203) ` left
    k32 = keystate(32) : k72 = keystate(72) : k205 = keystate(205) ` right
    k16 = keystate(16) : k71 = keystate(71) ` turn left
    k18 = keystate(18) : k73 = keystate(73) ` turn right
    
if key = 0
    if k17 or k72 or k200 then MoveForward(difTime) : key = 1
    if k31 or k45 or k80 or k208 then MoveBackward(difTime) : key = 2
    if k30 or k75 or k203 then MoveLeft(difTime) : key = 8
    if k32 or k77 or k205 then MoveRight(difTime) : key = 4
else
    if k17 = 0 and k72 = 0 and k200 = 0 then key = 0
    if k31 = 0 and k45 = 0 and k80 = 0 and k208 = 0 then key = 0
    if k30 = 0 and k75 = 0 and k203 = 0 then key = 0
    if k32 = 0 and k77 = 0 and k205 = 0 then key = 0
endif
    
 xrotate camera 0,x#:yrotate camera 0,y#:zrotate camera 0,z#
 sync
 loop

delete matrix 1
autocam off
end

`------------------------------------------------------
` Functions for movement
`------------------------------------------------------

Function MoveBackward(difTime)
    y# = camera angle y()
    ObjPosX=NewXValue(ObjPosX, y#, -StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, -StepSpeed)
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
 endfunction

Function MoveLeft(difTime)
    OldY# = camera angle y()
    y# = wrapvalue(OldY# + 270.0) : yrotate camera y#
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    yrotate camera OldY#
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

Function MoveRight(difTime)
    OldY# = camera angle y()
    y# = wrapvalue(OldY# + 90.0) : yrotate camera y#
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    yrotate camera OldY#
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

Function MoveForward(difTime)
    y# = camera angle y()
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

+ Code Snippet

`------------------------------------------------------
` Set screen and variables for timer-based movement
`------------------------------------------------------
autocam on
color backdrop 0
sync on : sync rate 60
make matrix 1,5000,5000,50,50
set matrix height 1,25,25,500
update matrix 1
#constant StepSpeed = 2
global oldTime, difTime, key
global ObjPosX as float : global ObjPosZ as float
oldTime = timer() : key = 0
ObjPosX = 400.0 : ObjPosZ = 200.0
position camera ObjPosX,30.0,ObjPosZ
`------------------------------------------------------
` Loop for displaying matrix and checking for key input
`------------------------------------------------------
 do
   difTime = timer() - oldTime
   oldTime = timer()
    
   text 0,0, "Use WASD or arrow-keys to move. Esc to exit."
   text 0,20,"Scancode: "+str$(scancode())
    text 0,30,"key     : "+str$(key)
     
    k17 = keystate(17) : k72 = keystate(72) : k200 = keystate(200) ` forward
    k31 = keystate(31) : k45 = keystate(45) : k80 = keystate(80) : k208 = keystate(208) ` backward
    k30 = keystate(30) : k75 = keystate(75) : k203 = keystate(203) ` left
    k32 = keystate(32) : k72 = keystate(72) : k205 = keystate(205) ` right
    k16 = keystate(16) : k71 = keystate(71) ` turn left
    k18 = keystate(18) : k73 = keystate(73) ` turn right
    
if key = 0
    if k17 or k72 or k200 then MoveForward(difTime) : key = 1
    if k31 or k45 or k80 or k208 then MoveBackward(difTime) : key = 2
    if k30 or k75 or k203 then MoveLeft(difTime) : key = 8
    if k32 or k77 or k205 then MoveRight(difTime) : key = 4
else
    if k17 = 0 and k72 = 0 and k200 = 0 then key = 0
    if k31 = 0 and k45 = 0 and k80 = 0 and k208 = 0 then key = 0
    if k30 = 0 and k75 = 0 and k203 = 0 then key = 0
    if k32 = 0 and k77 = 0 and k205 = 0 then key = 0
endif
    
 xrotate camera 0,x#:yrotate camera 0,y#:zrotate camera 0,z#
 sync
 loop

delete matrix 1
autocam off
end

`------------------------------------------------------
` Functions for movement
`------------------------------------------------------


Function MoveBackward(difTime)
    y# = camera angle y()
    ObjPosX=NewXValue(ObjPosX, y#, -StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, -StepSpeed)
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
 endfunction

Function MoveLeft(difTime)
    OldY# = camera angle y()
    y# = wrapvalue(OldY# + 270.0) : yrotate camera y#
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    yrotate camera OldY#
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

Function MoveRight(difTime)
    OldY# = camera angle y()
    y# = wrapvalue(OldY# + 90.0) : yrotate camera y#
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    yrotate camera OldY#
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

Function MoveForward(difTime)
    y# = camera angle y()
    ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
    ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
    position camera ObjPosX, 30.0, ObjPosZ - 150.0
    point camera ObjPosX,30.0,ObjPosZ
endfunction

I left the difTime there, but really, it is not used. The movement seems smooth to me. I can help you with putting object 1 in place if you need it.

Back to top

Profile PM Email

Zwarteziel

13

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: Netherlands

Posted: 12th Mar 2012 21:50

Link

Hi Ramon and Quisco,

thank you both for providing feedback! I'll experiment with your suggestions as soon as I can make some time (probably wednesday!) and report back.

Back to top

Profile PM Email

Zwarteziel

13

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: Netherlands

Posted: 15th Mar 2012 21:56 Edited at: 15th Mar 2012 23:27

Link

Hi all,

It's been quite a hectic week, so I haven't been able to experiment a lot. This evening I've been examining Quisco's code. The example provided moves very smoothly indeed but (on my machine at least) keeps moving until a key is unpressed.

I've been trying to combine the lines above with the earlier code-examples to create a 'fusion': smooth movement in a direction once a key is pressed, but for a specific distance. After reaching the distance, key is reset to 0. For this reason I used the FOR-NEXT loop, i.e.:

When key=0 and keyboard key is pressed
for move=1 to distance
take a small step
draw object & camera
next move
Reset key when no keys are being pressed, allowing movement once more

The DifTime-variable is there because I want to make a program in which I can switch between step-by-step movement and FPS-like movement. I'm not quite there yet, but wanted to share my stuff:

`------------------------------------------------------
` Set screen and variables for timer-based movement
`------------------------------------------------------
autocam off
color backdrop 0
sync rate 60 : sync on
make matrix 1,5000,5000,50,50
set matrix height 1,25,25,500
update matrix 1

#constant StepSpeed = 100
global OldTime
global DifTime
OldTime = timer()
global MoveAllowed
global OldSkoolMoves as Boolean
OldSkoolMoves = 1

global CamAngT as Float
global CamAngX as Float
global CamAngY as Float
global CamAngZ as Float
CamAngX=0
CamAngY=0
CamAngZ=0

global CamPosX as Float
global CamPosY as Float
global CamPosZ as Float

global ObjPosX as Float
global ObjPosY as Float
global ObjPosZ as Float
ObjPosX=2500
ObjPosY=500
ObjPosZ=-500

`------------------------------------------------------
` Create an object and set the camera orientation to it
`------------------------------------------------------
make object cube 1, 1
hide object 1
global key as integer

`------------------------------------------------------
` Loop for displaying matrix and checking for key input
`------------------------------------------------------
 do
   difTime = timer() - oldTime
   oldTime = timer()
	
   CheckKey()
   DrawCamera()
	DisplayInfo()
	
 sync
 loop

delete matrix 1
autocam off
end

`------------------------------------------------------
` Functions that draws the main object & camera view
`------------------------------------------------------
Function DrawCamera()
   rotate object 1, CamAngX, CamAngY, CamAngZ
	
	position object 1, ObjPosX, ObjPosY, ObjPosZ
   
	set camera to follow object position x(1), object position y(1), object position z(1), 0, 0, 50, 0, 0
	set camera to object orientation 0, 1
   position camera 0, object position x(1), object position y(1), object position z(1)
endfunction

`------------------------------------------------------
` Functions that checks key
`------------------------------------------------------
 function CheckKey()
 k17 = keystate(17) : k72 = keystate(72) : k200 = keystate(200) ` forward
 k31 = keystate(31) : k45 = keystate(45) : k80 = keystate(80) : k208 = keystate(208) ` backward
 k30 = keystate(30) : k75 = keystate(75) : k203 = keystate(203) ` left
 k32 = keystate(32) : k77 = keystate(77) : k205 = keystate(205) ` right
 k16 = keystate(16) : k71 = keystate(71) ` turn left
 k18 = keystate(18) : k73 = keystate(73) ` turn right
    
if key = 0
  if k17 = 1 or k72 = 1 or k200 = 1 then MoveForward(difTime) : key = 8
  if k31 = 1 or k45 = 1 or k80 = 1 or k208 = 1 then MoveBackward(difTime) : key = 2
  if k30 or k75 or k203 then MoveLeft(difTime) : key = 4
  if k32 or k77 or k205 then MoveRight(difTime) : key = 6
  if k16 or k71 then TurnLeft(difTime) : key = 7
  if k18 or k73 then TurnRight(difTime) : key = 9
else
  if key = 8 and k17 = 0 and k72 = 0 and k200 = 0 then key = 0
  if key = 2 and k31 = 0 and k45 = 0 and k80 = 0 and k208 = 0 then key = 0
  if key = 4 and k30 = 0 and k75 = 0 and k203 = 0 then key = 0
  if key = 6 and k32 = 0 and k77 = 0 and k205 = 0 then key = 0
  if key = 7 and k16 = 0 and k71 = 0 then key = 0
  if key = 9 and k18 = 0 and k73 = 0 then key = 0
endif
    
if keystate(57)=0 then Space_Pressed=0
  if keystate(57)=1 and Space_Pressed=0
    Space_pressed=1
	   if timer()>MoveAllowed then OldSkoolMoves=1-OldSkoolMoves
	   MoveAllowed = Timer()+50
	endif
endfunction

`------------------------------------------------------
` Functions for movement
`------------------------------------------------------
Function MoveForward(DifTime)
	if OldSkoolMoves=1
     y# = camera angle y()
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     position object 1, ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object 1,StepSpeed*difTime
	endif
endfunction ObjPosZ

Function MoveBackward(DifTime)
	if OldSkoolMoves=1
     y# = camera angle y()
     ObjPosX=NewXValue(ObjPosX, y#, -StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, -StepSpeed)
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object 1,StepSpeed*-difTime
	endif
endfunction

Function MoveLeft(DifTime)
	if OldSkoolMoves=1
     OldY# = camera angle y()
     y# = wrapvalue(OldY# + 270.0) : yrotate camera y#
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     yrotate camera OldY#
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object left 1,StepSpeed*difTime
	endif
endfunction

Function MoveRight(DifTime)
	if OldSkoolMoves=1
     OldY# = camera angle y()
     y# = wrapvalue(OldY# + 90.0) : yrotate camera y#
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     yrotate camera OldY#
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object right 1,StepSpeed*difTime
	endif
endfunction

Function TurnLeft(DifTime)
	CamAngY=CamAngY-StepSpeed*DifTime*1
endfunction

Function TurnRight(DifTime)
	CamAngY=CamAngY+StepSpeed*DifTime*1
endfunction

`------------------------------------------------------
` Function for displaying text
`------------------------------------------------------
Function DisplayInfo()
   text 0, 0,  "FPS: " + str$(screen fps())
   text 0, 20, "Cam.PosX: " + str$(camera position x(0))
   text 0, 30, "Cam.PosY: " + str$(camera position y(0))
   text 0, 40, "Cam.PosZ: " + str$(camera position z(0))
   text 0, 60, "Cam.AngX: " + str$(camera angle x(0))
   text 0, 70, "Cam.AngY: " + str$(camera angle y(0))
   text 0, 80, "Cam.AngZ: " + str$(camera angle z(0))
  	text 0,100, "Scancode: "+str$(scancode())
	text 0,110, "key     : "+str$(key)
   text 0,130, "Use WASD or arrow-keys to move camera"
   text 0,140, "Use Q and E or Home and PgUp to turn camera"
endfunction

+ Code Snippet

`------------------------------------------------------
` Set screen and variables for timer-based movement
`------------------------------------------------------
autocam off
color backdrop 0
sync rate 60 : sync on
make matrix 1,5000,5000,50,50
set matrix height 1,25,25,500
update matrix 1

#constant StepSpeed = 100
global OldTime
global DifTime
OldTime = timer()
global MoveAllowed
global OldSkoolMoves as Boolean
OldSkoolMoves = 1

global CamAngT as Float
global CamAngX as Float
global CamAngY as Float
global CamAngZ as Float
CamAngX=0
CamAngY=0
CamAngZ=0

global CamPosX as Float
global CamPosY as Float
global CamPosZ as Float

global ObjPosX as Float
global ObjPosY as Float
global ObjPosZ as Float
ObjPosX=2500
ObjPosY=500
ObjPosZ=-500


`------------------------------------------------------
` Create an object and set the camera orientation to it
`------------------------------------------------------
make object cube 1, 1
hide object 1
global key as integer

`------------------------------------------------------
` Loop for displaying matrix and checking for key input
`------------------------------------------------------
 do
   difTime = timer() - oldTime
   oldTime = timer()
	
   CheckKey()
   DrawCamera()
	DisplayInfo()
	
 sync
 loop

delete matrix 1
autocam off
end

`------------------------------------------------------
` Functions that draws the main object & camera view
`------------------------------------------------------
Function DrawCamera()
   rotate object 1, CamAngX, CamAngY, CamAngZ
	
	position object 1, ObjPosX, ObjPosY, ObjPosZ
   
	set camera to follow object position x(1), object position y(1), object position z(1), 0, 0, 50, 0, 0
	set camera to object orientation 0, 1
   position camera 0, object position x(1), object position y(1), object position z(1)
endfunction

`------------------------------------------------------
` Functions that checks key
`------------------------------------------------------
 function CheckKey()
 k17 = keystate(17) : k72 = keystate(72) : k200 = keystate(200) ` forward
 k31 = keystate(31) : k45 = keystate(45) : k80 = keystate(80) : k208 = keystate(208) ` backward
 k30 = keystate(30) : k75 = keystate(75) : k203 = keystate(203) ` left
 k32 = keystate(32) : k77 = keystate(77) : k205 = keystate(205) ` right
 k16 = keystate(16) : k71 = keystate(71) ` turn left
 k18 = keystate(18) : k73 = keystate(73) ` turn right
    
if key = 0
  if k17 = 1 or k72 = 1 or k200 = 1 then MoveForward(difTime) : key = 8
  if k31 = 1 or k45 = 1 or k80 = 1 or k208 = 1 then MoveBackward(difTime) : key = 2
  if k30 or k75 or k203 then MoveLeft(difTime) : key = 4
  if k32 or k77 or k205 then MoveRight(difTime) : key = 6
  if k16 or k71 then TurnLeft(difTime) : key = 7
  if k18 or k73 then TurnRight(difTime) : key = 9
else
  if key = 8 and k17 = 0 and k72 = 0 and k200 = 0 then key = 0
  if key = 2 and k31 = 0 and k45 = 0 and k80 = 0 and k208 = 0 then key = 0
  if key = 4 and k30 = 0 and k75 = 0 and k203 = 0 then key = 0
  if key = 6 and k32 = 0 and k77 = 0 and k205 = 0 then key = 0
  if key = 7 and k16 = 0 and k71 = 0 then key = 0
  if key = 9 and k18 = 0 and k73 = 0 then key = 0
endif
    
if keystate(57)=0 then Space_Pressed=0
  if keystate(57)=1 and Space_Pressed=0
    Space_pressed=1
	   if timer()>MoveAllowed then OldSkoolMoves=1-OldSkoolMoves
	   MoveAllowed = Timer()+50
	endif
endfunction


`------------------------------------------------------
` Functions for movement
`------------------------------------------------------
Function MoveForward(DifTime)
	if OldSkoolMoves=1
     y# = camera angle y()
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     position object 1, ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object 1,StepSpeed*difTime
	endif
endfunction ObjPosZ

Function MoveBackward(DifTime)
	if OldSkoolMoves=1
     y# = camera angle y()
     ObjPosX=NewXValue(ObjPosX, y#, -StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, -StepSpeed)
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object 1,StepSpeed*-difTime
	endif
endfunction

Function MoveLeft(DifTime)
	if OldSkoolMoves=1
     OldY# = camera angle y()
     y# = wrapvalue(OldY# + 270.0) : yrotate camera y#
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     yrotate camera OldY#
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object left 1,StepSpeed*difTime
	endif
endfunction

Function MoveRight(DifTime)
	if OldSkoolMoves=1
     OldY# = camera angle y()
     y# = wrapvalue(OldY# + 90.0) : yrotate camera y#
     ObjPosX=NewXValue(ObjPosX, y#, StepSpeed)
     ObjPosZ=NewZValue(ObjPosZ, y#, StepSpeed)
     yrotate camera OldY#
     position camera ObjPosX, 30.0, ObjPosZ - 150.0
     point camera ObjPosX,30.0,ObjPosZ
	else
	  if OldSkoolMoves=0 then move object right 1,StepSpeed*difTime
	endif
endfunction

Function TurnLeft(DifTime)
	CamAngY=CamAngY-StepSpeed*DifTime*1
endfunction

Function TurnRight(DifTime)
	CamAngY=CamAngY+StepSpeed*DifTime*1
endfunction


`------------------------------------------------------
` Function for displaying text
`------------------------------------------------------
Function DisplayInfo()
   text 0, 0,  "FPS: " + str$(screen fps())
   text 0, 20, "Cam.PosX: " + str$(camera position x(0))
   text 0, 30, "Cam.PosY: " + str$(camera position y(0))
   text 0, 40, "Cam.PosZ: " + str$(camera position z(0))
   text 0, 60, "Cam.AngX: " + str$(camera angle x(0))
   text 0, 70, "Cam.AngY: " + str$(camera angle y(0))
   text 0, 80, "Cam.AngZ: " + str$(camera angle z(0))
  	text 0,100, "Scancode: "+str$(scancode())
	text 0,110, "key     : "+str$(key)
   text 0,130, "Use WASD or arrow-keys to move camera"
   text 0,140, "Use Q and E or Home and PgUp to turn camera"
endfunction

Back to top

Profile PM Email

Zwarteziel

13

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: Netherlands

Posted: 22nd Mar 2012 15:43

Link

A quick follow-up (sans code since I'm not at my usual machine): I was able to sort out my problem! Turned out I forgot to call a 'sync' after each sub-step, resulting in my player object instantly appearing at the end of the total step.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Gliding movement over a specific distance?