Animation Speed

[bff]

Hi. In my program i want a man to walk across the screen. But when he does the animation is too fast how can i make it so the framenumber goes up by 65 every 10 pixels.

[Fox]

use GetTickCount

see my site for examples

[Sastraxi]

Do you mean the milliseconds between the frames? Or do you mean the array of bitmaps? If its the first one (I think it is, at least) here is the code:

'PRIVATE declaration for GetTickCount API here.
Dim X
Dim MS
Dim LastFrameNum as long

Sub Form_Load
   MS=100
   X=0
End Sub

Sub AnimateGUY(MSS)
   X=X+1
   If X mod 10 = 0 then ms=ms+65
   IF gettickcount - mss => ms then
      'code for animating guy here, use X as the X number and whatever you want for the Y number.
      lastframenum=mss
   end if
End Sub

Usage: AnimateGUY GetTickCount
This will work, I hope!

I'm only an email away - Sastraxi