walking animated sprite - GameCreators Forum

Author

Message

cryptojoe

12

Years of Service

User Offline

Joined: 27th Sep 2012

Location: Michigan U.S.A

Posted: 31st Dec 2012 05:34 Edited at: 31st Dec 2012 18:29

Link

ok so I'v ben working on this all day and can not come up with a working solution...I have a realy nice animated sprite that I want to make walk across the screen useing user input...I want the sprite to be animated when moveing and not when not moveing... I have tryed every thing I can think of and the best results I get are 1 animated cycle plays after the sprite has moved "often some distance depending on how long the arrow key was held down...

PLEASE HELP

*EDIT
code fixed and running better than I dreamed...
thank you Hodgey,Hockeykid and Simpleprogram...
code updated for anyone who wants to see it...

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.5
// Last Revised 12-31-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()

if Dirx# > 0.5
	if getSpriteCurrentFrame(1) >= 6
	PlaySprite ( 1, 10, 0, 1, 6 )
	SetSpriteActive(1,1)
	setspriteflip(1, 0, 0) // resets sprite flip to start if necessary

endif

x# = x# + 1.0
   setspriteposition(1,x#,y#) // update sprite position
endif

if Dirx# < -0.5
	if getSpriteCurrentFrame(1) >= 6
	PlaySprite ( 1, 10, 0, 1, 6 )
	SetSpriteActive(1,1)
	setspriteflip(1, 1, 0) //flip the sprite to make it seem like its facing the other way

endif

x# = x# - 1.0
   setspriteposition(1,x#,y#) // update sprite position
endif

Sync()
loop

+ Code Snippet

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.5
// Last Revised 12-31-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()

 if Dirx# > 0.5
	if getSpriteCurrentFrame(1) >= 6
	PlaySprite ( 1, 10, 0, 1, 6 )
	SetSpriteActive(1,1)
	setspriteflip(1, 0, 0) // resets sprite flip to start if necessary

   endif

   x# = x# + 1.0
   setspriteposition(1,x#,y#) // update sprite position
endif

if Dirx# < -0.5
	if getSpriteCurrentFrame(1) >= 6
	PlaySprite ( 1, 10, 0, 1, 6 )
	SetSpriteActive(1,1)
	setspriteflip(1, 1, 0) //flip the sprite to make it seem like its facing the other way

   endif

   x# = x# - 1.0
   setspriteposition(1,x#,y#) // update sprite position
endif

 Sync()
loop

Back to top

Profile PM

SimpleProgram

13

Years of Service

User Offline

Joined: 2nd Oct 2011

Location: Cali

Posted: 31st Dec 2012 06:11 Edited at: 31st Dec 2012 06:19

Link

This might help:

First get rid of the extra first playsprite() command, its really not needed since you will be playing the sprite later.

put this outside of the loop:

+ Code Snippet

global input as integer = 0

then add this in the loop instead of what you have for moving the sprite:

+ Code Snippet

 



setspriteposition(1,x#,y#) // update sprite position all the time



if getrawkeystate(37) = 1 and getrawkeystate(39) = 1
input = 1
setspriteframe(1, 1)
else
input = 0
if input = 0

if getrawkeystate(37) = 1
    PlaySprite ( 1, 10, 0, 1, 6 )
    x# = x# + 1.0
setspriteflip(1, 0, 0)
else
 //this would be the starting or standing frame for the sprite when it is not moving
   if getrawkeystate(39) = 0 then setspriteframe(1, 1)
  endif

//when the player wants to move it left
if getrawkeystate(39) = 1
    PlaySprite ( 1, 10, 0, 1, 6 )
     x# = x# - 1.0
setspriteflip(1, 1, 0) //flip the sprite to make it seem like its facing the other way
else
//this would be the starting or standing frame for the sprite when it is not moving
   if getrawkeystate(37) = 0 then setspriteframe(1, 1) 
  endif

endif
endif

This code should move the sprite in either direction, flip it, and stop it from moving when necessary.

Programming and video games, what else could you need?

Back to top

Profile PM Email

cryptojoe

12

Years of Service

User Offline

Joined: 27th Sep 2012

Location: Michigan U.S.A

Posted: 31st Dec 2012 07:00

Link

ok it runs, but I'm getting a 1 sprite while moveing and a flickering sprite when stoped "I think its running to many fps" that moves in the opposite direction of the arrow key pressed...

but I think your on the right track...

Back to top

Profile PM

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 31st Dec 2012 07:08

Link

With your original code cryptojoe, every time you call PlaySprite, it restarts the animation, and as you're continuously calling it according to the IF statement, you're continuously resetting its animation. A quick fix might be to check the current frame and only reset it when the current frame is equal to 6. E.g

+ Code Snippet

if Dirx# > 0.5
    if getSpriteCurrentFrame(1) >= 6
        PlaySprite ( 1, 10, 0, 1, 6 )
        SetSpriteActive(1,1)
    endif

    x# = x# + 1.0
    setspriteposition(1,x#,y#) // update sprite position

endif

Back to top

Profile PM Email

Hockeykid

DBPro Tool Maker

17

Years of Service

User Offline

Joined: 26th Sep 2007

Location:

Posted: 31st Dec 2012 07:34 Edited at: 31st Dec 2012 07:37

Link

This should also work:

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.0
// Last Revised 12-30-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()

if Dirx# > 0.5
    if GetSpritePlaying( 1 ) = 0 then PlaySprite ( 1, 10, 1, 1, 6 )
    SetSpriteActive(1,1)
    x# = x# + 1.0
    setspriteposition(1,x#,y#) // update sprite position
    else
     StopSprite( 1 )
    endif

Sync()
loop

+ Code Snippet

//
rem AGK Application
rem AGK Build 107
//
// Project# 002
// version 1.0
// Last Revised 12-30-12

rem Landscape App
 SetDisplayAspect( 4.0/3.0 )
 SetVirtualResolution (640 , 480 )

rem background
 backdrop = CreateSprite ( LoadImage ( "testbackground1.png" ) )

rem load music into ID slot 1
 LoadMusic ( 1, "01 Footsteps FX.mp3" )

rem Set Sprite variables X&Y
 X#=23.00
 Y#=344.9

rem create sprite
 CreateSprite ( 1, 0 ) // create a sprite with ID that has no image
 SetSpriteOffset(1, getspritewidth(1)/2 , getspriteheight(1)/2 ) // sets sprites X&Y to center
 SetSpritePosition ( 1, x#, y# )

rem add individual images into an animation list for Sprite 1
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws1b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws2b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws3b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws4b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws5b.png" ) )
 AddSpriteAnimationFrame ( 1, LoadImage ( "Godzilla_rws6b.png" ) )

rem play the animated sprite
 PlaySprite ( 1, 10, 0, 1, 6 )

rem play and loop the music
 PlayMusic ( 1, 1 )

rem Main Program Loop
 do
rem show debug statistics for X and Y
    print("   X position  = " + str ( GetSpriteX(1)))

rem get input and move sprite
 Dirx# = GetDirectionX()

    if Dirx# > 0.5
    if GetSpritePlaying( 1 ) = 0 then PlaySprite ( 1, 10, 1, 1, 6 )
    SetSpriteActive(1,1)
    x# = x# + 1.0
    setspriteposition(1,x#,y#) // update sprite position
    else
     StopSprite( 1 )
    endif

 Sync()
loop

The solution is to loop the animation while the sprite is moving (but only if it isn't already looping) and stopping the animation when the sprite stops moving.

Sean

Back to top

Profile PM Email

cryptojoe

12

Years of Service

User Offline

Joined: 27th Sep 2012

Location: Michigan U.S.A

Posted: 31st Dec 2012 07:43

Link

thats got it Hodgey... I thank you very much...

thank you all, I'm going to get some sleep....

Back to top

Profile PM

cryptojoe

12

Years of Service

User Offline

Joined: 27th Sep 2012

Location: Michigan U.S.A

Posted: 31st Dec 2012 16:37 Edited at: 31st Dec 2012 18:35

Link

Hockeykid, your code runs great as well... I will be keeping a copy of each for future reference...

*EDIT
I think I can add the command setspriteflip that simpleprogram showed me... and a few more lines of code and have my sprite walking both ways...

*EDIT
sprite now walks both ways... I'm realy looking forward to showing this working Demo off to my friends at the party tonight thanks to you guys... oh and the code at the top has ben updated...

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / walking animated sprite