Sprite Animation logic troubles - please assist

Author

Message

Naphier

13

Years of Service

User Offline

Joined: 2nd Oct 2010

Location: St Petersburg, Florida

Posted: 5th Feb 2013 05:39

Link

I've been trying to work this out all day and I'm almost there, but I'm not sure why my sprite animation is playing only after I release the mouse button...
What should happen is that the ship should bank left if you click to the left of the ship and it should bank right when you click anywhere to the right of the ship. It will roll back to 0 degrees when the mouse button is released, but I've REM'd out that procedure to try to help determine the problem area

The sprite moves left and right, no problem, but the frames don't advance until the mouse button is released.

My frames in the following code are a bit off still, but my major issue is that the sprite's animation not playing until the mouse is released.

All thoughts on how to do this or do it better are quite welcome.

A side question related to this project is: the sprite sheet is larger than 1024, is the sheet being scaled down to 1024 even though I am using frames that are 256x256?

Thanks!!

LoadImage(3,"ship.png")
CreateSprite(3,3)
SetSpriteAnimation(3,256,256,40)
SetSpritePosition(3,50,70)
SetSpriteSize(3,15,-1)

movingtext = createtext("")
frametext = createtext("")
SetTextPosition(movingtext,0,0)
SetTextSize(movingtext,2)
SetTextPosition(frametext,0,5)
SetTextSize(frametext,2)
checktext = CreateText("")
SetTextPosition(checktext,0,8)
SetTextSize(checktext,2)
do
    frame = GetSpriteCurrentFrame(3)

if  GetRawMouseLeftState() = 1
        move_ship = 1
    else
        move_ship = 0
    endif

if move_ship = 1
        pointerX# = GetPointerX()

//move ship left
        if pointerX# < GetSpriteXByOffset(3)
            //don't let ship move off screen
            if GetSpriteX(3) > 5
                SetSpriteX(3,GetSpriteX(3)-0.5)
            endif

if frame = 1 or frame = 20 or frame = 40
                SetTextString(checktext,"if frame 1,20,or 40")
                frame_start = 1
                frame_end = 10
                call_play = 1
            elseif frame >= 21 and frame <= 30
                SetTextString(checktext,"if frame >= 21 and frame <= 30")
                frame_start = 61 - frame
                frame_end = 40
                call_play  = 1
            elseif frame >= 31 and frame < 40
                SetTextString(checktext,"if frame >= 31 and frame < 40")
                frame_start = frame
                frame_end = 40
                call_play  = 1
            elseif frame <= 10
                SetTextString(checktext,"if frame <= 10")
                frame_start = frame
                frame_end = 10
                call_play  = 1
            endif
            SetTextString(movingtext,"moving left")

endif

// move ship right
        if pointerX# > GetSpriteXByOffset(3)

// don't let ship move off screen
            if GetSpriteX(3) < 90
                SetSpriteX(3,GetSpriteX(3)+0.5)
            endif

if frame = 1 or frame = 20 or frame = 40
                SetTextString(checktext,"if frame = 1 or frame = 20 or frame = 40")
                frame_start = 21
                frame_end = 30
                call_play = 1
            elseif frame >= 1 and frame <= 10
                SetTextString(checktext,"if frame >= 1 and frame <= 10")
                frame_start = 21 - frame
                frame_end = 30
                call_play = 1
            elseif frame >= 21
                SetTextString(checktext,"if frame >= 21")
                frame_start = frame
                frame_end = 30
                call_play = 1
            endif
            SetTextString(movingtext,"moving right")
        endif

endif
    remstart
    if GetRawMouseLeftReleased() = 1
        if frame <= 20
            frame_start = frame
            frame_end = 20
        elseif frame >= 21
            frame_start = frame
            frame_end = 40
        endif
        just_released = 1
    endif
    remend

SetTextString(frametext,"Current: "+str(frame)+" Start: "+str(frame_start)+"  End: "+str(frame_end))

if call_play = 1
PlaySprite(3,20,0,frame_start,frame_end)
call_play = 0
endif
remstart
if just_released = 1
    //SetTextString(checktext,"calling play sprite")
    PlaySprite(3,20,0,frame_start,frame_end)
    just_released = 0
    moving = 0
endif
remend

sync()
loop

+ Code Snippet

LoadImage(3,"ship.png")
CreateSprite(3,3)
SetSpriteAnimation(3,256,256,40)
SetSpritePosition(3,50,70)
SetSpriteSize(3,15,-1)

