Animation help plz!!!

Hi

Im doing a cannon fodder clone in Blitz3d tho the game is 2d

ive got the mouse routine working fine the main character can move in 8 directions and is controled by the mouse
left mouse button moves the character to where you clicked right mouse button fire's a bullet

The problem im having is this

My character has 24 frames of animation (0-23) and there is 3 frames per direction so if he moves up screen his back is towards you etc etc

What i need is some animation code so when i click my character walks towards where i clicked instead of sliding

I just cant get my head around it any help plz

i can post the code if needed but you will need to make some of your own graphics cos i ripped the graphics out of the amiga version of cannon fodder as test graphics


Thanks
GIMPY

Assum CharX,CharY as the characters position.
Then your using mousex,mousey to pick the spot. If your not using tiles just the x/y pos figure use mousex/mousey and use these next ifs to figure the direction. If your using tiles...youll have to write a slightly more advanced code, cause if you click 3 tiles right)(east) and 1 tile(north) your anim string would be loaded as ne, and you would move 1ne, and then 2e all as anim ne direction.

If charX=ClickX Andif CharY<ClickY then "anim string south"
If charX=clickX andif chary>clicky then "anim string north"
If charX>clickx andif chary=Clicky then "anim string east"
if charX<clickx andif chary=clicky then "anim string east"
;Note if your not using a tile system, you'll probably want
;to add a 20 or 30 degree pixel varriance on clickx/clicky
;otherwise it'll only pick e/n/s/w on line of pixels
If CharX<ClickX Andif CharY<ClickY then "anim string nw"
if charX>ClickX andif CharY<ClickY then "anim string ne"
if CharX>ClickX andif CharY>ClickY then "anim string se"
if charx<ClickX andif CharY>Clicky then "anim string sw"

I don't know if this helps, but post up your code and i'll try to get it to work for ya

K thanks m8 here is my code

;*****************
;* Mouse Routine *
;* Cannon Fodder *
;* Style *
;*****************

Graphics 640,480,16
SetBuffer BackBuffer()

;-Types-----------------------------------------------------

Type bullet
Field x#,y#
Field ang#,speed#
Field img
Field life#
End Type

Type player
Field x#,y#
Field ang#,speed#
Field frm ;animation frame
End Type

Type particle
Field x#,y#
Field dx#,dy#
Field size#
Field r,g,b
End Type

;-Globals-------------------------------------------------------

Global me.player=New player
Global clickedx#,clickedy#
Global imgplayer
Global imgshot
Global sndshot
Global sndgun
Global fps = CreateTimer(60)

;-Graphics+Sounds-----------------------------------------------

imgplayer=LoadAnimImage("fodman3.png",15,14,0,23)
imgshot=LoadImage("shot.bmp")
sndshot=LoadSound("shot.wav")
sndgun=LoadSound("gun.wav")
MaskImage imgplayer,255,0,255
MidHandle imgplayer
MidHandle imgshot
me\x=160
me\y=100

;-Main loop-------------------------------------------------

While Not KeyHit(1)

Cls

Color 50,100,150
Rect 0,0,640,480,1

angle=ATan2(MouseX()-me\x,MouseY()-me\y)

If Angle<0 Angle=Angle+360


If MouseHit(2)

clickedx=MouseX()
clickedy=MouseY()
me\ang=ATan2(clickedx-me\x,clickedy-me\y)
me\speed=2

EndIf

If Sqr(me\x-clickedx)^2+(me\y-clickedy)^2<9
me\speed=0
EndIf

If KeyDown(42) And MouseDown(2)
me\speed=6
End If

If MouseHit(1)

b.bullet = New bullet ;Create bullet
b\x = me\x : b\y = me\y
b\ang= ATan2(MouseX()-b\x,MouseY()-b\y)+Rnd(-3,6)
b\speed=6
b\life=30
b\img=imgshot
PlaySound(sndgun)

End If

For b.bullet = Each bullet
movebullet(b)
Next
If angle<0 angle=angle+360

If angle>160 And angle<200
me\frm=4;up
EndIf

If angle>110 And angle<160
me\frm=22;up right
EndIf

