Struggling with Jumping timer - GameCreators Forum

Author

Message

Somarl

13

Years of Service

User Offline

Joined: 11th Feb 2011

Location: UK

Posted: 11th Mar 2012 20:48 Edited at: 11th Mar 2012 20:54

Link

Just trying to make a small jump timer so that the character cannot jump round like a lunatic and requires at least 1 second or so rest before the spacebar will have an effect on the characters jumping.

This is the unrunable jump code.

+ Code Snippet

This is all inside a movement function that positions the camera at the objects position, and has the standard WASD movement and mouselook, this all works fine.

If Spacekey() = 1 AND Jumping = 0 AND Jump_Timer = 0
   Jump = 1
   EndIf
   
   ` Remstart
   If Jump = 1
      Ground = PlayerY
      Jump_Speed = 2.8
      Jumping = 1
      Jump = 0
   EndIf
   ` Remend
   `Remstart
   If Jumping = 1
      Dec Jump_Speed, 0.2
      Position Object 1, PlayerX, PlayerY + Jump_Speed, PlayerZ
      `Remstart
      If PlayerY <= Ground 
         Jumping = 0
         Jump_Speed = 0
         Ground = 0
         PlayerY = Ground
         Jump_Timer = 1
      EndIf 
      `Remend
   EndIf
   
   `Remend
   If Jump_Timer <= 0
      Jump_Timer = 0
   EndIf
   `remstart
   If Jump_Timer >= 0 ` Should work when its more than 0
      Dec Jump_Timer, 0.05
   EndIf
   
   `remend
Endfunction

And my global variables to do with all this are as follows

+ Code Snippet

Global Jump As Integer
Global Jump_Speed As Float
Global Ground As Integer
Global Jumping As Integer
Global PlayerX As Float 
Global PlayerY As Float
Global PlayerZ As Float
Global Jump_Timer As Float

I think i am putting something as a float that i shouldnt be, or something as an integer that shouldnt be, but i have tried everything swapped around and come up with nothing.
It seems to do 2 things that annoy the living p*ss out of me.

1) Does not like Dec for decreasing values properly even though i know this works as i have used it hundreds of times for floats and integers.

2) Shockingly poor inaccurate float values. I have a few bits of text telling me what some of the values are and for example i have the jump_timer set to 1. It does not go to 1 but instead chooses a value just a little under 1, this of course knocks a few things out of wack and is why i have lots of things in that code that say if a value is not 0 then make it 0 even though it probably should be.

So after taking a step back and then re-writing it, then taking a nother step back i cant figure out a good method to make a char jump, then not be able to jump for a split second or so before jumping again i think i will throw this out there and see what suggestions i get as i dont mind re-writing it out and getting a better knowledge of what is happening when the variables are being changed. As things are happening so fast its difficult to catch them.

Thanks in advance.

For anyone who is interested i am doing my own sort of version of learning from one of Ruccas's fps tutorials and my full code so far can be found here.

Sync On
Sync Rate 60
Hide Mouse
`Set Window Off
Maximize Window
`Set Window Size 1280, 800
`Set Window Position 180, 180

Rem Variable Setup
Global EnemyHP As Integer = 5000
Global Ammo As Integer = 1000
Global MaxAmmo As Integer = 1000
Global Clips As Integer = 3
Global MaxClips As Integer = 3
Global Time As Float
Global Seconds As Integer
Global ReloadTime As Float
Global Reload As Integer
Global CamY, CamX As Integer
Global Jump As Integer
Global Jump_Speed As Float
Global Ground As Integer
Global Jumping As Integer
Global PlayerX As Float 
Global PlayerY As Float
Global PlayerZ As Float
Global Jump_Timer As Float

Make Object Sphere 1, 50 ` Player Object
Color Object 1, RGB(000,255,000)

Make Object Sphere 2, 50 ` Enemy Object
Color Object 2, RGB(255,000,000)
Position Object 2, 130, 0, 0

Make Object Box 3, 100, 100, 5 ` Wall
Position Object 3, 0, 0, 150

Make Object Box 4, 15, 20, 50 ` Ammo Clip
Color Object 4, RGB(000,255,255)
Position Object 4, -40, 0, 0

