Animation Tutorial (for Blitz 3d): REAL Animation

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

;Here's the normal routine stuff

camera=CreateCamera()
PositionEntity camera,0,20,-100 ; 

AmbientLight 132,132,132
light=CreateLight()
LightRange light,20
RotateEntity light,90,0,0



; Here, I load the animed mesh. Note: ALL of my animations
; Are on this SINGLE ".b3d" animation filmstrip.
; I made my animations in an online program
; called "Mixamo" and I put my separate animations
; all together onto ONE filmstrip via a
; program called "Fragmotion!"


man = LoadAnimMesh("Henry2.b3d")



;Now, I give ALL of my animations a name
;and I give the beginnings, ends
;and locations of WHERE my animations are
;on the filmstrip. For example, 
;my "Idle" animation STARTS at frame 
;3 of my single film strip and ENDS at 4, etc.
;I did the same procedure for my "Walking" and 
;my "Punching" animations too.


Idle = ExtractAnimSeq(man,3, 4)
Walking = ExtractAnimSeq(man,3, 30)
Punching = ExtractAnimSeq(man,31, 99)



;Position, Scale, and Rotate object as you please:

ScaleEntity man, 3, 3, 3
RotateEntity man,0,0,0 
PositionEntity man, -0,-200,600




;Game loop and where the action begins.

While Not KeyDown(1)
	

;Starts and Stops the Walking Animation
;if the UP arrow key is pressed.

	If KeyDown(200) 
		WalkingStarts = True
		
		Text 0,20,"Walking"
		
	Else  
		
		WalkingStarts = False

	End If
	
	

;Starts and Stops the Punching Animation
;if the "A" key is pressed.

	
	If KeyDown(30) 
		PunchStarts = True
		
		Text 0,20,"Punching"


	Else  
		
		PunchStarts = False

	End If




;Does the actual "walking" animation when the time is right (I think):

If AnimTime(man) => AnimLength(man)-1
	
		If WalkingStarts = True
			Animate man,1,1,Walking,10.0
			
	
			
			
		End If
End If
		
	
	

;Does the actual "punching" animation when the time is right:

If AnimTime(man) => AnimLength(man)-1	
	
	If PunchStarts = True
			Animate man,1,1,Punching,10.0
			
	
			
			
		
	End If

EndIf 



	
;If neither the punch nor walking animation is going, then
;go to the idle animation. I guess your
;animations filmstrip HAS TO keep running in some fashion, or
;your animation code would act funny like it did for me.
;So, this might be the secret ingrediant for getting
;your animations to work properly.	

	
If Not WalkingStarts Or PunchStarts Then 
	
	
	
		Animate man,1,1,Idle,10.0
	
EndIf 
	


	UpdateWorld 
	RenderWorld 


	
Flip
Wend

;getinput

;update bots states depending on their previous states and their sensors/ai logic

;update player state depending on his previous state and input

;update bots and player turns/moves/animations (turnentity(), moveentity(), animateentity())

;detect collisions and repositionning (with ellipsoids and collidables (updateworld(), countcollisions(), collisionentity()) or with linepicks and pickables (linepick(), pickedentity()))

;render the scene (renderworld())