Animation won't work
BlitzPlus Forums/BlitzPlus Programming/Animation won't work
| ||
| I'm trying to animate a ship for my scrolling shooter, but when I run it, all it does is sit there on frame 0. Here's the LoadAnimImage section I used
;load the ship image
playerImage = LoadAnimImage("ship_idle.bmp",80,70,0,4)
Everything looks fine. Here's the 1st portion of the main loop, concerned with animation. While Not KeyHit(KEY_ESC) ;clear screen Cls ;animate the ship player1\frame = player1\frame + 1 If player1\frame > 4 player1\frame = 0 EndIf I think maybe here is where I'm screwing up? |
| ||
graphics 800,600,0,2
playerImage=loadanimImage("ship_idle.bmp",80,70,0,4)
type UnitObject ;just some name for your type so that this code snippet works
field frame
field image
end type
player1.unitobject=new unitobject
player1\image=playerimage
player1\frame=0
repeat
cls
player1\frame=(player1\frame +1) mod 4 ;frames go from 0-3, meaning there are 4 frames in total with the first being frame 0 and the last being frame 3
drawimage player1\image,400,300,player1\frame
flip
until keydown(1)
freeimage playerImage
delete each unitobject
end
should get you started. |
| ||
| Funny thing happened. I cut and pasted into Blitz Basic (which I have the trial of) and ran it. It worked perfectly. Then I cut and pasted back into BlitzPlus, ran it, and it also worked great. Why? |
| ||
| Blitzbasic and blitzplus are fairly interchangeable, there are differences but simple code like that above will work in all 3 of blitz3d, blitzplus and blitzbasic. Don't know about blitzmax. |
   |