BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Controlled animations using the 'millisecs' command. ", by grim_1_2_3

This simple piece of animation code will allow you to run you're animations at the same speed on ANY computer, No matter how fast. It is a better method than using the 'waittimer' command to control the FPS.

Note: You Must use you're own images.

Fully commented!

Code

; **************************
; *     By Grim_1_2_3      *
; **************************

; This animation example shows how to use the sytem time on you're computer to make you're animations
; run at a controlled speed. It's a more accurate technique than the createtimer() command used in my
; other examples. this is because this methos doesn't use the refresh rate to keep the animations at a
; fixed FPS rate - Instead it uses the internal time of the computer. Using this method you're animations
; Will be FORCED to run at the same speed on all machines, no matter what their refresh rate is set at.

; If you hold down the ENTER key the animation will keep recycling
  
Graphics 640,480,32 ; set up the graphics mode

SetBuffer BackBuffer() ; use double buffering

Global background = LoadImage("background.bmp") ; the background pic
Global anim = LoadAnimImage("animation.bmp",32,48,0,8) ; this loads the animation
Global frame = 0 ; initial frame at startup
Global animshow = 0 ; a flag - when it equals '1' then the animation will cycle through
Global x = 200 ; the x location to place the animation at startup 
Global y = 200 ; the y location to place the animation at startup 
 
main_loop() ; Start the main loop...

Function main_loop()
timer1 = MilliSecs() ; this makes timer1 hold the old value for the current computer millisecond time
While Not KeyHit(1) ; while the esc key isn't being pressed...
DrawImage background,0,0 ; draws the background at location 0,0 on the screen
DrawImage anim,x,y,frame ; draws the animation at whatever it's x,y screen coordinates are set at, And sets it to the current frame
If animshow = 1 Then ; If the animshow flag is turned on(= 1)...
If frame = 7 Then; if the end of the frames are reached..,(8 frames in this example)
frame = 0 ; reset frames back to zero, This allows the animation to keep recycling
EndIf
If MilliSecs() > timer1 + 100 Then ; if 100 ticks have passed(Note: change the number after the 'timer1 +' to make the animation slower or faster)
frame = frame + 1 ; ..advance to the next frame of animation
timer1 = MilliSecs() ; replace the old contents of timer1 with the new millisecond time(next time through the loop, this current value will be the old value) 
EndIf
EndIf
If KeyDown(28) Then ; if the Enter key is being held down 
animshow = 1 ; set the animshow flag to on(1) - This will make the animation run 
Else
animshow = 0 ; set the animshow flag to off(0) - This will keep the animation from continuosly looping when you let go of the Enter key
frame = 0 ; reset to the first frame in the animation
EndIf
Flip ; flip the new screen into view
Cls ; clear the screen
Wend ; wrap to the end, Or loop
End Function

Code software created by Krylar's Kreations