movingtext = createtext("")
frametext = createtext("")
SetTextPosition(movingtext,0,0)
SetTextSize(movingtext,2)
SetTextPosition(frametext,0,5)
SetTextSize(frametext,2)
checktext = CreateText("")
SetTextPosition(checktext,0,8)
SetTextSize(checktext,2)
do
    frame = GetSpriteCurrentFrame(3)

    if  GetRawMouseLeftState() = 1
        move_ship = 1
    else
        move_ship = 0
    endif

    if move_ship = 1
        pointerX# = GetPointerX()


        //move ship left
        if pointerX# < GetSpriteXByOffset(3)
            //don't let ship move off screen
            if GetSpriteX(3) > 5
                SetSpriteX(3,GetSpriteX(3)-0.5)
            endif

            if frame = 1 or frame = 20 or frame = 40
                SetTextString(checktext,"if frame 1,20,or 40")
                frame_start = 1
                frame_end = 10
                call_play = 1
            elseif frame >= 21 and frame <= 30
                SetTextString(checktext,"if frame >= 21 and frame <= 30")
                frame_start = 61 - frame
                frame_end = 40
                call_play  = 1
            elseif frame >= 31 and frame < 40
                SetTextString(checktext,"if frame >= 31 and frame < 40")
                frame_start = frame
                frame_end = 40
                call_play  = 1
            elseif frame <= 10
                SetTextString(checktext,"if frame <= 10")
                frame_start = frame
                frame_end = 10
                call_play  = 1
            endif
            SetTextString(movingtext,"moving left")

        endif

        // move ship right
        if pointerX# > GetSpriteXByOffset(3)

            // don't let ship move off screen
            if GetSpriteX(3) < 90
                SetSpriteX(3,GetSpriteX(3)+0.5)
            endif

            if frame = 1 or frame = 20 or frame = 40
                SetTextString(checktext,"if frame = 1 or frame = 20 or frame = 40")
                frame_start = 21
                frame_end = 30
                call_play = 1
            elseif frame >= 1 and frame <= 10
                SetTextString(checktext,"if frame >= 1 and frame <= 10")
                frame_start = 21 - frame
                frame_end = 30
                call_play = 1
            elseif frame >= 21
                SetTextString(checktext,"if frame >= 21")
                frame_start = frame
                frame_end = 30
                call_play = 1
            endif
            SetTextString(movingtext,"moving right")
        endif

    endif
    remstart
    if GetRawMouseLeftReleased() = 1
        if frame <= 20
            frame_start = frame
            frame_end = 20
        elseif frame >= 21
            frame_start = frame
            frame_end = 40
        endif
        just_released = 1
    endif
    remend

SetTextString(frametext,"Current: "+str(frame)+" Start: "+str(frame_start)+"  End: "+str(frame_end))

if call_play = 1
PlaySprite(3,20,0,frame_start,frame_end)
call_play = 0
endif
remstart
if just_released = 1
    //SetTextString(checktext,"calling play sprite")
    PlaySprite(3,20,0,frame_start,frame_end)
    just_released = 0
    moving = 0
endif
remend

sync()
loop

Attachments

Login to view attachments

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: 5th Feb 2013 11:40

Link

You are constantly resetting call_play to 1 so the frame is being reset to the start frame too. You need to do a check for getPointerPressed when setting this so it only does it when the user first clicks. You might be better using setSpriteFrame manually and taking complete control of what the current frame is. Personally I find it much easier to keep a handle on things that way.

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Naphier

13

Years of Service

User Offline

Joined: 2nd Oct 2010

Location: St Petersburg, Florida

Posted: 6th Feb 2013 00:09

Link

Thanks baxslash, I was tossing checks in everywhere. I apologize for the sloppiness. I did have this working using a GetPointerPressed() check, but I want the user to be able to swipe, so their finger may not leave the screen.
I'll just have to add that in as a condition to updating the frames too.
I do think I'll need to use SetSpriteFrame() to control the animation. I'll only rely on PlaySprite() when the mouse/touch is released.
Thanks for the help!

Back to top

Profile PM Email Website

Naphier

13

Years of Service

User Offline

Joined: 2nd Oct 2010

Location: St Petersburg, Florida

Posted: 8th Feb 2013 03:29

Link

Thanks again, baxslash!
I fixed it all up and the ship rolls left and right like a charm.

Here's the code if anyone needs to see an example of how to animate a sprite while moving it.

//=== declarations ============
#constant GOLEFT = 0
#constant GORIGHT = 1
#constant RELEASE = 2
#constant SHIP_SPEED = 1
#constant SHIP_FPS = 15
#constant FALSE = 0
#CONSTANT TRUE = 1
global was_pressed = 0
//===============================MAIN==========================================
ship_image = LoadImage("ship.png")
SetImageMinFilter(ship_image,0)
ship = CreateSprite(ship_image)
SetSpriteAnimation(ship,256,256,40)
SetSpritePosition(ship,50,90)
SetSpriteSize(ship,12,-1)
//SetSpriteSnap(ship,1)

