Cilmb ladder - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jan 2014 13:48

Link

Hi.

I wrote a code when the player collide with ladder sprite and VirtualJoystickY is move up can climb the ladder. but I want when release the VirtualJoystickY, stay at latest position on the ladder.
But I don't know how can do it.

+ Code Snippet

    LadderCollide = GetSpriteCollision ( Player, ladder )
        if LadderCollide = 1 and GetVirtualJoystickY ( 1 ) < 0
            Print ("Collision")
            SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), GetVirtualJoystickY (1)*20.0)
        Endif

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 10th Jan 2014 14:03 Edited at: 10th Jan 2014 14:06

Link

u can set the velocity y to 0
if you want climb up u speed up y.
maybe u can use a impulse or force for movement.

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jan 2014 14:14

Link

could you show me your mean?

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 10th Jan 2014 17:37

Link

You need to either use a tolerance or the built in "dead zone" in the virtual joystick:

+ Code Snippet

    LadderCollide = GetSpriteCollision ( Player, ladder )
        if LadderCollide = 1 and GetVirtualJoystickY ( 1 ) < 0
            Print ("Collision")
            if abs(GetVirtualJoystickY (1))>0.1
                SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), GetVirtualJoystickY (1)*20.0)
            endif
        Endif

oct(31) = dec(25)

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 10th Jan 2014 21:46

Link

it's did not make a difference.

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 10th Jan 2014 22:17

Link

if you set a Velocity, you need also brake i think.

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Funnell7

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location: UK, England

Posted: 11th Jan 2014 10:13

Link

Once you apply velocity, the sprite will continue forever, until you stop it (I think this is what Markus is saying too)... Using just your snippet as an example, a simple method would be as follows;

+ Code Snippet

LadderCollide = GetSpriteCollision ( Player, ladder )

if LadderCollide = 1
    Print ("Collision")
    if GetVirtualJoystickY ( 1 ) < 0
         SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), GetVirtualJoystickY (1)*20.0)
    else
         SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), 0)
    endif
endif

This is an example using your snippet only, this may not work with the rest of your code as I haven't seen it... You may need to tweak a couple things, but this gives you the idea.

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Jan 2014 08:42 Edited at: 16th Jan 2014 09:17

Link

Thanks

also I add this line for stand on the ladder and don't move down.

+ Code Snippet

    if LadderCollide = 0
        SetphysicsGravity (0,100)
    else
        SetphysicsGravity (0,0)
    Endif

But somtomes SetphysicsGravity (0,0)the problem will occur. mean before climp the ladder if I push a box sprite then climb the ladder, the box sprite Glide.

This is my full code and Sprites. Please Help me to fix some Problem.

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )
SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )

// Sprite Box
Box = CreateSprite ( LoadImage ("box.png") )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 40, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 0)
SetSpritePhysicsFriction(Box, 100)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

select state
    case 0:
        SetSpriteImage ( Player, img1, 1 )
        if GetVirtualJoystickX ( 1 ) > 0
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 2
        elseif GetVirtualJoystickX ( 1 ) < 0
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 3
        Endif
    endcase

case 2:
        setSpritePhysicsVelocity(Player,GetVirtualJoystickX(1)*20.0,getSpritePhysicsVelocityY(Player))
        if GetVirtualJoystickX ( 1 ) < 0
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 3
        elseif GetVirtualJoystickX ( 1 ) = 0
            state = 0
            SetSpriteImage ( Player, img1, 1 )
        Endif
    endcase

case 3:
        setSpritePhysicsVelocity(Player,GetVirtualJoystickX(1)*20.0,getSpritePhysicsVelocityY(Player))
        if GetVirtualJoystickX ( 1 ) > 0
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 2
        elseif GetVirtualJoystickX ( 1 ) = 0
            state = 0
            SetSpriteImage ( Player, img1, 1 )
        Endif
    endcase
endselect

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )

if LadderCollide = 1
        Print ("Collision")
        if GetVirtualJoystickY ( 1 ) < 0
            SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), GetVirtualJoystickY (1)*20.0)
            //SetphysicsGravity (0,0)
        else
            SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), 0)
    endif
endif

if LadderCollide = 0
        SetphysicsGravity (0,100)
    else
        SetphysicsGravity (0,0)
    Endif

Print (GetVirtualJoystickY(1))
    Print (BoxCollide)

sync()
Loop

+ Code Snippet

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )
SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )

// Sprite Box
Box = CreateSprite ( LoadImage ("box.png") )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 40, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 0)
SetSpritePhysicsFriction(Box, 100)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

