Does PhysicsRayCastGroup Work With SetSpritePhysicsIsSensor ???

Author

Message

JHA

20

Years of Service

User Offline

Joined: 30th Dec 2003

Location: Massachusetts, USA

Posted: 23rd Dec 2014 21:57

Link

I am making a platformer and need to climb a ladder/rope. I can use PhysicsRayCastGroup to detect the Ground Sprites, set with SetSpritePhysicsOn, and that works with the ladders/ropes too, but it does not allow the player sprite to pass through it, so it can be climbed.

I thought that SetSpritePhysicsIsSensor would solve the issue, but PhysicsRayCastGroup doesn't seem to detect it, when it is set as a Sensor instead of a normal physics object.

Even SpriteRayCastGroup isn't working, if I remove physics from them all together.

Not sure I fully understand how I should setup my rays to detect varying objects, so I've messed around with the values, but no love.

I have uploaded my project and media files.

Any help would be greatly appreciated?

Thank you,
JHA

Proverbs Challenge: http://pc.potentialsunleashed.com/

Attachments

Login to view attachments

Back to top

Profile PM Email Website

JHA

20

Years of Service

User Offline

Joined: 30th Dec 2003

Location: Massachusetts, USA

Posted: 24th Dec 2014 15:05

Link

Okay, here is the code that is in the zip file above.

// Project: FallingUp 
// Started: October 7, 2014

// set window properties
SetWindowTitle("Falling Up")
SetVirtualResolution(600, 480)

Gosub _Setup
Gosub _SetupScreen

// Debugging Text Setup
CreateText(1, ""): CreateText(2, ""): CreateText(3, "")
SetTextSize(1, 12): SetTextSize(2, 12): SetTextSize(3, 12)
SetTextPosition(1, 0, 420): SetTextPosition(2, 0, 440): SetTextPosition(3, 0, 400)

do
    
    Gosub _MoveHero
    
    // Detect The Ground and Climable objects - **** Climable Not Working With Or Without Physics!!!
	Climable = PhysicsRayCastGroup(canClimb, GetSpriteX(sprHero)+7, GetSpriteY(sprHero)+11, GetSpriteX(sprHero)+16, GetSpriteY(sprHero)+24)
	Grounded = PhysicsRayCastGroup(onGround, GetSpriteX(sprHero)+7, GetSpriteY(sprHero)+11, GetSpriteX(sprHero)+7, GetSpriteY(sprHero) + 24)

// Display Variables for Debugging
	SetTextString(1, "Grounded: " + str(Grounded))
	SetTextString(2, "Climable: " + str(Climable))
	SetTextString(3, "X: " + (str(GetRawMouseX()) + " Y: " + str(GetRawMouseY())))
	
	// Press ESC to Exit Program
    if GetRawKeyPressed(27) = 1 then End
    Sync()
    
loop

_MoveHero:

// Move Left or Right
	SetSpritePhysicsVelocity(sprHero, (GetRawKeyState(39) - GetRawKeyState(37)) * 50, GetSpritePhysicsVelocityY(sprHero))
	
	// Jumping
	jump = GetRawKeyPressed(32)
	if jump > 0 and Grounded = 1
		SetSpritePhysicsVelocity(sprHero, GetSpritePhysicsVelocityX(sprHero), -jump * 100)
	endif
	
	// Climb Ladders or Ropes
	climb = GetRawKeyState(38)
	if climb > 0 and Climable = 1
		SetSpritePhysicsVelocity(sprHero, GetSpritePhysicsVelocityX(sprHero), -climb * 50)
	endif
	
Return

_Setup:

// Groups
	canClimb = 1
	onGround = 2
	Enemy = 3