CreateText(10,"")
SetTextSize(10,2)
CreateText(11,"")
SetTextSize(11,2)
SetTextPosition(11,0,3)

do
HandleInput(ship)

sync()
loop

END
//=============================================================================

function HandleInput(ship)  //allows user to control ship

if GetPointerState() = 1
        SetTextString(10,"btn down")
        pointerX# = GetPointerX()
        shipX# = GetSpriteX(ship)

if pointerX# >= shipX# and pointerX# <= shipX# + GetSpriteWidth(ship)
            exit
        elseif shipX# > pointerX#
            MoveShip(ship,GOLEFT)
        elseif pointerX# > shipX#
            MoveShip(ship,GORIGHT)
        endif

Fire(ship,weapon)
        was_pressed = 1
    endif

if was_pressed = 1
        if GetPointerState() = 0
            SetTextString(10," released")
            ShipAnimation(ship,RELEASE)
            was_pressed = 0
        endif
    endif

endfunction

function MoveShip(ship,left_right) // left = 0; right = 1 ---- moves the ship sprite and displays the corresponding anim
    select left_right
        case GOLEFT:
            if GetSpriteXByOffset(ship) > ( 0 + GetSpriteWidth(ship)/2 )
                SetSpriteX(ship, (GetSpriteX(ship) - SHIP_SPEED))
                ShipAnimation(ship,GOLEFT)
            endif
        endcase

case GORIGHT:
            if GetSpriteXByOffset(ship) < ( 100 - GetSpriteWidth(ship)/2 )
                SetSpriteX(ship, (GetSpriteX(ship) + SHIP_SPEED))
                ShipAnimation(ship,GORIGHT)
            endif
        endcase
    endselect
endfunction

function ShipAnimation(ship,left_right_release) // left = 0 ; right = 1 ; release = 2---- controls animation while ship is moving
    current_frame = GetSpriteCurrentFrame(ship)

select left_right_release
        case GOLEFT:
            if current_frame < 10 or current_frame = 20 or current_frame = 40// initial roll from 0 to -45 deg ... if current frame is 10 then do nothing...
                if current_frame = 20 then current_frame = 2
                if current_frame = 40 then current_frame = 2
                new_frame = current_frame + 1

elseif current_frame = 10
                new_frame = current_frame

elseif current_frame > 10 and current_frame < 20 // if we're rolling from -45 to 0 switch to corresponding frame in range of 1-10
                new_frame = 21 - current_frame

//elseif current_frame = 40 //current_frame = 20 or
              //  new_frame = 1

elseif current_frame > 20 and current_frame < 30 // if we're rolling from 0 to +45 deg switch to corresponding frame in range of 30-40
                new_frame = 60 - current_frame

elseif current_frame >= 30 and current_frame < 40 // if we're rolling from 45 to 0 then finish out the animation to frame 40
                new_frame = current_frame + 1

endif

SetSpriteFrame(ship,new_frame)
        endcase

case GORIGHT:
            if current_frame = 1 or current_frame = 40
                new_frame = 21

elseif current_frame > 1 and current_frame <= 10 // skip ahead to corresponding frame in 11-20
                new_frame = 21 - current_frame

elseif current_frame > 10 and current_frame < 30 // continue until frame 30
                new_frame = current_frame + 1

elseif current_frame = 30
                new_frame = current_frame

elseif current_frame > 30 and current_frame < 40 // skip back to corresponding frame in 21-29
                new_frame = 60 - current_frame

endif

SetSpriteFrame(ship,new_frame)
        endcase

case RELEASE:
            if current_frame > 1 and current_frame < 20
                PlaySprite(ship,SHIP_FPS,FALSE, current_frame, 20)
            elseif current_frame = 20 or current_frame = 40
                current_frame = 1
            elseif current_frame > 20 and current_frame < 30 // ship ahead to frame in 30-40 range
                new_frame = 60 - current_frame
                PlaySprite(ship,SHIP_FPS,FALSE, new_frame, 40)
            elseif current_frame >= 30 and current_frame < 40
                PlaySprite(ship,SHIP_FPS,FALSE, current_frame,40)
            endif
        endcase
    endselect
    SetTextString(11,str(GetSpriteCurrentFrame(ship)))

endfunction

function Fire(ship,weapon)
endfunction

+ Code Snippet

//=== declarations ============
#constant GOLEFT = 0
#constant GORIGHT = 1
#constant RELEASE = 2
#constant SHIP_SPEED = 1
#constant SHIP_FPS = 15
#constant FALSE = 0
#CONSTANT TRUE = 1
global was_pressed = 0
//===============================MAIN==========================================
ship_image = LoadImage("ship.png")
SetImageMinFilter(ship_image,0)
ship = CreateSprite(ship_image)
SetSpriteAnimation(ship,256,256,40)
SetSpritePosition(ship,50,90)
SetSpriteSize(ship,12,-1)
//SetSpriteSnap(ship,1)

