Collision using offset and angle not working...

Author

Message

Paronamixxe

AGK Bronze Backer

12

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 16th Dec 2013 16:56 Edited at: 17th Dec 2013 14:52

Link

****SOLVED****

Hello all!

Im having a little trouble with setting up a sprite for collision. Why? Because I have added an X offset and update the angle every render to make the sprite orbit the center of the screen. Problem is, that AppGameKit thinks that the sprite literally is at a specific X and Y value which doesn't change. Therefore traditional collision checking won't work

+ Code Snippet

integer GetSpriteCollision( iSprite1, iSprite2 )

So I thought that maybe physics was going to help me... nope. haha
I've been messing around with several different methods and I've managed to create the collision "sphere" that I want... Problem is, because the X and Y coordinates aren't changing... The sprite's collision "sphere" isn't moving...
Setting up my moving sprites:

+ Code Snippet

For i = 1 to 4

                    Enemies[i].Sprite = CreateSprite ( LoadImage ( Enemies[i].Image ) )
                    SetSpriteSize ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY )
                    SetSpriteVisible ( Enemies[i].Sprite , 0 )
                    SetSpriteOffset ( Enemies[i].Sprite , -1250 , 0 )
                    SetSpriteAnimation ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY , 32 )
                    SetSpritePosition ( Enemies[i].Sprite , 100 , 100 )
                    SetSpritePhysicsOn ( Enemies[i].Sprite , 3 )
                    SetSpriteShapeCircle ( Enemies[i].Sprite , GetSpriteXByOffset ( Enemies[i].Sprite ) , GetSpriteYByOffset ( Enemies[i].Sprite ) , 64 )

                Next i

Setting up my "center of screen sprite":

+ Code Snippet

               //World
                    World = CreateSprite ( LoadImage ( "world.png" ) )
                    SetSpriteSize ( World , 256 , 256 )
                    SetSpritePosition ( World , 832 , 412 )
                    SetSpriteAnimation ( World , 512 , 512 , 32 )
                    SetSpriteColorAlpha ( World , 0 )
                    SetSpritePhysicsOn ( World , 1 )
                    SetSpriteShapeCircle ( World , 0 , 0 , 100 )

Updating the Moving sprite's position:

+ Code Snippet

Inc Enemy_Offset_1 , 2
                        If GetSpritePlaying ( Enemies[Enemies_Random[1].Sprite].Sprite ) = 0 Then PlaySprite ( Enemies[Enemies_Random[1].Sprite].Sprite , 30 , 1 )
                        SetSpriteVisible ( Enemies[Enemies_Random[1].Sprite].Sprite , 1 )
                        SetSpritePositionByOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , GetSpriteX ( World ) + GetSpriteWidth ( World ) / 2 , GetSpriteY ( World ) + GetSpriteHeight ( World ) / 2 )
                        SetSpriteAngle ( Enemies[Enemies_Random[1].Sprite].Sprite , timer ( ) * Player_Speed# + 30 )
                        SetSpriteOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , Enemy_Offset_1 , 0 )

Checking for collision:

+ Code Snippet

//Check Collision
    _Check_Collision:

        For i = 1 to 4

            If GetSpriteInCircle ( Enemies[i].Sprite , 1920/2 , 1080/2 , 128 ) = 1

                print ( "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA")

            Endif

        Next i

    Return

Here is a picture of what I mean:http://imgur.com/bRI30Es

All help is appreciated!

nope.

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Dec 2013 19:01 Edited at: 16th Dec 2013 19:03

Link

hmm, i don't understand really why you change the local offset if the world
is moving.
SetSpriteOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , Enemy_Offset_1 , 0 )

did u use beta 19 yet?

OT
there also exist GetSpriteXByOffset,
u don't need
GetSpriteX ( World ) + GetSpriteWidth ( World ) / 2
the handle is also default in the middle.

AGK 108 B19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Paronamixxe

AGK Bronze Backer

12

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 16th Dec 2013 19:12

Link

Quote: "hmm, i don't understand really why you change the local offset if the world
is moving.
SetSpriteOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , Enemy_Offset_1 , 0 )"

Im not setting the offset for the "world" sprite. Only for the Enemies...

Quote: "did u use beta 19 yet?"

I am using build 108.

Quote: "OT
there also exist GetSpriteXByOffset,
u don't need
GetSpriteX ( World ) + GetSpriteWidth ( World ) / 2
the handle is also default in the middle.
"

I wouldn't need to use that, since the World sprite doesnt have an offset assigned to it.

nope.

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 17th Dec 2013 11:54

Link

i think your problem was this line because offset.
SetSpriteShapeCircle ( Enemies[i].Sprite , GetSpriteXByOffset ( Enemies[i].Sprite ) , GetSpriteYByOffset ( Enemies[i].Sprite ) , 64 )

rem
rem AGK Application 108 B19
rem

SetDisplayAspect( 16.0/9.0 )
setvirtualresolution(1920,1080)
setphysicsgravity(0,0)

setphysicsdebugon()

//-------------