Make Object Triangle 9999, 0,0,0,0,0,0,0,0,0 ` Limb Setup
Make Mesh From Object 1, 9999
Delete Object 9999
Add Limb 1, 1, 1
Offset Limb 1, 1, 0, 0, 500
Delete Mesh 1
Hide Limb 1,1

Time = Timer()

Do
      
   FPS# = Screen FPS()
   Text 0,0, "FPS: " + str$(FPS#)
   Timers()
   Movement()
   Shooting()
   Ammo_Clip()
   `If SpaceKey() = 1 Then Space = 1
   
   Text 0,20, "Ammo: " + Str$(Ammo)
   Text 0,40, "Clips: " + Str$(Clips)
   Text 0,60, "Jump: " + Str$(Jump)
   Text 0,80, "Jumping: " + str$(Jumping)
   Text 0,100, "Jump_Speed: " + str$(Jump_Speed)
   Text 0,120, "Jump_Timer: " + str$(Jump_Timer) 
   Text 0,140, "Ground: " + str$(Ground)
   Circle Screen Width()/2, Screen Height()/2, 5
   `Space = 0
   Sync
Loop

Function Timers()
   If Timer() = Time + 1000 
      Inc Seconds
      Time = Timer()
   EndIf
EndFunction

Function Movement()
   PlayerX = Object Position X (1)
   PlayerY = Object Position Y (1)
   PlayerZ = Object Position Z (1)
   
   `Position Object 1, PlayerX, PlayerY, PlayerZ   
   Position Camera PlayerX, PlayerY, PlayerZ
   
   `WASD
   IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,2
   IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-2
   IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2.2
   IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2.2
   
   `Mouse Look
   CamY = CamY + MouseMoveX() * 0.2
   CamX = CamX + MouseMoveY() * 0.2
   YRotate Camera CamY
   XRotate Camera CamX
   YRotate Object 1, CamY
   XRotate Object 1, CamX
   
   `Jumping
   
   If Spacekey() = 1 AND Jumping = 0 AND Jump_Timer = 0
   Jump = 1
   EndIf
   
   ` Remstart
   If Jump = 1
      Ground = PlayerY
      Jump_Speed = 2.8
      Jumping = 1
      Jump = 0
   EndIf
   ` Remend
   `Remstart
   If Jumping = 1
      Dec Jump_Speed, 0.2
      Position Object 1, PlayerX, PlayerY + Jump_Speed, PlayerZ
      `Remstart
      If PlayerY <= Ground 
         Jumping = 0
         Jump_Speed = 0
         Ground = 0
         PlayerY = Ground
         Jump_Timer = 1
      EndIf 
      `Remend
   EndIf
   
   `Remend
   If Jump_Timer <= 0
      Jump_Timer = 0
   EndIf
   `remstart
   If Jump_Timer >= 0.1
      Dec Jump_Timer, 0.05
   EndIf
   
   `remend
Endfunction

Function Shooting()
   If Keystate(19) = 0 AND MouseClick() = 1 ` If Fire Is Pressed
      If Ammo > 0
         Dec Ammo, 1
      EndIf
      If Object Exist (2) = 1
         If Ammo > 0 AND Intersect Object (2, Limb Position X(1,1), Limb Position Y(1,1), Limb Position Z(1,1), PlayerX, PlayerY, PlayerZ) > 0
            Dec EnemyHP, 1
         EndIf
      EndIf
   EndIf
   If EnemyHP = 0 AND Object Exist (2) = 1 ` Die
      Delete Object 2
   Endif

If Object Exist(2) = 1 ` Display Enemy Health
   Center Text Object Screen X(2), Object Screen Y(2) - 50, "Enemy Health: " + Str$(EnemyHP)
Endif

` Reload 
If Keystate(19) = 1 AND Mouseclick() = 0 AND Ammo < MaxAmmo AND Clips > 0 Then Reload = 1

If Reload = 1 AND (Keystate(19) = 0 OR 1)
   Inc ReloadTime, 0.001
      If ReloadTime >= 2.5
         Ammo = MaxAmmo
         Dec Clips, 1
         ReloadTime = 0
         Reload = 0
      EndIf
Endif

Endfunction

Function Ammo_Clip()
   If Object Exist (4) = 1
      If Ammo < MaxAmmo AND Intersect Object (4, PlayerX, PlayerY - 50, PlayerZ, PlayerX, PlayerY, PlayerZ) > 0
         Clips = MaxClips
         Ammo = MaxAmmo
         Delete Object 4
      EndIf
   EndIf
IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-70, "Ammo Crate"
Endfunction

+ Code Snippet

Sync On
Sync Rate 60
Hide Mouse
`Set Window Off
Maximize Window
`Set Window Size 1280, 800
`Set Window Position 180, 180

Rem Variable Setup
Global EnemyHP As Integer = 5000
Global Ammo As Integer = 1000
Global MaxAmmo As Integer = 1000
Global Clips As Integer = 3
Global MaxClips As Integer = 3
Global Time As Float
Global Seconds As Integer
Global ReloadTime As Float
Global Reload As Integer
Global CamY, CamX As Integer
Global Jump As Integer
Global Jump_Speed As Float
Global Ground As Integer
Global Jumping As Integer
Global PlayerX As Float 
Global PlayerY As Float
Global PlayerZ As Float
Global Jump_Timer As Float

