Another question....FPS Jumping.

Author

Message

Ragnarok89

20

Years of Service

User Offline

Joined: 27th Jun 2004

Location: Look behind you! Ahhhh!~

Posted: 4th Oct 2005 03:41

Link

Yes, I have looked through a bunch of posts and I never found a way to jump with my code.

Sync On
Sync Rate 30
Draw to front
Backdrop on
Set camera range 1,3000
Autocam off
Set Display Mode 1024,768,32
Hide Mouse

Fog on
Fog distance 3000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

Load Music "Main1.mp3",1
Play Music 1
Loop Music 1

mX# = 5000
mZ# = 5000
mY# = Get Ground Height(1,5000,5000)
X# = 5500
Y# =  Get Ground Height(1,5500,5500)
Z# = 5500

rem Randomize the matrix
randomize matrix 1,125

jumpheight = 10
jump = 0

Do
Rem  Control input for camera
Gosub MoveForward:
Gosub MoveBackward:
Gosub StrafeLeft:
Gosub StrafeRight:
GoSub DiagonalMovement:
Gosub MouseLook:
Gosub Jumping:
GoSub PositionandRotateCamera:
GoSub FPSJumping:
   Rem Refresh Screen
   Sync
Loop

DiagonalMovement:
`Forward/Left
If Keystate(16)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If Keystate(16)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Forward/Right
If KeyState(18)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If Keystate(18)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Backward/Right
If KeyState(46)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If KeyState(46)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Backward/Left
If KeyState(44)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If KeyState(44)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
Return

StrafeRight:
   If Rightkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(32)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MoveForward:
If Upkey()=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(17)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MoveBackward:
   If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If Keystate(31)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
   Return

StrafeLeft:
If Leftkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(30)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MouseLook:
 oldcAY# = cAY#
   oldcAX# = cAX#

cAY# = WrapValue(cAY#+MousemoveX()*0.2)
   cAX# = WrapValue(cAX#+MousemoveY()*0.2)
   caZ# = Camera angle Z()
 cTestX#=WrapValue(cAX#-180)
   if cTestX# > 225 then cAX#=45
   if cTestX# < 135 then cAX#=315

YRotate camera CurveAngle(cAY#,oldcAY#,24)
   XRotate camera CurveAngle(cAX#,oldcAX#,24)
   Y# = Get ground height(1,X#,Z#)+35
 Return

Jumping:
Return

PositionandRotateCamera:
   Position Camera X#,Y#,Z#
   Position Listener X#,Y#,Z#
   Rotate Listener 0,cAY#,0
Return

CreateBarriers:
Make Object Box 1,10,700,10000
Position Object 1,5,350,5000
Make Object Box 2,10,700,10000
Position Object 2,9995,350,5000
Make Object Box 3,10000,70,10
Position Object 3,5000,350,5
Make Object Box 4,10000,700,10
Position Object 4,5000,350,9995
Load Bitmap "Wall2.bmp",1
For T = 1 to 4
Texture Object T,1
Next T
Return

+ Code Snippet

Sync On
Sync Rate 30
Draw to front
Backdrop on
Set camera range 1,3000
Autocam off
Set Display Mode 1024,768,32
Hide Mouse

Fog on
Fog distance 3000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

Load Music "Main1.mp3",1
Play Music 1
Loop Music 1



mX# = 5000
mZ# = 5000
mY# = Get Ground Height(1,5000,5000)
X# = 5500
Y# =  Get Ground Height(1,5500,5500)
Z# = 5500

rem Randomize the matrix
randomize matrix 1,125

jumpheight = 10
jump = 0

Do
Rem  Control input for camera
Gosub MoveForward:
Gosub MoveBackward:
Gosub StrafeLeft:
Gosub StrafeRight:
GoSub DiagonalMovement:
Gosub MouseLook:
Gosub Jumping:
GoSub PositionandRotateCamera:
GoSub FPSJumping:
   Rem Refresh Screen
   Sync
Loop

DiagonalMovement:
`Forward/Left
If Keystate(16)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If Keystate(16)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Forward/Right
If KeyState(18)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If Keystate(18)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Backward/Right
If KeyState(46)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If KeyState(46)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
`Backward/Left
If KeyState(44)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
If KeyState(44)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
Endif
Return



StrafeRight:
   If Rightkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(32)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MoveForward:
If Upkey()=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(17)=1
      XTest# = Newxvalue(X#,cAY#,7)
      ZTest# = Newzvalue(Z#,cAY#,7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MoveBackward:
   If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If Keystate(31)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
   Return

StrafeLeft:
If Leftkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
If KeyState(30)=1
      XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
      ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
      If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif
Return

MouseLook:
 oldcAY# = cAY#
   oldcAX# = cAX#


   cAY# = WrapValue(cAY#+MousemoveX()*0.2)
   cAX# = WrapValue(cAX#+MousemoveY()*0.2)
   caZ# = Camera angle Z()
 cTestX#=WrapValue(cAX#-180)
   if cTestX# > 225 then cAX#=45
   if cTestX# < 135 then cAX#=315

   YRotate camera CurveAngle(cAY#,oldcAY#,24)
   XRotate camera CurveAngle(cAX#,oldcAX#,24)
   Y# = Get ground height(1,X#,Z#)+35
 Return

Jumping:
Return

PositionandRotateCamera:
   Position Camera X#,Y#,Z#
   Position Listener X#,Y#,Z#
   Rotate Listener 0,cAY#,0
Return

CreateBarriers:
Make Object Box 1,10,700,10000
Position Object 1,5,350,5000
Make Object Box 2,10,700,10000
Position Object 2,9995,350,5000
Make Object Box 3,10000,70,10
Position Object 3,5000,350,5
Make Object Box 4,10000,700,10
Position Object 4,5000,350,9995
Load Bitmap "Wall2.bmp",1
For T = 1 to 4
Texture Object T,1
Next T
Return

All the media is included with DarkBASIC (Though I think the wall texture was renamed that I use.) Anyways...if anyone can figure out how in the world I can get this stupid thing to jump...please..PLEASE help

Or if you dont want to give me the code...lead me in the right direction of HOW to code it. Thanks

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th Oct 2005 04:44

Link

Arrrgghhh!

I hate long snippets of code - to be able to answer a question, you need to follow the code and understand what's going on and with long snippets, it just takes far too long to read - especially at 3am in the morning...

I would say that 90% of that code is irrelevant to your question and could have been removed before you posted it.

Anyway, I've not studied your code, but if you are using the camera in an FPS, then jumping is nothing more than altering the Y position of the camera.

If jumping from standing still, in real life, the knees would bend and eye level drops slightly then you quickly accellerate upwards, before gravity takes effect and pulls you back down again.

In programming terms, you would decrease the Y value of the camera to the lowest position then quickly increase the Y value (velocity) until the starting Y position is reached - at which point you begin to decrease the velocity until you reach the peak of the jump and you momentarily stop.

You then apply accellerated downwards velocity (negative values) until you hit the ground.

This is done using procedures that you can call to do a bit of jump movement at a time - so everything else in your game doesn't grind to a halt while you are jumping.

One variable would contain the camera's Y position and another would contain a 'velocity' value. Each time around the loop you would add velocity to the camera's Y position then increase or decrease the velocity variable depending on whether the jump was in an accellerating or decellerating phase.

At the top of the jump, when velocity decreases to zero, you continue decreasing it and as it becomes a negative value, adding it to the camera's Y position will result in the camera moving down.

Keep increasing the negative value and it will speed up the rate of fall until you hit the ground - just like a falling object gathers speed.

And that's it!

Jumping onto things requires extra calculations and jumping while running, you just leave out the initial 'dip' of the camera, but essentially, the method is the same.

With third person views, you apply the same logic to the object rather than the camera.

Phew! I think it would have been quicker to just type in the damn code!

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th Oct 2005 05:04 Edited at: 4th Oct 2005 05:06

Link

To give you a bit more of a guide, I just wrote a bouncing ping pong ball demo. It's just one way to do it.

If you look at the code, it should give you some ideas on which way to go with regards to positioning an object (or the camera) using a velocity variable...

+ Code Snippet

Set Display Mode 800,600,16
Backdrop On
Autocam off
Sync on
Sync Rate 60
CLS 0
Hide mouse
Make Object Sphere 10,15
Actypos#=200: BallDir=0: Speed#=0.0
Make Matrix 1,5000,5000,20,20
position camera 2500,20,2250

rem Program loop
Do
  position object 10,2500,Actypos#,2500
  ypos#=get ground height(1,xpos#,zpos#)+10

  If BallDir=0: Rem Going Down
    Inc Speed#,.5
    Dec Actypos#,Speed#
    If Actypos# <= ypos#
      Actypos# = ypos#
      BallDir=1
    Endif
  Else: Rem Going Up
    Dec Speed#,.5
    Inc Actypos#,Speed#
    If Speed# <= 0.0
      BallDir=0
    Endif
  Endif

  rem Refresh the screen
  Sync
loop

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Ragnarok89

20

Years of Service

User Offline

Joined: 27th Jun 2004

Location: Look behind you! Ahhhh!~

Posted: 4th Oct 2005 05:47

Link

Lol. Thanks that kinda clears stuff up. I know how physics work, but if you would have read the code you would see that something in there is messing up the jumping lol. But for the most part read this...I think i figured it out

Thanks.

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th Oct 2005 15:49

Link

Sorry about that - I wan't sure at what level you were at with the jumping side of things as your jumping code just said:

Jumping:
Return

which wasn't a lot to go on!

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Another question....FPS Jumping.