CreateText(10,"")
SetTextSize(10,2)
CreateText(11,"")
SetTextSize(11,2)
SetTextPosition(11,0,3)

do
HandleInput(ship)

sync()
loop





END
//=============================================================================


function HandleInput(ship)  //allows user to control ship

    if GetPointerState() = 1
        SetTextString(10,"btn down")
        pointerX# = GetPointerX()
        shipX# = GetSpriteX(ship)

        if pointerX# >= shipX# and pointerX# <= shipX# + GetSpriteWidth(ship)
            exit
        elseif shipX# > pointerX#
            MoveShip(ship,GOLEFT)
        elseif pointerX# > shipX#
            MoveShip(ship,GORIGHT)
        endif

        Fire(ship,weapon)
        was_pressed = 1
    endif

    if was_pressed = 1
        if GetPointerState() = 0
            SetTextString(10," released")
            ShipAnimation(ship,RELEASE)
            was_pressed = 0
        endif
    endif


endfunction



function MoveShip(ship,left_right) // left = 0; right = 1 ---- moves the ship sprite and displays the corresponding anim
    select left_right
        case GOLEFT:
            if GetSpriteXByOffset(ship) > ( 0 + GetSpriteWidth(ship)/2 )
                SetSpriteX(ship, (GetSpriteX(ship) - SHIP_SPEED))
                ShipAnimation(ship,GOLEFT)
            endif
        endcase

        case GORIGHT:
            if GetSpriteXByOffset(ship) < ( 100 - GetSpriteWidth(ship)/2 )
                SetSpriteX(ship, (GetSpriteX(ship) + SHIP_SPEED))
                ShipAnimation(ship,GORIGHT)
            endif
        endcase
    endselect
endfunction

function ShipAnimation(ship,left_right_release) // left = 0 ; right = 1 ; release = 2---- controls animation while ship is moving
    current_frame = GetSpriteCurrentFrame(ship)

    select left_right_release
        case GOLEFT:
            if current_frame < 10 or current_frame = 20 or current_frame = 40// initial roll from 0 to -45 deg ... if current frame is 10 then do nothing...
                if current_frame = 20 then current_frame = 2
                if current_frame = 40 then current_frame = 2
                new_frame = current_frame + 1

            elseif current_frame = 10
                new_frame = current_frame

            elseif current_frame > 10 and current_frame < 20 // if we're rolling from -45 to 0 switch to corresponding frame in range of 1-10
                new_frame = 21 - current_frame

            //elseif current_frame = 40 //current_frame = 20 or
              //  new_frame = 1

            elseif current_frame > 20 and current_frame < 30 // if we're rolling from 0 to +45 deg switch to corresponding frame in range of 30-40
                new_frame = 60 - current_frame

            elseif current_frame >= 30 and current_frame < 40 // if we're rolling from 45 to 0 then finish out the animation to frame 40
                new_frame = current_frame + 1

            endif

            SetSpriteFrame(ship,new_frame)
        endcase

        case GORIGHT:
            if current_frame = 1 or current_frame = 40
                new_frame = 21

            elseif current_frame > 1 and current_frame <= 10 // skip ahead to corresponding frame in 11-20
                new_frame = 21 - current_frame

            elseif current_frame > 10 and current_frame < 30 // continue until frame 30
                new_frame = current_frame + 1

            elseif current_frame = 30
                new_frame = current_frame

            elseif current_frame > 30 and current_frame < 40 // skip back to corresponding frame in 21-29
                new_frame = 60 - current_frame

            endif

            SetSpriteFrame(ship,new_frame)
        endcase

        case RELEASE:
            if current_frame > 1 and current_frame < 20
                PlaySprite(ship,SHIP_FPS,FALSE, current_frame, 20)
            elseif current_frame = 20 or current_frame = 40
                current_frame = 1
            elseif current_frame > 20 and current_frame < 30 // ship ahead to frame in 30-40 range
                new_frame = 60 - current_frame
                PlaySprite(ship,SHIP_FPS,FALSE, new_frame, 40)
            elseif current_frame >= 30 and current_frame < 40
                PlaySprite(ship,SHIP_FPS,FALSE, current_frame,40)
            endif
        endcase
    endselect
    SetTextString(11,str(GetSpriteCurrentFrame(ship)))

endfunction

function Fire(ship,weapon)
endfunction

Attachments

Login to view attachments

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: 8th Feb 2013 10:49

Link

Glad to help!

this.mess = abs(sin(times#))

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Sprite Animation logic troubles - please assist

Attachments

Attachments