select state
    case 0:
        SetSpriteImage ( Player, img1, 1 )
        if GetVirtualJoystickX ( 1 ) > 0
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 2
        elseif GetVirtualJoystickX ( 1 ) < 0
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 3
        Endif
    endcase

    case 2:
        setSpritePhysicsVelocity(Player,GetVirtualJoystickX(1)*20.0,getSpritePhysicsVelocityY(Player))
        if GetVirtualJoystickX ( 1 ) < 0
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 3
        elseif GetVirtualJoystickX ( 1 ) = 0
            state = 0
            SetSpriteImage ( Player, img1, 1 )
        Endif
    endcase

    case 3:
        setSpritePhysicsVelocity(Player,GetVirtualJoystickX(1)*20.0,getSpritePhysicsVelocityY(Player))
        if GetVirtualJoystickX ( 1 ) > 0
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            state = 2
        elseif GetVirtualJoystickX ( 1 ) = 0
            state = 0
            SetSpriteImage ( Player, img1, 1 )
        Endif
    endcase
endselect

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )

    if LadderCollide = 1
        Print ("Collision")
        if GetVirtualJoystickY ( 1 ) < 0
            SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), GetVirtualJoystickY (1)*20.0)
            //SetphysicsGravity (0,0)
        else
            SetSpritePhysicsVelocity(Player, getSpritePhysicsVelocityX(Player), 0)
    endif
endif

    if LadderCollide = 0
        SetphysicsGravity (0,100)
    else
        SetphysicsGravity (0,0)
    Endif

    Print (GetVirtualJoystickY(1))
    Print (BoxCollide)

    sync()
Loop

Attachments

Login to view attachments

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Jan 2014 09:29

Link

i will take a look...

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Jan 2014 10:13

Link

Thanks Markus

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Jan 2014 15:42

Link

it seems if you set the y velocity to 0 at the ladder the gravity applies later.
i do a call with up force to make the gravity =0 at stay at ladder.

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )

// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)

SetphysicsGravity (0,10.0)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

//move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

Print(LadderCollide)
    print(jy)

sync()
Loop

+ Code Snippet

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )


// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )


// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)


SetphysicsGravity (0,10.0)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

        if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

    //move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

    if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

    Print(LadderCollide)
    print(jy)

    sync()
Loop

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Jan 2014 18:30

Link

what is this???

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Jan 2014 19:15 Edited at: 16th Jan 2014 19:21

Link

interesting for you is only

+ Code Snippet

print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)

the abs > i had done because the alien schould not go up/down at ladder border.

+ Code Snippet

if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

alternate you can disable the gravity and simulate it for all
objects self with a force if you need.
means then you can skip the down force if the alien should stay at ladder.
the problem is then the physics objects not goto sleep mode.

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Jan 2014 19:56

Link

Markus can you give me final code?

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 16th Jan 2014 20:13 Edited at: 16th Jan 2014 20:15

Link

the code snippet before was working as example.
there i had replaced the state with flags.

for a better jump and run u need also to know if the player is
in air or at ground or elsewhere.

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Jan 2014 21:05

Link

I think you are kidding me with this code:

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )

// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)

SetphysicsGravity (0,10.0)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

//move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

Print(LadderCollide)
    print(jy)

sync()
Loop

+ Code Snippet

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )


// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )


// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)


SetphysicsGravity (0,10.0)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

        if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

    //move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

    if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

    Print(LadderCollide)
    print(jy)

    sync()
Loop

and I don't fix any problem in your code.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 17th Jan 2014 09:01

Link

Behdadsoft, you are being disrespectful. I'm not sure if it's on purpose or not but Markus is a valued member of this community who knows what he is talking about. Please take the time to read everyone's responses carefully and don't expect people to just give you the full working code you are looking for.

The most important thing here is that you try to learn rather than try to get the working codez as fast as possible. If you don't read carefully you will not learn and it will become frustrating for everyone.

oct(31) = dec(25)

Back to top

Profile PM Email

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 17th Jan 2014 10:22 Edited at: 17th Jan 2014 10:25

Link

@Behdadsoft
you want

Quote: "release the VirtualJoystickY, stay at latest position on the ladder."

that works with my example.
i did not said you should use compleate, just one row u need at least.
did you use same agk version i used?
did the player still moved from self at ladder after release?

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 17th Jan 2014 10:55

Link

Quote: "
Markus is a valued member of this community
"

I know baxslash.

Quote: "
Behdadsoft, you are being disrespectful
"

I do not disrespect anyone. at this forum all is my friends.

Quote: "
Please take the time to read everyone's responses carefully and don't expect people to just give you the full working code you are looking for.
"

I take a time and read Markus code. but I see my code is 107 line and there is some problem. and i ask to help me for fix the Problems. and I say what is the problem at Post 8, then give full code with sprites for everyone that can help me.
now Markus (thank you for help) give me a another code with 120 line and an unexpected things. I tell what is my problem and now I see funny code with More Problems.

