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

"Showing walking animations various views when directions change using the arrow keys", by grim_1_2_3

This is a sample animation program which will let you move an animated character around the screen,While the different views of the character are being animated -- Sorry, you have to use you're own animations!

Replace the backgound image with one of you're own, and replace the movanim animation with you're own to see how the program works :)

Note: I know this code is quite sloppy, And much longer than it should be, But I wrote it in a hurry just to test out some animations of my own a while back. Should still be usefull to someone :)

Fully commented!

Code

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

Graphics 640,480,32 ; set up the graphics mode

SetBuffer BackBuffer() ; use double buffering

Global background = LoadImage("background.bmp") ; the background pic
Global frame_amount = 32 ; amount of total frames in the animation - very important to have the correct number!
Global frame_xsize = 32 ; the width of each frame in the animation
Global frame_ysize = 48 ; the height of each frame in the animation
Global up_anim_start = 0; the up animation's start frame
Global up_anim_end = 7 ; the up animation's end frame
Global down_anim_start = 8 ; the up animation's start frame
Global down_anim_end = 15 ; the up animation's end frame
Global left_anim_start = 16 ; the up animation's start frame
Global left_anim_end = 23 ; the up animation's end frame
Global right_anim_start = 24 ; the up animation's start frame
Global right_anim_end = 31 ; the up animation's end frame
Global moving_animation = LoadAnimImage("movanim.bmp",frame_xsize,frame_ysize,0,frame_amount) ; this loads the animation
Global frame = 0 ; sets the animation to the first frame when the program starts
Global animation_num = 0 ; keeps track of which part of the animation is being accessed in the moving_animation image  
Global fps = CreateTimer(30) ; Sets up a FPS timer - it is set to run at 30 fps now.
Global uphit = 0 ; keeps track of whether the up key is being pressed, This IS needed!
Global downhit = 0 ; keeps track of whether the down key is being pressed, This IS needed!
Global lefthit = 0 ; keeps track of whether the left key is being pressed, This IS needed!
Global righthit = 0 ; keeps track of whether the right key is being pressed, This IS needed!
Global anim_x_pos = 200 ; the x location to place the moving_animation at startup  
Global anim_y_pos = 200 ; the x location to place the moving_animation at startup

main_loop() ; Start the main loop...

