Jump without physics problem - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 25th Sep 2015 17:25

Link

Hi.

I have this code for jump without physics. this code work very well but I can't stop falling after collide with ground or when PlayerY is 87.

please guide me to fix it.

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0

CreateGround()
CreatePlayer()

do

//collide = GetSpriteCollision(Player,ground)

//jump code
	if GetRawKeyPressed(32) = 1
		yspeed# = -1.5
	else
		yspeed# = yspeed# + grav#
		yvelocity# = yvelocity# + yspeed#
		//if GetSpriteY(Player) <= 87		
			SetSpritePosition(Player,GetSpriteX(Player),yvelocity#)
		//endif
	endif

//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSPriteY(Player))
		elseif GetRawKeyState(37) = 1
			SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSPriteY(Player))
	endif
		endif

Print ("Player Y: " + str(GetSpriteY(Player)))

Sync()
loop

Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

+ Code Snippet

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0


CreateGround()
CreatePlayer()

do

	//collide = GetSpriteCollision(Player,ground)

	//jump code
	if GetRawKeyPressed(32) = 1
		yspeed# = -1.5
	else
		yspeed# = yspeed# + grav#
		yvelocity# = yvelocity# + yspeed#
		//if GetSpriteY(Player) <= 87		
			SetSpritePosition(Player,GetSpriteX(Player),yvelocity#)
		//endif
	endif		
	

	//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSPriteY(Player))
		elseif GetRawKeyState(37) = 1
			SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSPriteY(Player))
	endif
		endif


	Print ("Player Y: " + str(GetSpriteY(Player)))

    Sync()
loop


Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

Back to top

Profile PM

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 25th Sep 2015 17:51

Link

I think you might find these very useful:

http://games.greggman.com/game/programming_m_c__kids/

http://www.hobbygamedev.com/int/platformer-game-source-in-processing/

http://www.wildbunny.co.uk/blog/2011/04/20/collision-detection-for-dummies/

The Amiga and Amos were great!

My website LEAP - Download Paint Pot here!

Back to top

Profile PM Email Website

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 25th Sep 2015 20:01

Link

Try this but have a look through the links above as they are quite informative.

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global xspeed# = 0.3
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0

CreateGround()
CreatePlayer()

x# = GetSpriteX(Player)

do

//onGround = 0
	
	//yPlayerSpeed# = 0.0
	
	
	if GetSpriteCollision(ground,Player) = 1
		collide = 1
		yspeed# = 0
	else
		collide = 0
		yspeed# = yspeed# + grav#
	endif

//jump code
	if GetRawKeyPressed(32) and collide = 1
		yspeed# = -1.5
	endif	
	
		
	yvelocity# = yvelocity# + yspeed#

//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			x# = GetSpriteX(Player)+xspeed#
		elseif GetRawKeyState(37) = 1
			x# = GetSpriteX(Player)-xspeed#		
		endif
	endif