Quote: "
If you don't read carefully you will not learn and it will become frustrating for everyone.
"

yes, if I don't read carefully I will not learn and it will become frustrating for everyone. and if everyone don't read carefully before Answer Working with AppGameKit will become frustrating for everyone. because We conclude that the person does not know the solution.

Quote: "
and don't expect people to just give you the full working code you are looking for
"

I don't want Full code. I tried write custom code but always I don't know anything and need question for learn some things. but i do not expect give me not good answer because will become frustrating for me. AppGameKit is no have good example and document for good understanding. I don't know? other engines like AndEngine, CoronaSDK and ... have good video and book tutorials. realy I'm sorry bought AppGameKit because $ 320 was for me. and see it no have good support and good document.

Thanks.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 17th Jan 2014 11:46 Edited at: 17th Jan 2014 11:48

Link

Quote: "I'm not sure if it's on purpose or not"

My point is that you are sounding disrespectful, I'm glad to hear that you don't intend to sound that way.

There are plenty of people trying to help you (myself included) and you reply with answers like "it's did not make a difference." and "I think you are kidding me with this code". That sounds disrespectful. I hope you understand that I am trying to help you by telling you that.

By also saying "Markus can you give me final code? " you sound like you are asking for full working code. Perhaps you forgot you wrote that?

AGK is made by a few developers and is very cheap for what it does. The community and the forum have always been the best source of information for TGC products but yes it would be nice if there were more tutorials. Unfortunately I don't have time to write them any more but a few others are producing tutorials if you look around the forum and the AppGameKit website a little.

As to your problem I just tested Markus's code and it solves your problem perfectly... try this version which does not rely on any images:

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = 0 `LoadImage (\"p1_stand.png\")
img2 = 0 `LoadImage (\"p1_walk.png\")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )

// Ladder Sprite
ladder = CreateSprite ( 0 ) `LoadImage (\"ladder.png\") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )

// Sprite Box
imgBox=0 `LoadImage (\"box.png\")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)

SetphysicsGravity (0,10.0)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

//move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

if LadderCollide = 1
        Print (\"Collision\")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print(\"Stay\")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

Print(LadderCollide)
    print(jy)

sync()
Loop

+ Code Snippet

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = 0 `LoadImage (\"p1_stand.png\")
img2 = 0 `LoadImage (\"p1_walk.png\")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )


// Ladder Sprite
ladder = CreateSprite ( 0 ) `LoadImage (\"ladder.png\") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )


// Sprite Box
imgBox=0 `LoadImage (\"box.png\")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)


SetphysicsGravity (0,10.0)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

        if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

    //move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

    if LadderCollide = 1
        Print (\"Collision\")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print(\"Stay\")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

    Print(LadderCollide)
    print(jy)

    sync()
Loop

oct(31) = dec(25)

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 17th Jan 2014 11:51 Edited at: 17th Jan 2014 12:05

Link

Quote: "
i did not said you should use compleate, just one row u need at least.
"

Mean this line?
if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

but in my code PLayer could stay on the ladder. mys problem is another thing.
"But somtomes SetphysicsGravity (0,0)the problem will occur. mean before climp the ladder if I push a box sprite then climb the ladder, the box sprite Glide.
"
Yes I used AppGameKit 108 (B)19. But I think AppGameKit have big bug because some codes don't work with same AppGameKit version. already I has this problem with another thing.

when I use this code, The player fly at air.

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )

// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)

SetphysicsGravity (0,10.0)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

//move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

Print(LadderCollide)
    print(jy)

sync()
Loop

+ Code Snippet

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )


// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )


// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)


SetphysicsGravity (0,10.0)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

        if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

    //move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

    if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.25,jy*20.0)
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-50.0)
        endif
    endif

    Print(LadderCollide)
    print(jy)

    sync()
Loop

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 17th Jan 2014 12:08

Link

You should not be setting gravity to stop your player from falling off the ladder. The correct way to do it is the way Markus has shown you by only setting the velocity of the player sprite if he is on a ladder.

It is not a bug. If you set the gravity to zero it does it to the whole scene, not just one sprite. That is the way the command should work, you are just using it for the wrong purpose.

oct(31) = dec(25)

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 17th Jan 2014 16:21

Link

marcus Please give show change at my code and no your code.
I'm confused.
Thanks.

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 17th Jan 2014 19:09

Link

ok,
yes its physics, the player was accelerated in air at end of ladder.
i set a flag and then if not collide at ladder i stop the player.
i used the last code you had showed.

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0

// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )

// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )

// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)

SetphysicsGravity (0,20.0)

do

// Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

//move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.75,jy*20.0)
            wasatladder=1
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-75.0)
        endif
    endif

if wasatladder=1 and LadderCollide=0
        wasatladder=0
        setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
    endif

Print(LadderCollide)
    print(jy)

sync()
Loop

+ Code Snippet

rem
rem AGK Application 1.08 19
rem

SetDisplayASpect ( 4.0/3.0 )

// Add Virtual Joystick Buttons
AddVirtualJoystick( 1, 10, 88, 12)

state = 0


// Create Player Sprite
Player = CreateSprite ( 0 )
SetSpriteSize ( Player, GetSpriteWidth (Player), GetSpriteHeight (Player) )
SetSpriteOffset ( Player, GetSpriteWidth( Player )/2, GetSPriteHeight( Player )/2 )

SetSpritePositionByOffset ( Player, 30, 97 )
SetSpritePhysicsOn ( Player, 2 )
SetSpritePhysicsCanRotate( Player, 0 )
setspritephysicsmass(Player,1)
SetSpritePhysicsFriction( Player, 0.2 )

SetSpriteDepth ( Player, 0 )
img1 = LoadImage ("p1_stand.png")
img2 = LoadImage ("p1_walk.png")
setspriteimage(Player,img1)
SetSpriteShape( Player, 1 )


// Ladder Sprite
ladder = CreateSprite ( LoadImage ("ladder.png") )
SetSpriteSize ( ladder, 5, 40 )
SetSpritePosition ( ladder, 50, 60 )
SetSpritePhysicsOn ( ladder, 1 )
SetSpritePhysicsIsSensor( ladder, 1 )


// Sprite Box
imgBox=LoadImage ("box.png")
Box = CreateSprite ( imgBox )
SetSpriteSize ( Box, 8, 10 )
SetSpriteOffset ( Box, 4, 4 )
SetSpritePositionByOffset ( Box, 80, 96 )
SetSpritePhysicsOn ( Box, 2 )
SetSpritePhysicsCanRotate(Box, 1)
SetSpritePhysicsFriction(Box, 0.75)


SetphysicsGravity (0,20.0)

do

    // Move VirtualJoystick to Left and Right
Rem Start **********************************************************************

jx as float
jy as float
jx=GetVirtualJoystickX ( 1 )
jy=GetVirtualJoystickY ( 1 )

if jx=0
    if xstop=0 then xstop=1
endif
if jx > 0.0
    if xleft=0 then xleft=1
elseif jx < 0.0
    if xright=0 then xright=1
endif

        if xleft=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 0, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xleft=2
            xright=0
            xstop=0
        endif
        if xright=1
            SetSpriteImage ( Player, img2, 1 )
            SetSpriteFlip ( Player, 1, 0 )
            SetSpriteAnimation ( Player, 72 , 97 , 11 )
            PlaySprite ( Player, 8, 1, 1, 11 )
            xright=2
            xleft=0
            xstop=0
        endif
        if xstop=1
            stopsprite(Player)
            xleft=0
            xright=0
            xstop=2
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.0,getSpritePhysicsVelocityY(Player))
        Endif

    //move left/right
    setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),jx*250.0,0.0)