Function main_loop()
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
MaskImage moving_animation,176,124,0 ; This sets the mask color for the moving_animation - change it to whatever mask you're image uses
DrawImage moving_animation,anim_x_pos,anim_y_pos,frame ; draws the moving_animation at whatever it's x,y screen coordinates are set at, And sets it to the current frame
Text 0,0, "Frame is currently:" + frame ; This is just so you can observe what the current frame is while you're program is running - you don't need it
If uphit = 0 And downhit = 0 And lefthit = 0 And righthit = 0 Then ; if none of the arrow keys are being pressed..
frame = 0 ; reset the current frame to 0
animation_num = 0 ; stop animating
EndIf
If animation_num = 1 Then ; if the first part of the animation is being accessed..
WaitTimer(fps) ; wait for the fps counter..
If frame = up_anim_end Then ; if the end of the frames for the first part of the animation are reached..(8 frames in this example)
frame = up_anim_start ; reset the current frame back to the start frame, This allows the animation to keep recycling as you hold down the key
EndIf
If animation_num = 1 Then ; if the first part of the animation is being accessed..
frame = frame + 1 ; ..advance to the next frame of animation
EndIf
EndIf
If animation_num = 2 Then ; if the second part of the animation is being accessed..
WaitTimer(fps) ; wait for the fps counter..
If frame = down_anim_end Then ; if the end of the frames for the second part of the animation are reached..(8 frames in this example)
frame = down_anim_start ; reset the current frame back to the start frame, This allows the animation to keep recycling as you hold down the key
EndIf
If animation_num = 2 Then ; if the second part of the animation is being accessed..
frame = frame + 1 ; ..advance to the next frame of animation
EndIf
EndIf
If animation_num = 3 Then ; if the third part of the animation is being accessed..
WaitTimer(fps) ; wait for the fps counter..
If frame = left_anim_end Then ; if the end of the frames for the third part of the animation are reached..(8 frames in this example)
frame = left_anim_start ; reset the current frame back to the start frame, This allows the animation to keep recycling as you hold down the key
EndIf
If animation_num = 3 Then ; if the third part of the animation is being accessed..
frame = frame + 1 ; ..advance to the next frame of animation
EndIf
EndIf
If animation_num = 4 Then ; if the fourth part of the animation is being accessed..
WaitTimer(fps) ; wait for the fps counter..
If frame = right_anim_end Then ; if the end of the frames for the fourth part of the animation are reached..(8 frames in this example)
frame = right_anim_start ; reset the current frame back to the start frame, This allows the animation to keep recycling as you hold down the key
EndIf
If animation_num = 4 Then ; if the fourth part of the animation is being accessed..
frame = frame + 1 ; ..advance to the next frame of animation
EndIf
EndIf
If KeyDown(200) Then ; if the Up key is being held down 
If frame > up_anim_end Then ; if the current frame number is greater then the end frame for the up animation...
frame = up_anim_start ; reset it to the starting frame
EndIf
uphit = 1 ; Up arrow key is being pressed(this flag is needed!)
animation_num = 1 ; the current animation is the up animation(first set of 8 frames of the moving_animation)
anim_y_pos = anim_y_pos - 1 ; move upwards by 1 pixel
Else
uphit = 0 ; Up arrow key is not being pressed(this flag is needed!)
EndIf
If KeyDown(208) Then ; if the Down key is being held down 
If frame < down_anim_start Then ; if the current frame number is less then the start frame for the down animation...
frame = down_anim_start ; reset it to the starting frame
EndIf
If frame > down_anim_end Then ; if the current frame number is greater then the end frame for the down animation...
frame = down_anim_start ; reset it to the starting frame
EndIf
downhit = 1 ; down arrow key is being pressed(this flag is needed!)
animation_num = 2 ; the current animation is the Down animation(second set of 8 frames of the moving_animation)
anim_y_pos = anim_y_pos + 1 ; move downwards by 1 pixel
Else
downhit = 0 ; down arrow key is not being pressed(this flag is needed!)
EndIf
If KeyDown(203) Then ; ; if the Left key is being held down 
If frame < left_anim_start Then ; if the current frame number is less then the start frame for the left animation...
frame = left_anim_start ; reset it to the starting frame
EndIf
If frame > left_anim_end Then ; if the current frame number is greater then the end frame for the left animation...
frame = left_anim_start ; reset it to the starting frame
EndIf
lefthit = 1 ; Left arrow key is being pressed(this flag is needed!)
animation_num = 3 ; the current animation is the Left animation(third set of 8 frames of the moving_animation)
anim_x_pos = anim_x_pos - 1 ; move left by 1 pixel
Else
lefthit = 0 ; left arrow key is not being pressed(this flag is needed!)
EndIf
If KeyDown(205) Then ; ; if the Right key is being held down 
If frame < right_anim_start Then ; if the current frame number is less then the start frame for the right animation...
frame = right_anim_start ; reset it to the starting frame
EndIf
righthit = 1 ; Right arrow key is being pressed(this flag is needed!)
animation_num = 4 ; the current animation is the Right animation(fourth - and last - set of 8 frames of the moving_animation)
anim_x_pos = anim_x_pos + 1 ; move right by 1 pixel
Else
righthit = 0 ; right arrow key is not being pressed(this flag is needed!)
EndIf
Flip ; flip the screen into view
Cls ; clear the screen
Wend ; wrap to the end(keep looping) 
End Function

Code software created by Krylar's Kreations