Make Object Sphere 1, 50 ` Player Object
Color Object 1, RGB(000,255,000)

Make Object Sphere 2, 50 ` Enemy Object
Color Object 2, RGB(255,000,000)
Position Object 2, 130, 0, 0

Make Object Box 3, 100, 100, 5 ` Wall
Position Object 3, 0, 0, 150

Make Object Box 4, 15, 20, 50 ` Ammo Clip
Color Object 4, RGB(000,255,255)
Position Object 4, -40, 0, 0

Make Object Triangle 9999, 0,0,0,0,0,0,0,0,0 ` Limb Setup
Make Mesh From Object 1, 9999
Delete Object 9999
Add Limb 1, 1, 1
Offset Limb 1, 1, 0, 0, 500
Delete Mesh 1
Hide Limb 1,1

Time = Timer()

Do
      
   FPS# = Screen FPS()
   Text 0,0, "FPS: " + str$(FPS#)
   Timers()
   Movement()
   Shooting()
   Ammo_Clip()
   `If SpaceKey() = 1 Then Space = 1
   
   Text 0,20, "Ammo: " + Str$(Ammo)
   Text 0,40, "Clips: " + Str$(Clips)
   Text 0,60, "Jump: " + Str$(Jump)
   Text 0,80, "Jumping: " + str$(Jumping)
   Text 0,100, "Jump_Speed: " + str$(Jump_Speed)
   Text 0,120, "Jump_Timer: " + str$(Jump_Timer) 
   Text 0,140, "Ground: " + str$(Ground)
   Circle Screen Width()/2, Screen Height()/2, 5
   `Space = 0
   Sync
Loop

Function Timers()
   If Timer() = Time + 1000 
      Inc Seconds
      Time = Timer()
   EndIf
EndFunction

Function Movement()
   PlayerX = Object Position X (1)
   PlayerY = Object Position Y (1)
   PlayerZ = Object Position Z (1)
   
   `Position Object 1, PlayerX, PlayerY, PlayerZ   
   Position Camera PlayerX, PlayerY, PlayerZ
   
   `WASD
   IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,2
   IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-2
   IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2.2
   IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2.2
   
   `Mouse Look
   CamY = CamY + MouseMoveX() * 0.2
   CamX = CamX + MouseMoveY() * 0.2
   YRotate Camera CamY
   XRotate Camera CamX
   YRotate Object 1, CamY
   XRotate Object 1, CamX
   
   `Jumping
   
   If Spacekey() = 1 AND Jumping = 0 AND Jump_Timer = 0
   Jump = 1
   EndIf
   
   ` Remstart
   If Jump = 1
      Ground = PlayerY
      Jump_Speed = 2.8
      Jumping = 1
      Jump = 0
   EndIf
   ` Remend
   `Remstart
   If Jumping = 1
      Dec Jump_Speed, 0.2
      Position Object 1, PlayerX, PlayerY + Jump_Speed, PlayerZ
      `Remstart
      If PlayerY <= Ground 
         Jumping = 0
         Jump_Speed = 0
         Ground = 0
         PlayerY = Ground
         Jump_Timer = 1
      EndIf 
      `Remend
   EndIf
   
   `Remend
   If Jump_Timer <= 0
      Jump_Timer = 0
   EndIf
   `remstart
   If Jump_Timer >= 0.1
      Dec Jump_Timer, 0.05
   EndIf
   
   `remend
Endfunction

Function Shooting()
   If Keystate(19) = 0 AND MouseClick() = 1 ` If Fire Is Pressed
      If Ammo > 0
         Dec Ammo, 1
      EndIf
      If Object Exist (2) = 1
         If Ammo > 0 AND Intersect Object (2, Limb Position X(1,1), Limb Position Y(1,1), Limb Position Z(1,1), PlayerX, PlayerY, PlayerZ) > 0
            Dec EnemyHP, 1
         EndIf
      EndIf
   EndIf
   If EnemyHP = 0 AND Object Exist (2) = 1 ` Die
      Delete Object 2
   Endif

If Object Exist(2) = 1 ` Display Enemy Health
   Center Text Object Screen X(2), Object Screen Y(2) - 50, "Enemy Health: " + Str$(EnemyHP)
Endif

