Animations Help ?? Im a newbie on DB

Author

Message

KaiProton

13

Years of Service

User Offline

Joined: 5th Aug 2010

Location: Manchester, UK

Posted: 8th Aug 2010 13:03

Link

Hi,
Im trying to learn DBP and started with 2D, my overall idea is a top view Alien Breed type game, but I cant run before walking, so Ive started trying to learn animations,
Please check out my code:

+ Code Snippet

SET DISPLAY MODE 640,480,16
SYNC RATE 60
sync on

create animated sprite 1, "media\pac-man.png", 2,4,1

x=200

do
    sprite 1, x, 200, 1
    sync

    ink rgb(rnd(255),rnd(255),rnd(255)),0
    text 10,10,"Left / Right Arrows to Move"
    ink rgb(255,255,255),0

    text 10,25, "X: " + str$(x)

    if rightkey()=1 `and leftkey()=0
        play sprite 1, 1, 2, 100
        x=x+5
    endif
    if leftkey()=1 `and rightkey()=0
        play sprite 1, 5,6, 100
        x=x-5
    endif

    if x <=10 then x=10
    if x >=600 then x=600
loop

end

Im using the pac man Image from the tutorial on this site..

the frames are :
12
34
56
78

I think this is how DB reads the image, so Moving right is 1,2 and the moving left is 5,6, but when I move right, then left, the anim loops through 3,4,

anyone know what Ive dont wrong ?

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 9th Aug 2010 07:00 Edited at: 9th Aug 2010 07:01

Link

I think that there is something wrong with your pac-man image. Try this one and see if it works for you. Also, I made a couple of edits to your code. My experience with PLAY SPRITE is that it will play through a series of frames to get to the ones you want when you change directions.

+ Code Snippet

SET DISPLAY MODE 640,480,16
sync on : SYNC RATE 60
create animated sprite 1, "media\pac-man.png", 2,4,1
x = 200

do
    ink rgb(rnd(255),rnd(255),rnd(255)),0
    text 10,10,"Left / Right Arrows to Move"
    ink rgb(255,255,255),0

    text 10,25, "X: " + str$(x)

    if rightkey() = 1 `and leftkey()=0
       if sprite frame(1) > 2 then set sprite frame 1,1
       play sprite 1, 1, 2, 100
       inc x,5
    endif
    if leftkey() = 1 `and rightkey()=0
       if sprite frame(1) < 5 or sprite frame(1) > 6 then set sprite frame 1,5
       play sprite 1, 5, 6, 100
       dec x,5
    endif
    if x <=10 then x=10
    if x >=600 then x=600
    sprite 1, x, 200, 1
    text 10,100,"FPS: " + str$(screen fps())
    sync
loop

end

Also, it is best to have the SYNC at the end of your loop, so that it redraws things correctly.

So many games to code.......so little time.

Attachments

Login to view attachments

Back to top

Profile PM Email

KaiProton

13

Years of Service

User Offline

Joined: 5th Aug 2010

Location: Manchester, UK

Posted: 9th Aug 2010 09:43

Link

Thanks LBFN, that worked brilliantly,

I found, after posting, the set sprite command, and I did try to impliment it, but with no success, I guess it was because I had the frames checked outside the keypress if's

also I did notice you rem'd out my And on each keypress line,
Was there a reason for this?
the reason they are there is to stop the player from MOONWALKING the character..

Thanks again

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 9th Aug 2010 17:24

Link

Quote: "I found, after posting, the set sprite command, and I did try to impliment it, but with no success, I guess it was because I had the frames checked outside the keypress if's"

I assume you are using SET SPRITE to try to eliminate the black that is showing in the image. If you convert the image to a .bmp file, it should work fine. I have not been able to get SET SPRITE to work with .pngs to eliminate the black background. Using SET IMAGE COLORKEY doesn't seem to help either, as it works with .bmps from my experience.

Quote: "also I did notice you rem'd out my And on each keypress line,
Was there a reason for this?"

uhhh.....no, they were remmed out in the code you posted.

So many games to code.......so little time.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

18

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 10th Aug 2010 08:07 Edited at: 10th Aug 2010 08:12

Link

Quote: "I assume you are using SET SPRITE to try to eliminate the black that is showing in the image. If you convert the image to a .bmp file, it should work fine. I have not been able to get SET SPRITE to work with .pngs to eliminate the black background. Using SET IMAGE COLORKEY doesn't seem to help either, as it works with .bmps from my experience. "

It's probably because .pngs are designed to use a transparent background so there's no need to use either of those commands if you get rid of the black background with a drawing program (see attached .png).

I just used this code in another message:

+ Code Snippet


` Create an animated sprite
` Use sprite number 1, it's 2 frames across and 4 down, and use image number 1
create animated sprite 1,"PacMan1.png",2,4,1

` Hide the mouse 
hide mouse

do

 ` Cycle the animation (sprite number 1, animate between frames 1 and 2, at 100 delay) 1000 = 1 second
 play sprite 1,1,2,100
 ` Show the animation at the mouse coordinates
 sprite 1,mousex(),mousey(),1

loop

Attachments

Login to view attachments

Back to top

Profile PM Email

Sorry your browser is not supported!

2D All the way! / Animations Help ?? Im a newbie on DB

Attachments

Attachments

Attachments