// Load Images
	imgHero = LoadImage("man.png")
	imgBaddie = LoadImage("baddie.png")
	imgPlatLeft = LoadImage("platform2-16.png")
	imgPlatMiddle = LoadImage("platform3-16.png")
	imgPlatRight = LoadImage("platform4-16.png")
	imgLadder = LoadImage("ladder-16.png")
	imgPlatLadder = LoadImage("platformladder-16.png")
	imgRope = LoadImage("rope-16.png")
	
	// Setup Hero
	hX# = 16.0: hY# = 348.0
	sprHero = CreateSprite(imgHero)
	SetSpritePosition(sprHero, hX#, hY#)
	SetSpriteDepth(sprHero, 1)
	SetSpritePhysicsOn(sprHero, 2)
	SetSpritePhysicsCanRotate(sprHero, 0)
	SetSpriteGroup(sprHero, canClimb)
	
	// Physics Properties
	SetPhysicsDebugOn()
	SetPhysicsGravity(0, 100)
	
Return

_SetupScreen:

Gosub _Level1Data
			
	// Create Level
	BLOCK = 999: loc = 0: WX = 0: WY = 0
	For Y = 1 to 24
		For X = 1 to 32
			if mid(m$[loc], X, 1) = "2"				// Platform Left
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatLeft)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)
			Endif
			if mid(m$[loc], X, 1) = "3"				// Platform Middle
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatMiddle)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)
			Endif
			if mid(m$[loc], X, 1) = "4"				// Platform Right
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatRight)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)	
			Endif
			if mid(m$[loc], X, 1) = "5"				// Ladder
				Inc BLOCK
				CreateSprite(BLOCK, imgLadder)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 0)
				SetSpriteGroup(BLOCK, canClimb)
			Endif	
			if mid(m$[loc], X, 1) = "6"				// Rope
				Inc BLOCK
				CreateSprite(BLOCK, imgRope)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 1)
				SetSpriteGroup(BLOCK, canClimb)
			Endif
			if mid(m$[loc], X, 1) = "L"				// Ladder Platform Combo
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatLadder)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 1)
				SetSpriteGroup(BLOCK, canClimb)
			Endif	
			if mid(m$[loc], X, 1) = "B"				// Enemies
				Inc BLOCK
				CreateSprite(BLOCK, imgBaddie)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,2)
				SetSpritePhysicsCanRotate(BLOCK,0)
				SetSpriteGroup(BLOCK, Enemy)
			Endif													
			inc WX, 16
		Next X
		inc loc
		inc WY, 16
		WX = 0
	Next Y		
	
Return

_Level1Data:

Dim m$[24]
    m$[0]  =  "23333333333333333333333333333334"
    m$[1]  =  "11111116111116111111161111111111"
    m$[2]  =  "11111116111116111111161111111111"
    m$[3]  =  "1111111611B116111111161111111111"
    m$[4]  =  "11111116123416111111161111111111"
    m$[5]  =  "1233L416111116111111161111111111"
    m$[6]  =  "11115116111116111111161111111111"
    m$[7]  =  "11115116111116111111161111111111"
    m$[8]  =  "11115116111116111111161111111111"
    m$[9]  =  "11123416111116111111161112341111"
    m$[10] =  "1B111116111116111B11161111111111"
    m$[11] =  "23411116111116123334161111112L34"
    m$[12] =  "11111111111111111111111111111511"
    m$[13] =  "11111111111111111111111111111511"
    m$[14] =  "11111111111111111111111111111511"
    m$[15] =  "11111111111111111111111111111511" 
    m$[16] =  "11111111111111111111111111111511"
    m$[17] =  "11111111111111111111111111111511"
    m$[18] =  "11111111111111112341111111111511"
    m$[19] =  "11111111111111111111111111111511"
    m$[20] =  "11111115234111111111111111234511"
    m$[21] =  "11111115111111111111111111111511"
    m$[22] =  "11111115111111111111111111111511"
    m$[23] =  "23333333333333333333333333333334"
  
Return

+ Code Snippet


// Project: FallingUp 
// Started: October 7, 2014

// set window properties
SetWindowTitle("Falling Up")
SetVirtualResolution(600, 480)

Gosub _Setup
Gosub _SetupScreen

// Debugging Text Setup
CreateText(1, ""): CreateText(2, ""): CreateText(3, "")
SetTextSize(1, 12): SetTextSize(2, 12): SetTextSize(3, 12)
SetTextPosition(1, 0, 420): SetTextPosition(2, 0, 440): SetTextPosition(3, 0, 400)

do
    
    Gosub _MoveHero
    
    // Detect The Ground and Climable objects - **** Climable Not Working With Or Without Physics!!!
	Climable = PhysicsRayCastGroup(canClimb, GetSpriteX(sprHero)+7, GetSpriteY(sprHero)+11, GetSpriteX(sprHero)+16, GetSpriteY(sprHero)+24)
	Grounded = PhysicsRayCastGroup(onGround, GetSpriteX(sprHero)+7, GetSpriteY(sprHero)+11, GetSpriteX(sprHero)+7, GetSpriteY(sprHero) + 24)

	// Display Variables for Debugging
	SetTextString(1, "Grounded: " + str(Grounded))
	SetTextString(2, "Climable: " + str(Climable))
	SetTextString(3, "X: " + (str(GetRawMouseX()) + " Y: " + str(GetRawMouseY())))
	
	// Press ESC to Exit Program
    if GetRawKeyPressed(27) = 1 then End
    Sync()
    