` Reload 
If Keystate(19) = 1 AND Mouseclick() = 0 AND Ammo < MaxAmmo AND Clips > 0 Then Reload = 1 

If Reload = 1 AND (Keystate(19) = 0 OR 1)
   Inc ReloadTime, 0.001
      If ReloadTime >= 2.5
         Ammo = MaxAmmo
         Dec Clips, 1
         ReloadTime = 0
         Reload = 0
      EndIf
Endif


Endfunction

Function Ammo_Clip()
   If Object Exist (4) = 1
      If Ammo < MaxAmmo AND Intersect Object (4, PlayerX, PlayerY - 50, PlayerZ, PlayerX, PlayerY, PlayerZ) > 0
         Clips = MaxClips
         Ammo = MaxAmmo
         Delete Object 4
      EndIf
   EndIf
IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-70, "Ammo Crate"
Endfunction

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 12th Mar 2012 03:40

Link

That's a really old tut. I edited it and moved the camera back a little so you can see the player. It jumps and waits a bit and jumps again if you hold down on the SPACEBAR.

Rem Project: Dark Basic Pro Project
Rem Created: Sunday, March 11, 2012

Rem ***** Main Source File *****
Sync On : Sync Rate 60
Hide Mouse : autocam off : backdrop on : color backdrop 0
Set Window On : Maximize Window
`Set Window Size 1280, 800
`Set Window Position 180, 180

Rem Variable Setup
Global EnemyHP, Ammo, MaxAmmo, Clips, MaxClips, Time, Seconds, ReloadTime, Reload, Jump, Ground, Jumping
Global CamY as float : Global CamX As float : Global Jump_Speed As Float
Global PlayerX As Float : Global PlayerY As Float : Global PlayerZ As Float
Global Jump_Timer As Float

EnemyHP = 5000 : Ammo = 1000 : MaxAmmo = 1000 : Clips = 3 : MaxClips = 3
Make Object Sphere 1, 50 ` Player Object
Color Object 1, RGB(000,255,000)

Make Object Sphere 2, 50 ` Enemy Object
Color Object 2, RGB(255,000,000)
Position Object 2, 130, 0, 0

Make Object Box 3, 100, 100, 5 ` Wall
Position Object 3, 0, 0, 150

Make Object Box 4, 15, 20, 50 ` Ammo Clip
Color Object 4, RGB(000,255,255)
Position Object 4, -40, 0, 0

Make Object Triangle 9999, 0,0,0,0,0,0,0,0,0 ` Limb Setup
Make Mesh From Object 1, 9999
Delete Object 9999
Add Limb 1, 1, 1
Offset Limb 1, 1, 0, 0, 500
Delete Mesh 1
Hide Limb 1,1

Time = Timer()

Do
   Text 0,0, "FPS: " + str$(screen fps() )
   Timers()
   Movement()
   Shooting()
   Ammo_Clip()
   `If SpaceKey() = 1 Then Space = 1
   
   Text 0,20, "Ammo: " + Str$(Ammo)
   Text 0,40, "Clips: " + Str$(Clips)
   Text 0,60, "Jump: " + Str$(Jump)
   Text 0,80, "Jumping: " + str$(Jumping)
   Text 0,100, "Jump_Speed: " + str$(Jump_Speed)
   Text 0,120, "Jump_Timer: " + str$(Jump_Timer) 
   Text 0,140, "Ground: " + str$(Ground)
   `Circle Screen Width()/2, Screen Height()/2, 5
   `Space = 0
   Sync
Loop

Function Timers()
   If Timer() >= Time + 1000 
      Inc Seconds
      Time = Timer()
   EndIf
EndFunction

Function Movement()
   PlayerX = Object Position X (1)
   PlayerY = Object Position Y (1)
   PlayerZ = Object Position Z (1)
   
   `Position Object 1, PlayerX, PlayerY, PlayerZ   
   Position Camera PlayerX,  75.0, PlayerZ - 250.0
   
   `WASD
   IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,2
   IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-2
   IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2.2
   IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2.2
   
   `Mouse Look
   
   yrotate camera (camera angle y() + (MouseMoveX() * 0.2))
   xrotate camera (camera angle x() + (MouseMoveY() * 0.2))
    
   `Jumping
   
   If Spacekey() = 1 AND Jumping = 0 AND Jump_Timer = 0.0
      Ground = PlayerY
      Jump_Speed = 5.6
      Jumping = 1 
   EndIf
   
  
    `Remstart
   If Jumping = 1 and Jump_Timer = 0.0
      Dec Jump_Speed, .2
      if Jump_Speed > 4.0 
          inc PlayerY,Jump_Speed
      else
          dec PlayerY,Jump_Speed
      endif
      Position Object 1, PlayerX, PlayerY, PlayerZ
      `Remstart
      If Jump_Speed <= 0
         Jump_Speed = 0
         Ground = 0 : Jumping = 0
         PlayerY = Ground
         Jump_Timer = 1.0
      EndIf 
      `Remend
   EndIf
   
   `remstart
   If Jump_Timer >= 0.1
      Dec Jump_Timer, 0.05
   else
      Jump_Timer = 0.0
   EndIf
   
   `remend
