How to get player to remain in facing direction

Author

Message

sskethan

15

Years of Service

User Offline

Joined: 20th Sep 2008

Location: Oshawa, ON. Canada

Posted: 5th Nov 2012 16:26

Link

Hello,
How would i get the player to stay facing in the direction/angle it is when I release the joystick? Currently when the joystick is released the player will face back the start position of 90 degree angle. Also need help with centering the player to the screen with the scrolling background. The screen scrolls and moves smooth but the player is positioned at the top left corner of the screen.
Thank you

do
    // display instructions
    Print ( "Use the virtual joystick to" )
    Print ( "control the player" )

// get input from joystick
    joystickX# = GetVirtualJoystickX ( 1 )
    joystickY# = GetVirtualJoystickY ( 1 )

// find player position
    x# = GetSpriteX ( 3 )
    y# = GetSpriteY ( 3 )

// work out movement direction
    x1# = x# - joystickX#
    y1# = y# - joystickY#

// face the correct angle
    angle# = ATanFull ( x1# - x#, y1# - y# )
    SetSpriteAngle ( 3, angle# )

// update player position
    SetSpritePosition ( 3, GetSpriteX ( 3 ) + ( joystickX# / 5.0 ), GetSpriteY ( 3 ) + ( joystickY# / 5.0 ) )

// scroll the screen
    SetViewOffset ( 0.0, y# - 50 )

// when there is no input stop animation
    if ( joystickX# = 0.0 and joystickY# = 0.0 )
        StopSprite ( 3 )
        SetSpriteFrame ( 3, 3 )
    else
        // play animation
        if ( GetSpritePlaying ( 3 ) = 0 )
            PlaySprite ( 3, 10, 1, 2, 7 )
        endif
    endif

// update the screen
    sync ( )
loop

+ Code Snippet

do
    // display instructions
    Print ( "Use the virtual joystick to" )
    Print ( "control the player" )

    // get input from joystick
    joystickX# = GetVirtualJoystickX ( 1 )
    joystickY# = GetVirtualJoystickY ( 1 )

    // find player position
    x# = GetSpriteX ( 3 )
    y# = GetSpriteY ( 3 )

    // work out movement direction
    x1# = x# - joystickX#
    y1# = y# - joystickY#

    // face the correct angle
    angle# = ATanFull ( x1# - x#, y1# - y# )
    SetSpriteAngle ( 3, angle# )

    // update player position
    SetSpritePosition ( 3, GetSpriteX ( 3 ) + ( joystickX# / 5.0 ), GetSpriteY ( 3 ) + ( joystickY# / 5.0 ) )

    // scroll the screen
    SetViewOffset ( 0.0, y# - 50 )

    // when there is no input stop animation
    if ( joystickX# = 0.0 and joystickY# = 0.0 )
        StopSprite ( 3 )
        SetSpriteFrame ( 3, 3 )
    else
        // play animation
        if ( GetSpritePlaying ( 3 ) = 0 )
            PlaySprite ( 3, 10, 1, 2, 7 )
        endif
    endif

    // update the screen
    sync ( )
loop

Attachments

Login to view attachments

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 5th Nov 2012 16:54 Edited at: 5th Nov 2012 16:55

Link

You should move the code that sets the angle inside the part of the if statement that handles when there is input from the joystick. The way you are doing it, you reset the angle every time, regardless of whether there is joystick usage.

Something like this:

do
    // display instructions
    Print ( "Use the virtual joystick to" )
    Print ( "control the player" )

// get input from joystick
    joystickX# = GetVirtualJoystickX ( 1 )
    joystickY# = GetVirtualJoystickY ( 1 )

// when there is no input stop animation
    if ( joystickX# = 0.0 and joystickY# = 0.0 )
        StopSprite ( 3 )
        SetSpriteFrame ( 3, 3 )
    else
        // find player position
        x# = GetSpriteX ( 3 )
        y# = GetSpriteY ( 3 )

// work out movement direction
        x1# = x# - joystickX#
        y1# = y# - joystickY#

// face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 3, angle# )

// update player position
        SetSpritePosition ( 3, GetSpriteX ( 3 ) + ( joystickX# / 5.0 ), GetSpriteY ( 3 ) + ( joystickY# / 5.0 ) )

// scroll the screen
        SetViewOffset ( 0.0, y# - 50 )

// play animation
        if ( GetSpritePlaying ( 3 ) = 0 )
            PlaySprite ( 3, 10, 1, 2, 7 )
        endif
    endif

// update the screen
    sync ( )
loop

+ Code Snippet

do
    // display instructions
    Print ( "Use the virtual joystick to" )
    Print ( "control the player" )

    // get input from joystick
    joystickX# = GetVirtualJoystickX ( 1 )
    joystickY# = GetVirtualJoystickY ( 1 )

    // when there is no input stop animation
    if ( joystickX# = 0.0 and joystickY# = 0.0 )
        StopSprite ( 3 )
        SetSpriteFrame ( 3, 3 )
    else
        // find player position
        x# = GetSpriteX ( 3 )
        y# = GetSpriteY ( 3 )

        // work out movement direction
        x1# = x# - joystickX#
        y1# = y# - joystickY#

        // face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 3, angle# )

        // update player position
        SetSpritePosition ( 3, GetSpriteX ( 3 ) + ( joystickX# / 5.0 ), GetSpriteY ( 3 ) + ( joystickY# / 5.0 ) )

        // scroll the screen
        SetViewOffset ( 0.0, y# - 50 )

        // play animation
        if ( GetSpritePlaying ( 3 ) = 0 )
            PlaySprite ( 3, 10, 1, 2, 7 )
        endif
    endif

    // update the screen
    sync ( )
loop

Cheers,
Ancient Lady
AGK Community Tester

Back to top

Profile PM

sskethan

15

Years of Service

User Offline

Joined: 20th Sep 2008

Location: Oshawa, ON. Canada

Posted: 5th Nov 2012 17:39

Link

That's great, thank you for the speedy response. The player now stops and faces the last angle it was on.

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 5th Nov 2012 19:53

Link

Always glad to help.

Happy Programming!

Cheers,
Ancient Lady
AGK Community Tester

Back to top

Profile PM

sskethan

15

Years of Service

User Offline

Joined: 20th Sep 2008

Location: Oshawa, ON. Canada

Posted: 6th Nov 2012 02:44

Link

I'm still having trouble trying to get the player centered on the screen. I have tried to fixspritetoscreen. but when i do this the player moves faster then the background and the player walks off the edges. Is there maybe something i need to change in the SetSpritePosition inside the if statement?

Back to top

Profile PM Email

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 6th Nov 2012 16:08

Link

I don't have experience with keeping a player in center and scrolling the background. But in your code you are only moving the player (the same id used for both the animation and position setting). I would expect that you would be moving the background and leaving the sprite fixed to the center (changing its angle and animation).

Maybe someone with more experience in this could help?

Cheers,
Ancient Lady
AGK Community Tester

Back to top

Profile PM

sskethan

15

Years of Service

User Offline

Joined: 20th Sep 2008

Location: Oshawa, ON. Canada

Posted: 9th Nov 2012 13:33

Link

I have been trying to change the code to keep the player in the center and scroll the background but i'm not sure where to start. Here is what I have now. Can someone please help?

rem set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

AddVirtualJoystick ( 1, 35, 445, 64 )
AddVirtualButton ( 2, 285, 445, 50 )

rem load an image that contains several frames of animation
LoadImage ( 1, "skeleton_walk_001.png" )
CreateSprite ( 1, 1 )
SetSpriteAnimation ( 1, 64, 64, 24 )
SetSpriteDepth ( 1, 0 )

rem top half of pitch
LoadImage ( 2, "pitch_top.jpg" )
CreateSprite ( 2, 2 )
setspritesize (2, 1280, -1)
SetSpriteDepth ( 2, 1 )

rem bottom half of pitch
LoadImage ( 3, "pitch_bottom.jpg" )
CreateSprite ( 3, 3 )
setspritesize (3, 1280, -1)
SetSpriteY ( 3, GetSpriteHeight ( 2 ))
SetSpriteDepth ( 3, 1 )

rem ****************************************************

do

rem move with cursor keys and joystick
    mx#=GetVirtualJoystickX( 1 )
    my#=GetVirtualJoystickY( 1 )

rem when there is no input stop animation
    if ( mX# = 0.0 and mY# = 0.0 )
        StopSprite ( 1 )
        SetSpriteFrame ( 1, 8 )
    else
        rem find player position
        x# = GetSpriteX ( 1 )
        y# = GetSpriteY ( 1 )

rem work out movement direction
        x1# = x# - mX#
        y1# = y# - mY#

rem face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 1, angle# )

SetSpritePosition ( 1, GetSpriteX ( 1 ) + ( mX# / .50 ), GetSpriteY ( 1 ) + ( mY# / .50 ) )

rem scroll the screen
        SetViewOffset ( x# , y# )

rem play animation
        if ( GetSpritePlaying ( 1 ) = 0 )
            PlaySprite ( 1, 35, 1, 1, 24 )
        endif
    endif

rem update the screen
    sync ( )
loop

+ Code Snippet

rem set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

AddVirtualJoystick ( 1, 35, 445, 64 )
AddVirtualButton ( 2, 285, 445, 50 )

rem load an image that contains several frames of animation
LoadImage ( 1, "skeleton_walk_001.png" )
CreateSprite ( 1, 1 )
SetSpriteAnimation ( 1, 64, 64, 24 )
SetSpriteDepth ( 1, 0 )

rem top half of pitch
LoadImage ( 2, "pitch_top.jpg" )
CreateSprite ( 2, 2 )
setspritesize (2, 1280, -1)
SetSpriteDepth ( 2, 1 )

rem bottom half of pitch
LoadImage ( 3, "pitch_bottom.jpg" )
CreateSprite ( 3, 3 )
setspritesize (3, 1280, -1)
SetSpriteY ( 3, GetSpriteHeight ( 2 ))
SetSpriteDepth ( 3, 1 )

rem ****************************************************

do

    rem move with cursor keys and joystick
    mx#=GetVirtualJoystickX( 1 )
    my#=GetVirtualJoystickY( 1 )

    rem when there is no input stop animation
    if ( mX# = 0.0 and mY# = 0.0 )
        StopSprite ( 1 )
        SetSpriteFrame ( 1, 8 )
    else
        rem find player position
        x# = GetSpriteX ( 1 )
        y# = GetSpriteY ( 1 )

        rem work out movement direction
        x1# = x# - mX#
        y1# = y# - mY#

        rem face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 1, angle# )

        SetSpritePosition ( 1, GetSpriteX ( 1 ) + ( mX# / .50 ), GetSpriteY ( 1 ) + ( mY# / .50 ) )

        rem scroll the screen
        SetViewOffset ( x# , y# )

        rem play animation
        if ( GetSpritePlaying ( 1 ) = 0 )
            PlaySprite ( 1, 35, 1, 1, 24 )
        endif
    endif

    rem update the screen
    sync ( )
loop

Back to top

Profile PM Email

lilpissywilly

AGK Developer

13

Years of Service

User Offline

Joined: 10th Sep 2010

Location: Office Chair

Posted: 9th Nov 2012 14:05

Link

If you want to keep the player in the middle you either need to stop changing that sprite's position or move the camera with it.

In the case of moving the camera (which I would recomend) you simply set camera offset to the player's position minus half the screen width for x and half the height for y. I'm sorry I'm typing this on my phone but I might be able to paste an example later.

Toby

My hovercraft is full of eels

Back to top

Profile PM Email Website

sskethan

15

Years of Service

User Offline

Joined: 20th Sep 2008

Location: Oshawa, ON. Canada

Posted: 9th Nov 2012 21:30

Link

I think I got it. Thank you for the insight everyone. Here is the code i have now. Player stays centred and background moves. Now to move on to shooting.

rem set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

AddVirtualJoystick ( 1, 35, 445, 64 )
AddVirtualButton ( 2, 285, 445, 50 )

rem load an image that contains several frames of animation
LoadImage ( 1, "skeleton_walk_001.png" )
CreateSprite ( 1, 1 )
SetSpriteAnimation ( 1, 64, 64, 24 )
SetSpriteDepth ( 1, 0 )
SetSpritePosition ( 1, 160, 200 )
fixspritetoscreen ( 1, 1 )

rem top half of pitch
LoadImage ( 2, "floor_001.png" )
CreateSprite ( 2, 2 )
setspritesize (2, 1024, -1)
SetSpriteDepth ( 2, 1 )

rem ****************************************************

do

rem move with cursor keys and joystick
    mx#=GetVirtualJoystickX( 1 )
    my#=GetVirtualJoystickY( 1 )

rem when there is no input stop animation
    if ( mX# = 0.0 and mY# = 0.0 )
        StopSprite ( 1 )
        SetSpriteFrame ( 1, 8 )
    else
        rem find player position
        x# = GetSpriteX ( 1 )
        y# = GetSpriteY ( 1 )

rem work out movement direction
        x1# = x# - mX#
        y1# = y# - mY#

rem face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 1, angle# )

setspriteposition ( 2, GetSpriteX ( 2 ) - ( mX# / .50 ), GetSpriteY ( 2 ) - ( mY# / .50 ) )

rem play animation
        if ( GetSpritePlaying ( 1 ) = 0 )
            PlaySprite ( 1, 35, 1, 1, 24 )
        endif
    endif

rem update the screen
    sync ( )
loop

+ Code Snippet

rem set a virtual resolution of 320 x 480
SetVirtualResolution ( 320, 480 )

AddVirtualJoystick ( 1, 35, 445, 64 )
AddVirtualButton ( 2, 285, 445, 50 )

rem load an image that contains several frames of animation
LoadImage ( 1, "skeleton_walk_001.png" )
CreateSprite ( 1, 1 )
SetSpriteAnimation ( 1, 64, 64, 24 )
SetSpriteDepth ( 1, 0 )
SetSpritePosition ( 1, 160, 200 )
fixspritetoscreen ( 1, 1 )

rem top half of pitch
LoadImage ( 2, "floor_001.png" )
CreateSprite ( 2, 2 )
setspritesize (2, 1024, -1)
SetSpriteDepth ( 2, 1 )


rem ****************************************************

do

    rem move with cursor keys and joystick
    mx#=GetVirtualJoystickX( 1 )
    my#=GetVirtualJoystickY( 1 )

    rem when there is no input stop animation
    if ( mX# = 0.0 and mY# = 0.0 )
        StopSprite ( 1 )
        SetSpriteFrame ( 1, 8 )
    else
        rem find player position
        x# = GetSpriteX ( 1 )
        y# = GetSpriteY ( 1 )

        rem work out movement direction
        x1# = x# - mX#
        y1# = y# - mY#

        rem face the correct angle
        angle# = ATanFull ( x1# - x#, y1# - y# )
        SetSpriteAngle ( 1, angle# )

        setspriteposition ( 2, GetSpriteX ( 2 ) - ( mX# / .50 ), GetSpriteY ( 2 ) - ( mY# / .50 ) )

        rem play animation
        if ( GetSpritePlaying ( 1 ) = 0 )
            PlaySprite ( 1, 35, 1, 1, 24 )
        endif
    endif

    rem update the screen
    sync ( )
loop

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / How to get player to remain in facing direction

Attachments