loop

_MoveHero:

	// Move Left or Right
	SetSpritePhysicsVelocity(sprHero, (GetRawKeyState(39) - GetRawKeyState(37)) * 50, GetSpritePhysicsVelocityY(sprHero))
	
	// Jumping
	jump = GetRawKeyPressed(32)
	if jump > 0 and Grounded = 1
		SetSpritePhysicsVelocity(sprHero, GetSpritePhysicsVelocityX(sprHero), -jump * 100)
	endif
	
	// Climb Ladders or Ropes
	climb = GetRawKeyState(38)
	if climb > 0 and Climable = 1
		SetSpritePhysicsVelocity(sprHero, GetSpritePhysicsVelocityX(sprHero), -climb * 50)
	endif
	
Return

_Setup:

	// Groups
	canClimb = 1
	onGround = 2
	Enemy = 3

	// Load Images
	imgHero = LoadImage("man.png")
	imgBaddie = LoadImage("baddie.png")
	imgPlatLeft = LoadImage("platform2-16.png")
	imgPlatMiddle = LoadImage("platform3-16.png")
	imgPlatRight = LoadImage("platform4-16.png")
	imgLadder = LoadImage("ladder-16.png")
	imgPlatLadder = LoadImage("platformladder-16.png")
	imgRope = LoadImage("rope-16.png")
	
	// Setup Hero
	hX# = 16.0: hY# = 348.0
	sprHero = CreateSprite(imgHero)
	SetSpritePosition(sprHero, hX#, hY#)
	SetSpriteDepth(sprHero, 1)
	SetSpritePhysicsOn(sprHero, 2)
	SetSpritePhysicsCanRotate(sprHero, 0)
	SetSpriteGroup(sprHero, canClimb)
	
	// Physics Properties
	SetPhysicsDebugOn()
	SetPhysicsGravity(0, 100)
	
Return

_SetupScreen:

	Gosub _Level1Data
			
	// Create Level
	BLOCK = 999: loc = 0: WX = 0: WY = 0
	For Y = 1 to 24
		For X = 1 to 32
			if mid(m$[loc], X, 1) = "2"				// Platform Left
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatLeft)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)
			Endif
			if mid(m$[loc], X, 1) = "3"				// Platform Middle
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatMiddle)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)
			Endif
			if mid(m$[loc], X, 1) = "4"				// Platform Right
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatRight)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,1)
				SetSpriteGroup(BLOCK, onGround)	
			Endif
			if mid(m$[loc], X, 1) = "5"				// Ladder
				Inc BLOCK
				CreateSprite(BLOCK, imgLadder)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 0)
				SetSpriteGroup(BLOCK, canClimb)
			Endif	
			if mid(m$[loc], X, 1) = "6"				// Rope
				Inc BLOCK
				CreateSprite(BLOCK, imgRope)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 1)
				SetSpriteGroup(BLOCK, canClimb)
			Endif
			if mid(m$[loc], X, 1) = "L"				// Ladder Platform Combo
				Inc BLOCK
				CreateSprite(BLOCK, imgPlatLadder)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpriteDepth(BLOCK, 9)
				SetSpritePhysicsIsSensor(BLOCK, 1)
				SetSpriteGroup(BLOCK, canClimb)
			Endif	
			if mid(m$[loc], X, 1) = "B"				// Enemies
				Inc BLOCK
				CreateSprite(BLOCK, imgBaddie)
				SetSpritePosition(BLOCK, WX, WY)
				SetSpritePhysicsOn(BLOCK,2)
				SetSpritePhysicsCanRotate(BLOCK,0)
				SetSpriteGroup(BLOCK, Enemy)
			Endif													
			inc WX, 16
		Next X
		inc loc
		inc WY, 16
		WX = 0
	Next Y		
	
Return