Endfunction

Function Shooting()
   If Keystate(19) = 0 AND MouseClick() = 1 ` If Fire Is Pressed
      If Ammo > 0
         Dec Ammo, 1
      EndIf
      If Object Exist (2) = 1
         If Ammo > 0 AND Intersect Object (2, Limb Position X(1,1), Limb Position Y(1,1), Limb Position Z(1,1), PlayerX, PlayerY, PlayerZ) > 0
            Dec EnemyHP, 1
         EndIf
      EndIf
   EndIf
   If EnemyHP = 0 AND Object Exist (2) = 1 ` Die
      Delete Object 2
   Endif

If Object Exist(2) = 1 ` Display Enemy Health
   Center Text Object Screen X(2), Object Screen Y(2) - 50, "Enemy Health: " + Str$(EnemyHP)
Endif

` Reload 
If Keystate(19) = 1 AND Mouseclick() = 0 AND Ammo < MaxAmmo AND Clips > 0 Then Reload = 1

If Reload = 1 AND (Keystate(19) = 0 OR 1)
   Inc ReloadTime, 0.001
      If ReloadTime >= 2.5
         Ammo = MaxAmmo
         Dec Clips, 1
         ReloadTime = 0
         Reload = 0
      EndIf
Endif

Endfunction

Function Ammo_Clip()
   If Object Exist (4) = 1
      If Ammo < MaxAmmo AND Intersect Object (4, PlayerX, PlayerY - 50, PlayerZ, PlayerX, PlayerY, PlayerZ) > 0
         Clips = MaxClips
         Ammo = MaxAmmo
         Delete Object 4
      EndIf
   EndIf
IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-70, "Ammo Crate"
Endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Sunday, March 11, 2012

Rem ***** Main Source File *****
Sync On : Sync Rate 60
Hide Mouse : autocam off : backdrop on : color backdrop 0
Set Window On : Maximize Window
`Set Window Size 1280, 800
`Set Window Position 180, 180

Rem Variable Setup
Global EnemyHP, Ammo, MaxAmmo, Clips, MaxClips, Time, Seconds, ReloadTime, Reload, Jump, Ground, Jumping
Global CamY as float : Global CamX As float : Global Jump_Speed As Float
Global PlayerX As Float : Global PlayerY As Float : Global PlayerZ As Float
Global Jump_Timer As Float

EnemyHP = 5000 : Ammo = 1000 : MaxAmmo = 1000 : Clips = 3 : MaxClips = 3
Make Object Sphere 1, 50 ` Player Object
Color Object 1, RGB(000,255,000)

Make Object Sphere 2, 50 ` Enemy Object
Color Object 2, RGB(255,000,000)
Position Object 2, 130, 0, 0

Make Object Box 3, 100, 100, 5 ` Wall
Position Object 3, 0, 0, 150

Make Object Box 4, 15, 20, 50 ` Ammo Clip
Color Object 4, RGB(000,255,255)
Position Object 4, -40, 0, 0

Make Object Triangle 9999, 0,0,0,0,0,0,0,0,0 ` Limb Setup
Make Mesh From Object 1, 9999
Delete Object 9999
Add Limb 1, 1, 1
Offset Limb 1, 1, 0, 0, 500
Delete Mesh 1
Hide Limb 1,1

Time = Timer() 

Do
   Text 0,0, "FPS: " + str$(screen fps() )
   Timers()
   Movement()
   Shooting()
   Ammo_Clip()
   `If SpaceKey() = 1 Then Space = 1
   
   Text 0,20, "Ammo: " + Str$(Ammo)
   Text 0,40, "Clips: " + Str$(Clips)
   Text 0,60, "Jump: " + Str$(Jump)
   Text 0,80, "Jumping: " + str$(Jumping)
   Text 0,100, "Jump_Speed: " + str$(Jump_Speed)
   Text 0,120, "Jump_Timer: " + str$(Jump_Timer) 
   Text 0,140, "Ground: " + str$(Ground)
   `Circle Screen Width()/2, Screen Height()/2, 5
   `Space = 0
   Sync
Loop

Function Timers()
   If Timer() >= Time + 1000 
      Inc Seconds
      Time = Timer()
   EndIf
EndFunction