type TEnemies
    Index
    Sprite
    SizeX
    SizeY
    ImageName
endtype

dim Enemies[5] as TEnemies
dim Enemies_Random[5] as Integer

For i = 1 to 4

Enemies[i].SizeX=100.0
        Enemies[i].SizeY=100.0

Enemies[i].Sprite = CreateSprite(0) // LoadSprite( Enemies[i].ImageName )
        SetSpriteSize ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY )
        SetSpriteVisible ( Enemies[i].Sprite , 1 )
        SetSpriteAnimation ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY , 32 )
        SetSpritePosition ( Enemies[i].Sprite , 500 , getvirtualheight()/2.0 + i* 150.0 -300.0)
        SetSpriteShapeCircle ( Enemies[i].Sprite , 0 ,0 , 64 )
        SetSpritePhysicsOn ( Enemies[i].Sprite , 3 )

Enemies[i].Index=i
        Enemies_Random[i]=Enemies[i].Index

//World
    World = LoadSprite("planet.jpg") //"world.png"
    SetSpriteSize ( World , 256 , 256 )
    SetSpritePosition ( World , 1920.0/2.0 , 1080.0 / 2.0 )
    //SetSpriteAnimation ( World , 512 , 512 , 32 )
    //SetSpriteColorAlpha ( World , 0 )
    SetSpritePhysicsOn ( World , 1 )
    SetSpriteShapeCircle ( World , 0 , 0 , 100 )

//-------------

setSpritePositionByOffset ( Enemies[Enemies_Random[1]].Sprite , GetSpriteXbyoffset( World ) , GetSpriteYbyoffset( World ) )

do

//-------------

Player_Speed#=10.0

For i = 1 to 4

spr=Enemies[Enemies_Random[i]].Sprite

SetSpriteAngle ( spr , timer()*2.0 * Player_Speed# + 30.0 )

a#=getspriteangle(spr)
        dx#=cos(a#)
        dy#=sin(a#)

//move forward
        SetSpritePositionByOffset (spr , GetSpriteXbyoffset( spr ) +dx#, GetSpriteYbyoffset( spr ) +dy#)

For i = 1 to 4

If GetSpriteInCircle ( Enemies[i].Sprite , GetSpriteXbyoffset( World ) , GetSpriteYbyoffset( World ) , 100.0 ) = 1

print (str(i)+ " GetSpriteInCircle :)")

Endif

Sync()
loop
end

+ Code Snippet

rem
rem AGK Application 108 B19
rem

SetDisplayAspect( 16.0/9.0 )
setvirtualresolution(1920,1080)
setphysicsgravity(0,0)

setphysicsdebugon()

//-------------

type TEnemies
    Index
    Sprite
    SizeX
    SizeY
    ImageName
endtype

dim Enemies[5] as TEnemies
dim Enemies_Random[5] as Integer

For i = 1 to 4

        Enemies[i].SizeX=100.0
        Enemies[i].SizeY=100.0

        Enemies[i].Sprite = CreateSprite(0) // LoadSprite( Enemies[i].ImageName )
        SetSpriteSize ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY )
        SetSpriteVisible ( Enemies[i].Sprite , 1 )
        SetSpriteAnimation ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY , 32 )
        SetSpritePosition ( Enemies[i].Sprite , 500 , getvirtualheight()/2.0 + i* 150.0 -300.0)
        SetSpriteShapeCircle ( Enemies[i].Sprite , 0 ,0 , 64 )
        SetSpritePhysicsOn ( Enemies[i].Sprite , 3 )

        Enemies[i].Index=i
        Enemies_Random[i]=Enemies[i].Index

Next

//-------------

    //World
    World = LoadSprite("planet.jpg") //"world.png"
    SetSpriteSize ( World , 256 , 256 )
    SetSpritePosition ( World , 1920.0/2.0 , 1080.0 / 2.0 )
    //SetSpriteAnimation ( World , 512 , 512 , 32 )
    //SetSpriteColorAlpha ( World , 0 )
    SetSpritePhysicsOn ( World , 1 )
    SetSpriteShapeCircle ( World , 0 , 0 , 100 )

//-------------


setSpritePositionByOffset ( Enemies[Enemies_Random[1]].Sprite , GetSpriteXbyoffset( World ) , GetSpriteYbyoffset( World ) )