_Level1Data:

	Dim m$[24]
    m$[0]  =  "23333333333333333333333333333334"
    m$[1]  =  "11111116111116111111161111111111"
    m$[2]  =  "11111116111116111111161111111111"
    m$[3]  =  "1111111611B116111111161111111111"
    m$[4]  =  "11111116123416111111161111111111"
    m$[5]  =  "1233L416111116111111161111111111"
    m$[6]  =  "11115116111116111111161111111111"
    m$[7]  =  "11115116111116111111161111111111"
    m$[8]  =  "11115116111116111111161111111111"
    m$[9]  =  "11123416111116111111161112341111"
    m$[10] =  "1B111116111116111B11161111111111"
    m$[11] =  "23411116111116123334161111112L34"
    m$[12] =  "11111111111111111111111111111511"
    m$[13] =  "11111111111111111111111111111511"
    m$[14] =  "11111111111111111111111111111511"
    m$[15] =  "11111111111111111111111111111511" 
    m$[16] =  "11111111111111111111111111111511"
    m$[17] =  "11111111111111111111111111111511"
    m$[18] =  "11111111111111112341111111111511"
    m$[19] =  "11111111111111111111111111111511"
    m$[20] =  "11111115234111111111111111234511"
    m$[21] =  "11111115111111111111111111111511"
    m$[22] =  "11111115111111111111111111111511"
    m$[23] =  "23333333333333333333333333333334"
  
Return

The attachment in the previous post is safe. I just included it, because the media is in there too.

I'll keep working on this, but any help would be greatly appreciated.

Thanks!!
JHA

Proverbs Challenge: http://pc.potentialsunleashed.com/

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 25th Dec 2014 19:40

Link

You may need to set the climable variable up as global

Back to top

Profile PM Email

JHA

20

Years of Service

User Offline

Joined: 30th Dec 2003

Location: Massachusetts, USA

Posted: 28th Dec 2014 04:39

Link

Thanks baxslash, but that didn't seem to work.

Are there any resources that you would recommend to learn about how ray casting works with AppGameKit?

Thanks again!
JHA

Proverbs Challenge: http://pc.potentialsunleashed.com/

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 28th Dec 2014 11:41

Link

Only the help files. I'm pretty sure it should work with sensors. Have you tried using SetPhysicsDebugOn?

Back to top

Profile PM Email

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 28th Dec 2014 13:23 Edited at: 28th Dec 2014 13:38

Link

Something is definitely odd with Raycasts and Sensors... I created this example for another thread, which includes raycasts. I'm printing the raycasts for the bottom and top right edge of the sprite. If you jump near the far left edge of the platform (which is now a sensor), the raycasts are returning the correct values. However, if you jump in the center of the platforms, the raycasts return 0...

SetVirtualResolution(1138, 640)

SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1000)

SetPhysicsWallBottom(0)
SetPhysicsWallTop(0)
SetPhysicsWallRight(0)
SetPhysicsWallLeft(0)

global Ground_Spr
global dim Platform_Spr[3]
global LeftEdge_Spr
global RightEdge_Spr

global Charater_Spr

global RaycastBottom
global dim RaycastRight[2]
global dim RaycastLeft[2]

// Create Ground

Ground_Spr = CreateSprite(0)
SetSpriteSize(Ground_Spr, 1138, 32)
SetSpritePosition(Ground_Spr, 0, 608)
SetSpritePhysicsOn(Ground_Spr, 1)
SetSpritePhysicsRestitution(Ground_Spr, 0)
SetSpriteGroup(Ground_Spr, 1)

// Create Left Edge

LeftEdge_Spr = CreateSprite(0)
SetSpriteSize(LeftEdge_Spr, 32, 640)
SetSpritePosition(LeftEdge_Spr, -32, 0)
SetSpritePhysicsOn(LeftEdge_Spr, 1)
SetSpritePhysicsRestitution(LeftEdge_Spr, 0)
SetSpriteGroup(LeftEdge_Spr, 1)

// Create Right Edge

RightEdge_Spr = CreateSprite(0)
SetSpriteSize(RightEdge_Spr, 32, 640)
SetSpritePosition(RightEdge_Spr, 1138, 0)
SetSpritePhysicsOn(RightEdge_Spr, 1)
SetSpritePhysicsRestitution(RightEdge_Spr, 0)
SetSpriteGroup(RightEdge_Spr, 1)

// Create Platforms