Function Movement()
   PlayerX = Object Position X (1)
   PlayerY = Object Position Y (1)
   PlayerZ = Object Position Z (1)
   
   `Position Object 1, PlayerX, PlayerY, PlayerZ   
   Position Camera PlayerX,  75.0, PlayerZ - 250.0
   
   `WASD
   IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,2
   IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-2
   IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,2.2
   IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,2.2
   
   `Mouse Look
   
   yrotate camera (camera angle y() + (MouseMoveX() * 0.2))
   xrotate camera (camera angle x() + (MouseMoveY() * 0.2))
    
   `Jumping
   
   If Spacekey() = 1 AND Jumping = 0 AND Jump_Timer = 0.0
      Ground = PlayerY
      Jump_Speed = 5.6
      Jumping = 1 
   EndIf
   
  
    `Remstart
   If Jumping = 1 and Jump_Timer = 0.0
      Dec Jump_Speed, .2
      if Jump_Speed > 4.0 
          inc PlayerY,Jump_Speed
      else
          dec PlayerY,Jump_Speed
      endif
      Position Object 1, PlayerX, PlayerY, PlayerZ
      `Remstart
      If Jump_Speed <= 0
         Jump_Speed = 0
         Ground = 0 : Jumping = 0
         PlayerY = Ground
         Jump_Timer = 1.0
      EndIf 
      `Remend
   EndIf
   
   `remstart
   If Jump_Timer >= 0.1
      Dec Jump_Timer, 0.05
   else
      Jump_Timer = 0.0
   EndIf
   
   `remend
Endfunction

Function Shooting()
   If Keystate(19) = 0 AND MouseClick() = 1 ` If Fire Is Pressed
      If Ammo > 0
         Dec Ammo, 1
      EndIf
      If Object Exist (2) = 1
         If Ammo > 0 AND Intersect Object (2, Limb Position X(1,1), Limb Position Y(1,1), Limb Position Z(1,1), PlayerX, PlayerY, PlayerZ) > 0
            Dec EnemyHP, 1
         EndIf
      EndIf
   EndIf
   If EnemyHP = 0 AND Object Exist (2) = 1 ` Die
      Delete Object 2
   Endif

If Object Exist(2) = 1 ` Display Enemy Health
   Center Text Object Screen X(2), Object Screen Y(2) - 50, "Enemy Health: " + Str$(EnemyHP)
Endif

