Creating Animated Sprites using Windows Paint

Author

Message

Mark Garrett

Reviewed AGK on Steam

19

Years of Service

User Offline

Joined: 10th Jul 2005

Location: California, US

Posted: 14th Oct 2017 15:44 Edited at: 15th Oct 2017 09:32

Link

<MOD EDIT> Post reinstated

I have created one large image with 9 'frames' of images, much like an old fashion real of film.

I made it using Windows Paint. and made on large sprite with 8 images on it.
I then animated it and can play it forward and backwards, using AGK2
It animated pretty good, but I noticed it wavers a bit, and does not stayed centered very well.
Therefore, I am seeking a better way to do it. Is there an application I can use ? I want it to look more professional.

//

// Project: Play a sprite

// Created: 2017-10-14

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "Play a sprite" )

SetWindowSize( 1024, 768, 0 )

SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties

SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices

SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

//  load resources

Right_up = CreateSprite(LoadImage("RU.png"))

// create initial layout

// SetSpriteSize( iSpriteIndex, width, height )

SetSpriteSize(Right_up,-1,498)

SetSpritePosition(Right_up,10,150)

//                           width  height

SetSpriteAnimation(Right_up,240,     240,   9)

// PlaySprite(Right_up)

// PlaySprite ( Right_up, fps, loop or, first, last )

PlaySprite ( Right_up, 10, 1, 0, 8 )

do

Sync()

loop

+ Code Snippet

//

// Project: Play a sprite 

// Created: 2017-10-14



// show all errors

SetErrorMode(2)



// set window properties

SetWindowTitle( "Play a sprite" )

SetWindowSize( 1024, 768, 0 )

SetWindowAllowResize( 1 ) // allow the user to resize the window



// set display properties

SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices

SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts







//  load resources



Right_up = CreateSprite(LoadImage("RU.png"))



// create initial layout



// SetSpriteSize( iSpriteIndex, width, height )

SetSpriteSize(Right_up,-1,498)

SetSpritePosition(Right_up,10,150)

//                           width  height

SetSpriteAnimation(Right_up,240,     240,   9)

// PlaySprite(Right_up)

// PlaySprite ( Right_up, fps, loop or, first, last )

PlaySprite ( Right_up, 10, 1, 0, 8 )

do

Sync()

loop

.

App Game Kit is Fun

Attachments

Login to view attachments

Back to top

Profile PM Email

Conjured Entertainment

AGK Developer

19

Years of Service

User Offline

Joined: 12th Sep 2005

Location: Nirvana

Posted: 14th Oct 2017 18:27 Edited at: 14th Oct 2017 18:36

Link

You had the pixel count off, so all it needed was an adjustment.

I also modified your script to get the last frame in...

// Project: Play a sprite 
// Created: 2017-10-14
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Play a sprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
 
//  load resources
 
Right_up = CreateSprite(LoadImage("RU2.png"))
 
// create initial layout
 
// SetSpriteSize( iSpriteIndex, width, height )
SetSpriteSize(Right_up,-1,498)
SetSpritePosition(Right_up,10,150)
//                           width  height
SetSpriteAnimation(Right_up,240,     240,   10)
// PlaySprite(Right_up)
// PlaySprite ( Right_up, fps, loop or, first, last )
PlaySprite ( Right_up, 10, 1, 1, 9 )
do
Sync()
loop

+ Code Snippet


// Project: Play a sprite 
// Created: 2017-10-14
 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "Play a sprite" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
 
//  load resources
 
Right_up = CreateSprite(LoadImage("RU2.png"))
 
// create initial layout
 
// SetSpriteSize( iSpriteIndex, width, height )
SetSpriteSize(Right_up,-1,498)
SetSpritePosition(Right_up,10,150)
//                           width  height
SetSpriteAnimation(Right_up,240,     240,   10)
// PlaySprite(Right_up)
// PlaySprite ( Right_up, fps, loop or, first, last )
PlaySprite ( Right_up, 10, 1, 1, 9 )
do
Sync()
loop

EDIT
WOW! You deleted your post??

I guess I need to quote you next time, so people will know what is going on.

Coding things my way since 1981 -- Currently using AppGameKit V2 Tier 1

Attachments

Login to view attachments

Back to top

Profile PM Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 15th Oct 2017 09:31

Link

Here is the original post (also pasted back in above).
The purpose of a forum is to benefit everyone, not delete your post when you have your answer

-------------------

I have created one large image with 9 'frames' of images, much like an old fashion real of film.

I made it using Windows Paint. and made on large sprite with 8 images on it.
I then animated it and can play it forward and backwards, using AGK2
It animated pretty good, but I noticed it wavers a bit, and does not stayed centered very well.
Therefore, I am seeking a better way to do it. Is there an application I can use ? I want it to look more professional.

//

// Project: Play a sprite

// Created: 2017-10-14

// show all errors

SetErrorMode(2)

// set window properties

SetWindowTitle( "Play a sprite" )

SetWindowSize( 1024, 768, 0 )

SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties

SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices

SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

//  load resources

Right_up = CreateSprite(LoadImage("RU.png"))

// create initial layout

// SetSpriteSize( iSpriteIndex, width, height )

SetSpriteSize(Right_up,-1,498)

SetSpritePosition(Right_up,10,150)

//                           width  height

SetSpriteAnimation(Right_up,240,     240,   9)

// PlaySprite(Right_up)

// PlaySprite ( Right_up, fps, loop or, first, last )

PlaySprite ( Right_up, 10, 1, 0, 8 )

do

Sync()

loop

+ Code Snippet

//

// Project: Play a sprite 

// Created: 2017-10-14



// show all errors

SetErrorMode(2)



// set window properties

SetWindowTitle( "Play a sprite" )

SetWindowSize( 1024, 768, 0 )

SetWindowAllowResize( 1 ) // allow the user to resize the window



// set display properties

SetVirtualResolution( 1024, 768 ) // doesn't have to match the window

SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices

SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders

UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts







//  load resources



Right_up = CreateSprite(LoadImage("RU.png"))



// create initial layout



// SetSpriteSize( iSpriteIndex, width, height )

SetSpriteSize(Right_up,-1,498)

SetSpritePosition(Right_up,10,150)

//                           width  height

SetSpriteAnimation(Right_up,240,     240,   9)

// PlaySprite(Right_up)

// PlaySprite ( Right_up, fps, loop or, first, last )

PlaySprite ( Right_up, 10, 1, 0, 8 )

do

Sync()

loop

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Creating Animated Sprites using Windows Paint

Attachments

Attachments