for i=1 TO 3
    Platform_Spr[i] = CreateSprite(0)
    SetSpriteSize(Platform_Spr[i], 128, 32)
    SetSpritePhysicsOn(Platform_Spr[i], 1)
    SetSpritePhysicsRestitution(Platform_Spr[i], 0)
    SetSpriteGroup(Platform_Spr[i], 1)
    SetSpritePhysicsIsSensor(Platform_Spr[i], 1)
next i

SetSpritePositionByOffset(Platform_Spr[1], 300, 450)
SetSpritePositionByOffset(Platform_Spr[2], 569, 350)
SetSpritePositionByOffset(Platform_Spr[3], 838, 450)

// Create Character

Character_Spr = CreateSprite(0)
SetSpriteSize(Character_Spr, 32, 32)
SetSpriteColor(Character_Spr, 255, 0, 0, 255)
SetSpritePosition(Character_Spr, 32, 576)
SetSpritePhysicsOn(Character_Spr, 2)
SetSpritePhysicsCanRotate(Character_Spr, 0)
SetSpritePhysicsRestitution(Character_Spr, 0)

do
    // Raycast Bottom

RaycastBottom = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteYByOffset(Character_Spr), GetSpriteXByOffset(Character_Spr), GetSpriteYByOffset(Character_Spr) + 18)

// Raycast Right

RaycastRight[1] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr), GetSpriteXByOffset(Character_Spr) + 18, GetSpriteY(Character_Spr))
    RaycastRight[2] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr) + 32, GetSpriteXByOffset(Character_Spr) + 18, GetSpriteY(Character_Spr) + 32)
    Print(RaycastRight[1])
    Print(RaycastRight[2])
    // Raycast Left

RaycastLeft[1] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr), GetSpriteXByOffset(Character_Spr) - 18, GetSpriteY(Character_Spr))
    RaycastLeft[2] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr) + 32, GetSpriteXByOffset(Character_Spr) - 18, GetSpriteY(Character_Spr) + 32)

// Character Movement

if GetRawKeyState(37) = 1 AND RaycastLeft[1] = 0 AND RaycastLeft[2] = 0
        SetSpritePhysicsVelocity(Character_Spr, -200, GetSpritePhysicsVelocityY(Character_Spr))
    elseif GetRawKeyState(39) = 1 AND RaycastRight[1] = 0 AND RaycastRight[2] = 0
        SetSpritePhysicsVelocity(Character_Spr, 200, GetSpritePhysicsVelocityY(Character_Spr))
    else
        SetSpritePhysicsVelocity(Character_Spr, 0, GetSpritePhysicsVelocityY(Character_Spr))
    endif

if GetRawKeyPressed(32) = 1 AND RaycastBottom = 1
        SetSpritePhysicsVelocity(Character_Spr, GetSpritePhysicsVelocityX(Character_Spr), -700)
    endif

Sync()
loop

+ Code Snippet

SetVirtualResolution(1138, 640)

SetPhysicsScale(0.05)
SetPhysicsGravity(0, 1000)

SetPhysicsWallBottom(0)
SetPhysicsWallTop(0)
SetPhysicsWallRight(0)
SetPhysicsWallLeft(0)

global Ground_Spr
global dim Platform_Spr[3]
global LeftEdge_Spr
global RightEdge_Spr

global Charater_Spr

global RaycastBottom
global dim RaycastRight[2]
global dim RaycastLeft[2]

// Create Ground

Ground_Spr = CreateSprite(0)
SetSpriteSize(Ground_Spr, 1138, 32)
SetSpritePosition(Ground_Spr, 0, 608)
SetSpritePhysicsOn(Ground_Spr, 1)
SetSpritePhysicsRestitution(Ground_Spr, 0)
SetSpriteGroup(Ground_Spr, 1)

// Create Left Edge

LeftEdge_Spr = CreateSprite(0)
SetSpriteSize(LeftEdge_Spr, 32, 640)
SetSpritePosition(LeftEdge_Spr, -32, 0)
SetSpritePhysicsOn(LeftEdge_Spr, 1)
SetSpritePhysicsRestitution(LeftEdge_Spr, 0)
SetSpriteGroup(LeftEdge_Spr, 1)

// Create Right Edge

RightEdge_Spr = CreateSprite(0)
SetSpriteSize(RightEdge_Spr, 32, 640)
SetSpritePosition(RightEdge_Spr, 1138, 0)
SetSpritePhysicsOn(RightEdge_Spr, 1)
SetSpritePhysicsRestitution(RightEdge_Spr, 0)
SetSpriteGroup(RightEdge_Spr, 1)