` Reload 
If Keystate(19) = 1 AND Mouseclick() = 0 AND Ammo < MaxAmmo AND Clips > 0 Then Reload = 1 

If Reload = 1 AND (Keystate(19) = 0 OR 1)
   Inc ReloadTime, 0.001
      If ReloadTime >= 2.5
         Ammo = MaxAmmo
         Dec Clips, 1
         ReloadTime = 0
         Reload = 0
      EndIf
Endif


Endfunction

Function Ammo_Clip()
   If Object Exist (4) = 1
      If Ammo < MaxAmmo AND Intersect Object (4, PlayerX, PlayerY - 50, PlayerZ, PlayerX, PlayerY, PlayerZ) > 0
         Clips = MaxClips
         Ammo = MaxAmmo
         Delete Object 4
      EndIf
   EndIf
IF OBJECT EXIST(4)=1 THEN CENTER TEXT OBJECT SCREEN X(4),OBJECT SCREEN Y(4)-70, "Ammo Crate"
Endfunction

You should be able to go through to see the changes I made. Hope this is helpful.

So many games to code.......so little time.

Back to top

Profile PM Email

Somarl

13

Years of Service

User Offline

Joined: 11th Feb 2011

Location: UK

Posted: 12th Mar 2012 09:58

Link

Thank you so much for taking a look at that for me. I can see that working now. Is it because i am delaring floats and just using whole numbers like 4 instead of 4.0; and that is why i am getting terribly inaccurate numbers everywhere?

Also it is an old tutorial ill agree, it is unfortunately very unfinished as well, as 90% of the good tutorials i have come across are, so when i have gone through this i am going to look at possibly asking someone to help me expand this into something finshed so everyone can use it.

Its one of my biggest pet hates of DBpro; everyones tutorial starts off amazing and exciting then fades off into unfinished chapters once it gets good.

Once again, thank you for your help.

Back to top

Profile PM

Ramon156

13

Years of Service

User Offline

Joined: 13th Jul 2011

Location: Netherlands

Posted: 12th Mar 2012 11:10

Link

Hi Somarl, There's also a JumpTimer in the Sparkys DLL example on this page.
http://forum.thegamecreators.com/?m=forum_view&t=114275&b=7
At step 6

sync on
sync rate 60
hide mouse
autocam off

radius# = 7.0
gravity# = -0.1
slope# = 0.5
ground = 1
jumptimer = 0

gosub makeLevel
gosub makePlayer

do

gosub MovePlayer

rem change view
   if inkey$()="v" and vtimer<timer() then vtimer = timer()+300 : view = 1-view

positionCameraToObject(2,view)

text 0,20,"x rot: "+str$(object angle x(2))
   text 0,40,"y rot: "+str$(object angle y(2))
   text 0,60,"z rot: "+str$(object angle z(2))
   text 0,80,"FPS: "+str$(screen fps())
   text 0,100,"Touching Ground: "+str$(ground)
   text 0,120,"x = "+str$(object position x(2))
   text 0,140,"y = "+str$(object position y(2))
   text 0,160,"z = "+str$(object position z(2))

if inkey$() = "q" then end
   if shiftkey() = 1 then position object 2,0,50,0
   sync
loop

makeLevel:
   load object "orbitalrelay.x",1
   sc_setupComplexObject 1,1,2
return

makePlayer:
   make object sphere 2,radius#*2
   position object 2,0,50,0
   sc_setupObject 2,0,1
return

movePlayer:

rem rotate player with mouse
   yrotate object 2,object angle y(2)+mousemovex()/3.0
   xrotate object 2,object angle x(2)+mousemovey()/3.0

oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

rem apply gravity, and user changes to movement
   angy# = object angle y(2)
   vx# = 0
   vz# = 0

if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(32)=1 then vx# = vx# + cos(angy#) : vz# = vz# - sin(angy#)
   if keystate(30)=1 then vx# = vx# - cos(angy#) : vz# = vz# + sin(angy#)
   if keystate(31)=1 then vx# = vx# - sin(angy#) : vz# = vz# - cos(angy#)
   if keystate(17)=1 then vx# = vx# + sin(angy#) : vz# = vz# + cos(angy#)
   rem only jump if on ground, and a certain time after last jump
   if ground=1
      if spacekey()=1 and jumptimer=0 then vy# = vy# + 3.0 : jumptimer = 20
   endif

x# = oldx#+vx#
   y# = oldy#+vy#
   z# = oldz#+vz#

collide = sc_SphereCastGroup(1,oldx#,oldy#,oldz#,oldx#,oldy#+vy#,oldz#,radius#,0)

if collide>0

ny# = sc_getCollisionNormalY()

if abs(ny#)>slope#
         rem FLAT, stick
         oldy# = sc_getStaticCollisionY()

else
         rem STEEP, slide
         x# = x# - oldx# : z# = z# - oldz#
         oldx# = sc_getCollisionSlideX()
         oldy# = sc_getCollisionSlideY()
         oldz# = sc_getCollisionSlideZ()
         x# = x# + oldx# : z# = z# + oldz#
      endif

if ny#>slope#
         rem only on ground if standing on flat ground
         ground = 1
         vy# = 0
      else
         ground = 0
         rem if player has hit a flat ceiling then stop vy# movement
         if ny#<-slope# then vy# = gravity#
      endif
   else
      rem nothing below player, not on ground, add vertical speed to player
      oldy# = oldy# + vy#
      ground = 0
   endif

if ground = 1 and jumptimer>0 then dec jumptimer

collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,oldy#,z#,radius#,0)
   if collide>0
      rem if hit, reposition player, halt movement vector
      x# = sc_getCollisionSlideX()
      oldy# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()
      vx# = 0
      vz# = 0

endif

rem position the player
   position object 2,x#,oldy#,z#

sc_updateObject 2

return

function positionCameraToObject(obj,thirdPerson)
   position camera object position x(2),object position y(2),object position z(2)
   rotate camera object angle x(2),object angle y(2),object angle z(2)
   if thirdPerson=1
      pitch camera down 10
      move camera -30
   endif
endfunction

if memblock exist(1) then delete memblock 1

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam off

radius# = 7.0
gravity# = -0.1
slope# = 0.5
ground = 1
jumptimer = 0

gosub makeLevel
gosub makePlayer

do


   gosub MovePlayer

   rem change view
   if inkey$()="v" and vtimer<timer() then vtimer = timer()+300 : view = 1-view


   positionCameraToObject(2,view)

   text 0,20,"x rot: "+str$(object angle x(2))
   text 0,40,"y rot: "+str$(object angle y(2))
   text 0,60,"z rot: "+str$(object angle z(2))
   text 0,80,"FPS: "+str$(screen fps())
   text 0,100,"Touching Ground: "+str$(ground)
   text 0,120,"x = "+str$(object position x(2))
   text 0,140,"y = "+str$(object position y(2))
   text 0,160,"z = "+str$(object position z(2))

   if inkey$() = "q" then end
   if shiftkey() = 1 then position object 2,0,50,0
   sync
loop

makeLevel:
   load object "orbitalrelay.x",1
   sc_setupComplexObject 1,1,2
return


makePlayer:
   make object sphere 2,radius#*2
   position object 2,0,50,0
   sc_setupObject 2,0,1
return




movePlayer:

   rem rotate player with mouse
   yrotate object 2,object angle y(2)+mousemovex()/3.0
   xrotate object 2,object angle x(2)+mousemovey()/3.0

   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

   rem apply gravity, and user changes to movement
   angy# = object angle y(2)
   vx# = 0
   vz# = 0

   if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(32)=1 then vx# = vx# + cos(angy#) : vz# = vz# - sin(angy#)
   if keystate(30)=1 then vx# = vx# - cos(angy#) : vz# = vz# + sin(angy#)
   if keystate(31)=1 then vx# = vx# - sin(angy#) : vz# = vz# - cos(angy#)
   if keystate(17)=1 then vx# = vx# + sin(angy#) : vz# = vz# + cos(angy#)
   rem only jump if on ground, and a certain time after last jump
   if ground=1
      if spacekey()=1 and jumptimer=0 then vy# = vy# + 3.0 : jumptimer = 20
   endif

   x# = oldx#+vx#
   y# = oldy#+vy#
   z# = oldz#+vz#

   collide = sc_SphereCastGroup(1,oldx#,oldy#,oldz#,oldx#,oldy#+vy#,oldz#,radius#,0)

   if collide>0

      ny# = sc_getCollisionNormalY()

      if abs(ny#)>slope#
         rem FLAT, stick
         oldy# = sc_getStaticCollisionY()

      else
         rem STEEP, slide
         x# = x# - oldx# : z# = z# - oldz#
         oldx# = sc_getCollisionSlideX()
         oldy# = sc_getCollisionSlideY()
         oldz# = sc_getCollisionSlideZ()
         x# = x# + oldx# : z# = z# + oldz#
      endif

      if ny#>slope#
         rem only on ground if standing on flat ground
         ground = 1
         vy# = 0
      else
         ground = 0
         rem if player has hit a flat ceiling then stop vy# movement
         if ny#<-slope# then vy# = gravity#
      endif
   else
      rem nothing below player, not on ground, add vertical speed to player
      oldy# = oldy# + vy#
      ground = 0
   endif

   if ground = 1 and jumptimer>0 then dec jumptimer


   collide = sc_SphereSlideGroup(1,oldx#,oldy#,oldz#,x#,oldy#,z#,radius#,0)
   if collide>0
      rem if hit, reposition player, halt movement vector
      x# = sc_getCollisionSlideX()
      oldy# = sc_getCollisionSlideY()
      z# = sc_getCollisionSlideZ()
      vx# = 0
      vz# = 0

   endif

   rem position the player
   position object 2,x#,oldy#,z#

   sc_updateObject 2

return

function positionCameraToObject(obj,thirdPerson)
   position camera object position x(2),object position y(2),object position z(2)
   rotate camera object angle x(2),object angle y(2),object angle z(2)
   if thirdPerson=1
      pitch camera down 10
      move camera -30
   endif
endfunction

if memblock exist(1) then delete memblock 1

Back to top

Profile PM

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 12th Mar 2012 16:15

Link

Quote: "Its one of my biggest pet hates of DBpro; everyones tutorial starts off amazing and exciting then fades off into unfinished chapters once it gets good."

TBH, I never liked that tutorial, because it simply demonstrates some basic things, but it is far from helping someone make actually make a FPS.

Quote: "....so when i have gone through this i am going to look at possibly asking someone to help me expand this into something finshed so everyone can use it."

Okay, do you have a plan for a game in mind?

So many games to code.......so little time.

Back to top

Profile PM Email

Somarl

13

Years of Service

User Offline

Joined: 11th Feb 2011

Location: UK

Posted: 12th Mar 2012 19:13

Link

Quote: "Okay, do you have a plan for a game in mind?"

Yes i do. I have been currently planning for a very long time but only recently (last 6 months or so) have i begun to cut it down. I have decided that the game i want to make so far cannot be made easily so i would merely like to make the concept of it. For example there are far too many assets for me to handle and i am a terrible artist anyway so all i can do is the best i can.

What i want to do in the not too distant future once i have nailed down a few more concpets (A* pathfinding, collision, etc) is go through the game i want to make peice by peice as a sort of "learn on the go" tutorial, where basically i start with what i need to start with and ask for help as i go along. If i can understand it then anyone will be able to as i ask all the questions i need to get to the next stage in the tutorial. Once i have a little concept of the FPS part of the game nailed down i will trim the fat of the posts and try to pop it into a PDF so other folk in the community might have a working FPS to learn from start to finish with at least all the basic principles covered because if im honest thats what i think the forums are lacking.

Forgive the long post. More will follow when i understand a few more things and then write up my "chapter list" of all the things that need to go into the fps to make it work. Then project 'Somarl' will go ahead

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Struggling with Jumping timer