If angle>70 And angle<110
me\frm=10;right
EndIf

If angle>20 And angle<70
me\frm=16;down right
EndIf

If angle>345 Or angle<15 Or angle=0
me\frm=1;down
EndIf

If angle<335 And angle>290
me\frm=13 ;down left
EndIf

If angle<290 And angle>245
me\frm=7 ;left
EndIf

If angle<245 And angle>200
me\frm=19 ;up left
EndIf

;-Move particles----------------------------------------------
For pt.particle = Each particle

pt\x = pt\x + pt\dx
pt\y = pt\y + pt\dy
pt\size = pt\size - .6

If pt\size=<0 Then Delete pt

Next

me\y=me\y+(Cos(me\ang)*me\speed)
me\x=me\x+(Sin(me\ang)*me\speed)

For pt.particle = Each particle

Color pt\r,pt\g,pt\b
Oval pt\x-pt\size/2,pt\y-pt\size/2,pt\size,pt\size

Next

Color 255,255,255
DrawImage imgplayer,me\x,me\y,me\frm;player gfx

Color 255,25,25
Rect MouseX(),MouseY(),2,2; mouse gfx

Flip
Wend

End

;-Functions-------------------------------------------------


Function MoveBullet(b.bullet)



b\y=b\y+(Cos(b\ang)*b\speed)
b\x=b\x+(Sin(b\ang)*b\speed)


DrawImage b\img,b\x,b\y,0


b\life=b\life-1


If b\life<0 ;Then Delete b.bullet
For i=1 To 50

pt.particle = New particle
pt\x = b\x
pt\y = b\y
pt\dx = Rnd(-2,2):pt\dy=Rnd(-2,2)
pt\size = Rnd(2,4)
col# = Rnd(48,128)
pt\r = col: pt\g = col: pt\b = col

If i>30 Then

pt\r=255: pt\g=300-pt\size*40: pt\b=0 ;colour it red/yellow
pt\dx=pt\dx/2 ;slow it down
pt\dy=pt\dy/2

End If
Next

Delete b.bullet
chnwave1=PlaySound(sndshot)
ChannelVolume chnwave1,.2


End If

End Function

Alright i got the code this morning its about 7am central time here. I'll work on it tonight when i get outta work(6p or so). I noticed a few little things.

Thanks Gauge for atleast looking at my code :)






Thanks
GIMPY

I'm back, sorry it tooke me so long...heres a few things.
1. Instead of Rect 0,0,,640,480 each frame, use Clscolor 50,100,150..it'll auto clear the screen to that color...
2. Each time it loops right now it reads the angle every time and changes the animation loop back to the first frame of whichever direction the mouse is from the char. To toggle the the three frames, use me\frm=me\frm+1 after flip and before the wend. Then run a few ifs if frame is 4,7,10 the end of that loop then restart ie If me\frm=4 then me\frm=1,etc. You should be able to check this without half a dozen ifs with left$ and divided it by 3 though but i haven't tried it.,If you want the character to always look in the direction of the mouse, you'll have to keep two angles, the angle its currently moving, vs the angle its facing. Or use If me\speed=0(for the char not moving) me\frm=(1,4 etc from the angle).
3. I would function this out so your main loop looks like the following.

Main Loop()
Cls
ReadAngle Me
If Mousehit(2) MovePlayer me
If Mousehit(1) Shoot
UpdateBullets
Color 255,255,255 
DrawImage imgplayer,me\x,me\y,me\frm;player gfx 
Color 255,25,25 
Rect MouseX(),MouseY(),2,2; mouse gfx
Flip
Wend

Of course i tend to over function things too....I didn't have an aniimage so i couldn't test it totally though, and for some reason my old testfile of this got deleted *growl*
I used text 10,10,angle and test 10,50,me\frm add those in before flip and you'll see what its doing. I always add text, such and such a spot so i can track everything.

You may also want to use the field bullet and use it as a type in player also. Well good luck, hope that helps

Thanks M8 ill give it a try 2night and c wot i can come up with




GIMPY :)

Spooky! I'm writing Cannon Fodder in B2D! That's kinda' scary...