// Create Platforms

for i=1 TO 3
    Platform_Spr[i] = CreateSprite(0)
    SetSpriteSize(Platform_Spr[i], 128, 32)
    SetSpritePhysicsOn(Platform_Spr[i], 1)
    SetSpritePhysicsRestitution(Platform_Spr[i], 0)
    SetSpriteGroup(Platform_Spr[i], 1)
    SetSpritePhysicsIsSensor(Platform_Spr[i], 1)
next i

SetSpritePositionByOffset(Platform_Spr[1], 300, 450)
SetSpritePositionByOffset(Platform_Spr[2], 569, 350)
SetSpritePositionByOffset(Platform_Spr[3], 838, 450)

// Create Character

Character_Spr = CreateSprite(0)
SetSpriteSize(Character_Spr, 32, 32)
SetSpriteColor(Character_Spr, 255, 0, 0, 255)
SetSpritePosition(Character_Spr, 32, 576)
SetSpritePhysicsOn(Character_Spr, 2)
SetSpritePhysicsCanRotate(Character_Spr, 0)
SetSpritePhysicsRestitution(Character_Spr, 0)

do
    // Raycast Bottom

    RaycastBottom = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteYByOffset(Character_Spr), GetSpriteXByOffset(Character_Spr), GetSpriteYByOffset(Character_Spr) + 18)

    // Raycast Right

    RaycastRight[1] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr), GetSpriteXByOffset(Character_Spr) + 18, GetSpriteY(Character_Spr))
    RaycastRight[2] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr) + 32, GetSpriteXByOffset(Character_Spr) + 18, GetSpriteY(Character_Spr) + 32)
    Print(RaycastRight[1])
    Print(RaycastRight[2])
    // Raycast Left

    RaycastLeft[1] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr), GetSpriteXByOffset(Character_Spr) - 18, GetSpriteY(Character_Spr))
    RaycastLeft[2] = PhysicsRayCastGroup(1, GetSpriteXByOffset(Character_Spr), GetSpriteY(Character_Spr) + 32, GetSpriteXByOffset(Character_Spr) - 18, GetSpriteY(Character_Spr) + 32)

    // Character Movement

    if GetRawKeyState(37) = 1 AND RaycastLeft[1] = 0 AND RaycastLeft[2] = 0
        SetSpritePhysicsVelocity(Character_Spr, -200, GetSpritePhysicsVelocityY(Character_Spr))
    elseif GetRawKeyState(39) = 1 AND RaycastRight[1] = 0 AND RaycastRight[2] = 0
        SetSpritePhysicsVelocity(Character_Spr, 200, GetSpritePhysicsVelocityY(Character_Spr))
    else
        SetSpritePhysicsVelocity(Character_Spr, 0, GetSpritePhysicsVelocityY(Character_Spr))
    endif

    if GetRawKeyPressed(32) = 1 AND RaycastBottom = 1
        SetSpritePhysicsVelocity(Character_Spr, GetSpritePhysicsVelocityX(Character_Spr), -700)
    endif

    Sync()
loop

I'd say there is definitely something up with that...

EDIT: Just thinking about this abit more... I wonder if this statement (from the help files) is the culprit...

Quote: "If the ray starts inside a shape that shape will not be counted in the results."

Maybe this is being carried through to ALL sprites and not just the originating sprite. This would explain why it works fine on the left edge of the platform (as the 'start' of the raycast is not in the platform). Where as when jumping in the center of the platform, I guess you could say the 'start' of the raycast is also in the platform, hence being ignored?...

Back to top

Profile PM Email

JHA

20

Years of Service

User Offline

Joined: 30th Dec 2003

Location: Massachusetts, USA

Posted: 31st Dec 2014 17:28

Link

Well, I've had moderate success when first setting the Sprite's Shape, with SetSpriteShape(Sprite, 2).

That allows the PhysicsRayCastGroup call to work, whether the sprite is an Object or a Sensor.

It still seems a little quirky, but that could just be the way I have setup my Rays. I'll keep working on it and post any solutions I come up with.

Thank you baxslash and Funnell7!! I appreciate the help!

JHA

Proverbs Challenge: http://pc.potentialsunleashed.com/

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Does PhysicsRayCastGroup Work With SetSpritePhysicsIsSensor ???

Attachments