SetSpritePosition(Player,x#,yvelocity#)
	Print ("Player Y: " + str(GetSpriteY(Player)))

Sync()
loop

Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

+ Code Snippet

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global xspeed# = 0.3
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0


CreateGround()
CreatePlayer()

x# = GetSpriteX(Player)



do

	//onGround = 0
	
	//yPlayerSpeed# = 0.0
	
	
	if GetSpriteCollision(ground,Player) = 1
		collide = 1
		yspeed# = 0
	else
		collide = 0
		yspeed# = yspeed# + grav#
	endif



	//jump code
	if GetRawKeyPressed(32) and collide = 1
		yspeed# = -1.5
	endif	
	
		
	yvelocity# = yvelocity# + yspeed#
	

	//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			x# = GetSpriteX(Player)+xspeed#
		elseif GetRawKeyState(37) = 1
			x# = GetSpriteX(Player)-xspeed#		
		endif
	endif

	SetSpritePosition(Player,x#,yvelocity#)
	Print ("Player Y: " + str(GetSpriteY(Player)))

    Sync()
loop


Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

The Amiga and Amos were great!

My website LEAP - Download Paint Pot here!

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 25th Sep 2015 20:24

Link

thanks spectrepaul

Back to top

Profile PM

SpecTre

Developer

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: UK

Posted: 25th Sep 2015 21:34 Edited at: 25th Sep 2015 21:34

Link

Just had another look as I am interested in this myself doing a platform game and I am going to be doing my own system and platform detection etc.

Look at this code:

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global xspeed# = 0.3
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0

CreateGround()
CreatePlayer()

x# = GetSpriteX(Player)

feet# = GetSpriteHeight(Player)

do
	
	feetPos# = GetSpriteY(Player)+feet#
	
	if feetPos# >= GetSpriteY(ground)
		collide = 1
		yspeed# = 0
		yvelocity# = GetSpriteY(ground)-feet#
	else
		collide = 0
		yspeed# = yspeed# + grav#
	endif

//jump code
	if GetRawKeyPressed(32) and collide = 1
		yspeed# = -1.5
	endif	
	
		
	yvelocity# = yvelocity# + yspeed#

//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			x# = GetSpriteX(Player)+xspeed#
		elseif GetRawKeyState(37) = 1
			x# = GetSpriteX(Player)-xspeed#		
		endif
	endif

SetSpritePosition(Player,x#,yvelocity#)
	Print ("Player Y: " + str(GetSpriteY(Player)))

Sync()
loop

Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

+ Code Snippet

SetWindowTitle( "jump" )
SetWindowSize( 1280, 800, 0 )

// set display properties
SetDisplayAspect(-1)
SetOrientationAllowed( 1, 1, 1, 1 )

global ground
global Player
global xspeed# = 0.3
global yspeed# = 0.0
global grav# = 0.09
global yvelocity# = 87.0
global jump = 0
global collide = 0


CreateGround()
CreatePlayer()

x# = GetSpriteX(Player)

feet# = GetSpriteHeight(Player)


do
	
	feetPos# = GetSpriteY(Player)+feet#
	
	if feetPos# >= GetSpriteY(ground)
		collide = 1
		yspeed# = 0
		yvelocity# = GetSpriteY(ground)-feet#
	else
		collide = 0
		yspeed# = yspeed# + grav#
	endif


	//jump code
	if GetRawKeyPressed(32) and collide = 1
		yspeed# = -1.5
	endif	
	
		
	yvelocity# = yvelocity# + yspeed#
	

	//Move Player to Left and Right
	if GetSpriteExists(Player) = 1
		if GetRawKeyState(39) = 1
			x# = GetSpriteX(Player)+xspeed#
		elseif GetRawKeyState(37) = 1
			x# = GetSpriteX(Player)-xspeed#		
		endif
	endif

	SetSpritePosition(Player,x#,yvelocity#)
	Print ("Player Y: " + str(GetSpriteY(Player)))

    Sync()
loop


Function CreateGround()
	ground = CreateSprite(0)
	SetSpriteSize(ground,100,5)
	SetSpritePosition(ground,0,95)
EndFunction

Function CreatePlayer()
	Player = CreateSprite(0)
	SetSpriteSize(Player,5,-1)
	SetSpritePosition(Player,10,87)
	SetSpriteColor(Player,192,192,192,255)
EndFunction

Notice the slight change?

Instead of using collision it uses points on the sprites, only changed it basic but if you do six points like the links you can get a better system going.

If you see it lands on the floor better doing this.

The Amiga and Amos were great!

My website LEAP - Download Paint Pot here!

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 25th Sep 2015 21:47 Edited at: 25th Sep 2015 21:54

Link

Thanks spectrepaul for fix problem.

I fixed it with this code.

+ Code Snippet

 if GetSPriteY(Player.spr) > 87 and gcollide = 1
    yvelocity# = 87
    SetSpritePosition(Player.spr,GetSpriteX(Player.spr),yvelocity#)
endif

Back to top

Profile PM

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 25th Sep 2015 23:36 Edited at: 26th Sep 2015 06:30

Link

Quote: "I fixed it with this code."

That's only going to work if your ground is always at the same height. Once you start getting into changing your landscape...It wont work

My idea would be to create a function to determine the Players points of contacts with Grounds[SpriteID]

Using GetSpriteHeight(Grounds[SPriteID]) and GetSpriteWidth(Grounds[SPriteID])

Your going to need to get the width and height of all the ground sprites to determine where the bounds start and end. Also you will need the Sprites Position GetSpriteXPos and GetSpriteYPos

^ This is all just a theory and it has me interested in creating an example. I will get back to you

Edit: I sort of got it to work...Its nothing worth sharing...I might have another go at it some time later.

Ill just go ahead and share it

You never know someone might chime in tell me the actual way to do it

// Project: Physics Test 2 
// Created: 2015-09-25

// set window properties
SetWindowTitle( "Physics Test 2" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

Global Dim Ground[100]

Ground[1] = CreateSprite(0)
SetSpriteSize(Ground[1],1024,50)
SetSpritePosition(Ground[1],0,768-50)

Ground[2] = CreateSPrite(0)
SetSpriteSize(Ground[2],100,100)
SetSpritePosition(Ground[2],400,768-150)

Ground[3] = CreateSprite(0)
SetSPriteSize(Ground[3],100,100)
SetSpritePosition(Ground[3],600,768-300)

Ground[4] = CreateSprite(0)
SetSpriteSize(Ground[4], 100,100)
SetSpritePosition(Ground[4],800,768-150)

Player = CreateSprite(0)
SetSPriteSize(Player,30,60)

Global Player

Global YVelocity# = 5
Global XVelocity# = 5 
Global Collision = 0

do
	
	PlayerX# = GetSpriteX(Player)
	PlayerY# = GetSpriteY(Player)
	
	YVelocity# = 5
	XVelocity# = 5
    
    GroundCollision()
     If GetRawKeyState(37) = 1
			 SetSpritePosition(Player,PlayerX# - XVelocity#,PlayerY# )
			 elseif GetRawKeyState(39) = 1
				 SetSpritePosition(Player,PlayerX# + XVelocity#,PlayerY#)
				 ElseIf GetRawKeyState(38) = 1 and Collision = 1
					 YVelocity#=5
					 SetSpritePosition(Player,PlayerX#,PlayerY# - YVelocity#)
					 ElseIf GetrawKeyState(38) = 1
						 SetSpritePosition(Player,PlayerX#,PlayerY# - YVelocity#)
					 ElseIf GetRawKeyState(40) = 1
						 SetSpritePosition(Player,PlayerX#,PlayerY# + YVelocity#)
						 
				 	
				 endif
    
    
    
Print(GetRawLastKey())

Print( ScreenFPS() )
    Sync()
loop

Function GroundCollision()
	
	For ID = 1 to 4
	GroundWidth# = GetSpriteWidth(Ground[ID])
	GroundHeight# = GetSpriteHeight(Ground[ID])
	GroundX# = GetSpriteX(Ground[ID])
	GroundY# = GetSpriteY(Ground[ID])
	
	PlayerXPos# = GetSpriteX(Player)
	PlayerYPos# = GetSpriteY(Player)
	
	PlayerHeight# = GetSpriteHeight(Player)
      
      PlayerYPos# = PlayerYPos# + PlayerHeight#
	
	//If PlayerXPos# > GroundX# and PlayerYPos# > GroundY# and PlayerXPos# < GroundX# + GroundWidth# and PlayerYPos# < GroundY# + GroundHeight# 
		
		If PlayerXPos# > GroundX# and PlayerXPos# < GroundX# + GroundWidth# and PlayerYPos# > GroundY#  and PlayerYPos# < GroundY# + 10
		
		
		YVelocity# = 0
		Collision = 1
		
		endif
		
		Next ID
		EndFunction

+ Code Snippet

// Project: Physics Test 2 
// Created: 2015-09-25

// set window properties
SetWindowTitle( "Physics Test 2" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )


Global Dim Ground[100]

Ground[1] = CreateSprite(0)
SetSpriteSize(Ground[1],1024,50)
SetSpritePosition(Ground[1],0,768-50)

Ground[2] = CreateSPrite(0)
SetSpriteSize(Ground[2],100,100)
SetSpritePosition(Ground[2],400,768-150)

Ground[3] = CreateSprite(0)
SetSPriteSize(Ground[3],100,100)
SetSpritePosition(Ground[3],600,768-300)

Ground[4] = CreateSprite(0)
SetSpriteSize(Ground[4], 100,100)
SetSpritePosition(Ground[4],800,768-150)


Player = CreateSprite(0)
SetSPriteSize(Player,30,60)

Global Player

Global YVelocity# = 5
Global XVelocity# = 5 
Global Collision = 0


do
	
	PlayerX# = GetSpriteX(Player)
	PlayerY# = GetSpriteY(Player)
	
	YVelocity# = 5
	XVelocity# = 5
    
    GroundCollision()
     If GetRawKeyState(37) = 1
			 SetSpritePosition(Player,PlayerX# - XVelocity#,PlayerY# )
			 elseif GetRawKeyState(39) = 1
				 SetSpritePosition(Player,PlayerX# + XVelocity#,PlayerY#)
				 ElseIf GetRawKeyState(38) = 1 and Collision = 1
					 YVelocity#=5
					 SetSpritePosition(Player,PlayerX#,PlayerY# - YVelocity#)
					 ElseIf GetrawKeyState(38) = 1
						 SetSpritePosition(Player,PlayerX#,PlayerY# - YVelocity#)
					 ElseIf GetRawKeyState(40) = 1
						 SetSpritePosition(Player,PlayerX#,PlayerY# + YVelocity#)
						 
				 	
				 endif
    
    
    
Print(GetRawLastKey())

    Print( ScreenFPS() )
    Sync()
loop



Function GroundCollision()
	
	For ID = 1 to 4
	GroundWidth# = GetSpriteWidth(Ground[ID])
	GroundHeight# = GetSpriteHeight(Ground[ID])
	GroundX# = GetSpriteX(Ground[ID])
	GroundY# = GetSpriteY(Ground[ID])
	
	PlayerXPos# = GetSpriteX(Player)
	PlayerYPos# = GetSpriteY(Player)
	
	PlayerHeight# = GetSpriteHeight(Player)
      
      PlayerYPos# = PlayerYPos# + PlayerHeight#
	
	//If PlayerXPos# > GroundX# and PlayerYPos# > GroundY# and PlayerXPos# < GroundX# + GroundWidth# and PlayerYPos# < GroundY# + GroundHeight# 
		
		If PlayerXPos# > GroundX# and PlayerXPos# < GroundX# + GroundWidth# and PlayerYPos# > GroundY#  and PlayerYPos# < GroundY# + 10
		
		
		YVelocity# = 0
		Collision = 1
		
		endif
		
		Next ID
		EndFunction

This is only checking to see if the sprite is in contact with the top of each Ground sprite.

+ Code Snippet

If PlayerXPos# > GroundX# and PlayerXPos# < GroundX# + GroundWidth# and PlayerYPos# > GroundY#  and PlayerYPos# < GroundY# + 10

^ this is what I am worried about....Something about it just feels wrong...Too many ands...

Move around with the arrow keys (Up,Right,Left,Down)

Beta Test Age of Knights:https://play.google.com/apps/testing/com.CrazyProgrammerProductions.my_AgeOfKnights
Download JellyFish Dive:https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Jump without physics problem