do

    //-------------

    Player_Speed#=10.0

    For i = 1 to 4

        spr=Enemies[Enemies_Random[i]].Sprite

        SetSpriteAngle ( spr , timer()*2.0 * Player_Speed# + 30.0 )

        a#=getspriteangle(spr)
        dx#=cos(a#)
        dy#=sin(a#)

        //move forward
        SetSpritePositionByOffset (spr , GetSpriteXbyoffset( spr ) +dx#, GetSpriteYbyoffset( spr ) +dy#)

    Next

    //-------------

        For i = 1 to 4

            If GetSpriteInCircle ( Enemies[i].Sprite , GetSpriteXbyoffset( World ) , GetSpriteYbyoffset( World ) , 100.0 ) = 1

                print (str(i)+ " GetSpriteInCircle :)")

            Endif

        Next

    //-------------


    Sync()
loop
end

AGK 108 B19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Paronamixxe

AGK Bronze Backer

12

Years of Service

User Offline

Joined: 10th Feb 2012

Location: Sweden

Posted: 17th Dec 2013 14:51

Link

I tried altering my code to your example, although it did not help. However, I have solved the problem!!!

( http://i.imgur.com/gmw0cYC.jpg )

So here's whats going on. SpritePhysics does not take into account offset points... Which means that if you are constantly changing the offset point your collision sphere will not follow the image on the screen. However, if you turn physics off, change the properties and turn it on again, it updates the position of the collision sphere. I'm sure a lot of you are going to be annoyed by me changing the physics state of a sprite every frame, but it works! And that's all that really matters.

Anyway, here's my code.
The Movement Code and updating the collision sphere (in the do loop):

SetSpritePhysicsOff ( Enemies[Enemies_Random[1].Sprite].Sprite )
                        Inc Enemy_Offset_1 , 2
                        If GetSpritePlaying ( Enemies[Enemies_Random[1].Sprite].Sprite ) = 0 Then PlaySprite ( Enemies[Enemies_Random[1].Sprite].Sprite , 30 , 1 )
                        SetSpriteVisible ( Enemies[Enemies_Random[1].Sprite].Sprite , 1 )
                        SetSpritePositionByOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , GetSpriteX ( World ) + GetSpriteWidth ( World ) / 2 , GetSpriteY ( World ) + GetSpriteHeight ( World ) / 2 )
                        SetSpriteAngle ( Enemies[Enemies_Random[1].Sprite].Sprite , timer ( ) * Player_Speed# )
                        SetSpriteOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , Enemy_Offset_1 , 0 )
                        SetSpritePhysicsOn ( Enemies[Enemies_Random[1].Sprite].Sprite , 2 )
                        SetSpriteShapeCircle ( Enemies[Enemies_Random[1].Sprite].Sprite , 1314 - (1250 + Enemy_Offset_1) , 64 , 64 )

+ Code Snippet

                       SetSpritePhysicsOff ( Enemies[Enemies_Random[1].Sprite].Sprite )
                        Inc Enemy_Offset_1 , 2
                        If GetSpritePlaying ( Enemies[Enemies_Random[1].Sprite].Sprite ) = 0 Then PlaySprite ( Enemies[Enemies_Random[1].Sprite].Sprite , 30 , 1 )
                        SetSpriteVisible ( Enemies[Enemies_Random[1].Sprite].Sprite , 1 )
                        SetSpritePositionByOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , GetSpriteX ( World ) + GetSpriteWidth ( World ) / 2 , GetSpriteY ( World ) + GetSpriteHeight ( World ) / 2 )
                        SetSpriteAngle ( Enemies[Enemies_Random[1].Sprite].Sprite , timer ( ) * Player_Speed# )
                        SetSpriteOffset ( Enemies[Enemies_Random[1].Sprite].Sprite , Enemy_Offset_1 , 0 )
                        SetSpritePhysicsOn ( Enemies[Enemies_Random[1].Sprite].Sprite , 2 )
                        SetSpriteShapeCircle ( Enemies[Enemies_Random[1].Sprite].Sprite , 1314 - (1250 + Enemy_Offset_1) , 64 , 64 )

The Code for setting up the enemy sprites:

+ Code Snippet

              For i = 1 to 4

                    Enemies[i].Sprite = CreateSprite ( LoadImage ( Enemies[i].Image ) )
                    SetSpriteSize ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY )
                    SetSpriteVisible ( Enemies[i].Sprite , 0 )
                    SetSpriteOffset ( Enemies[i].Sprite , -1250 , 0 )
                    SetSpriteAnimation ( Enemies[i].Sprite , Enemies[i].SizeX , Enemies[i].SizeY , 32 )
                    SetSpritePosition ( Enemies[i].Sprite , 100 , 100 )
                    SetSpritePhysicsOn ( Enemies[i].Sprite , 3 )
                    SetSpriteShapeCircle ( Enemies[i].Sprite , 0 , 0 , 64 )

                Next i

The collision code:

+ Code Snippet

            If GetSpriteInCircle ( Enemies[i].Sprite , 1920/2 , 1080/2 , 128 ) = 1

                flag = 4

            Endif

        Next i

This line here

+ Code Snippet

SetSpriteShapeCircle ( Enemies[Enemies_Random[1].Sprite].Sprite , 1314 - (1250 + Enemy_Offset_1) , 64 , 64 )

is basically where all the magic happens. You can find it in the "Movement code and updating the collision..." part. The numbers in here can be explained in here:

+ Code Snippet

1314 = The original offset made positive + 128 (the sprite's width)
1250 = The original offset made positive
64 = The size of the collision circle
64 (second one) = setting the size of the collision circle

Hope this helps someone in the future... Took me a while to figure out! Thanks anyway Markus!

nope.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Collision using offset and angle not working...