Rem End **********************************************************************
    LadderCollide = GetSpriteCollision ( Player, ladder )
    if abs(getspritexbyoffset(Player)-getspritexbyoffset(ladder))>3.0 then LadderCollide=0

    if LadderCollide = 1
        Print ("Collision")
        if jy <> 0.0
            //setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,jy*200.0)
            setSpritePhysicsVelocity(Player, getSpritePhysicsVelocityx(Player)*0.75,jy*20.0)
            wasatladder=1
        else
            print("Stay")
            setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
            setspritephysicsforce(Player,getspritexbyoffset(Player),getspriteybyoffset(Player),0,-75.0)
        endif
    endif

    if wasatladder=1 and LadderCollide=0
        wasatladder=0
        setspritephysicsvelocity(Player,getspritephysicsvelocityx(Player),0)
    endif



    Print(LadderCollide)
    print(jy)

    sync()
Loop

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 18th Jan 2014 19:09

Link

Thanks marcus. but in your code the Player speed Suddenly becomes too much. and could fly and the box sprite still Slipping.

Back to top

Profile PM

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 18th Jan 2014 21:46 Edited at: 18th Jan 2014 21:47

Link

for speed limit you can use something like this
if abs(getspritephysicsvelocityx(spriteid))<20.0
setspritephysicsforce(...
endif
for box maybe make the mass heavier
setspritephysicsmass

i had set the player shape as circle because he can slide
down from crate.

what did you mean with fly? jump from the ladder?
maybe set a heigher value at gravity for let him fall down faster.
SetphysicsGravity

AGK 108 (B)19 : Windows 8.1 Pro 64 Bit : AMD Radeon HD 6670

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Cilmb ladder

Attachments