Another animation question

Blitz3D Forums/Blitz3D Beginners Area/Another animation question

Aussie

(Posted 2010) [#1]

Gday all,
Haven't been here in a while.
I have been playing around with a simple 3d platformer & have run into problems with animation. I have searched through other code & just can't seem to get it to work.

I have 2 animation sequences for now, one for standing & one for walking. Eventualy there will be more.

So far i can get the walking sequence to start but it wont stop, or i have had the standing sequence going but the walking animation then starts when i release the key to start it.

I am using the Ninja model from Psionic's site
http://www.psionic3d.co.uk/?page_id=25

What am i missing here?
Cheers :)

Graphics3D 800,600,32,2

Global plxv#,plyv#,speed#=.02
Global walking,standing
Global heading,h_0 = 0, h_e = 1, h_w = 2
Global inair
Global camx#,camy#

Global world_col = 1
Global player_col = 2


camera = CreateCamera()
	PositionEntity camera,0,3,-10
	CameraClsColor camera,180,180,180
	
light = CreateLight()
	RotateEntity light,90,0,0


world = LoadAnimMesh("test1.b3d")
	PositionEntity world,0,0,0
	;ScaleEntity world,1.5,1.5,1.5
		;ground = FindChild(world,"floor")
		;EntityPickMode ground,2
	EntityType world,1,True

player = LoadAnimMesh("model/ninja.b3d")
	ScaleEntity player,.25,.25,.25
	RotateEntity player,0,-90,0
	EntityRadius player,.24
	PositionEntity player,-6,10,0
	EntityType player,2
	plyv# = 0
	plxv# = 0
	walk = ExtractAnimSeq(player,1,14)
	stand = ExtractAnimSeq(player,184,205)
	heading = h_e
	
	
	
Collisions player_col,world_col,2,2

RecursiveSearchMesh(world)

While Not KeyHit(1)

;If walking = False  
	;If AnimSeq(player) <>stand Then Animate player,1.1,stand,1

;EndIf 

;If Not Animating (player) Then Animate player,1,.1,stand,10

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;player collisions & controlls;;;;;;;;;;;;;;;;;;;;;;;;;;

LinePick EntityX(player),EntityY(player),EntityZ(player),0,-.25,0,.2

	If PickedEntity() <> 0 Then
		PositionEntity player,EntityX(player),PickedY()+.25,EntityZ(player)
	plyv# = 0
	plyv# = -.001
	inair = False
	Else plyv# = plyv# - .02
	inair = True
End If

If inair = False
	If KeyHit(57) plyv = .3
Else If inair = True
	plyv = plyv
End If


If heading = h_e
	If KeyDown(205)
	plxv# = plxv# + speed#
	heading = h_e
	walking = True
	standing = False
Else
	walking = False
	standing = True
	;heading = h_0
End If
End If


If heading = h_w
	If KeyDown(205)
	RotateEntity player,0,-90,0
	heading = h_e
End If
End If

 
If heading = h_e
	If KeyDown(203)
	RotateEntity player,0,90,0 
	;plxv# = plxv# - speed#
	heading = h_w
End If
End If
		
If heading = h_w
	If KeyDown(203)
	plxv# = plxv# + speed#
	walking = True
	standing = False
Else
	walking = False
	standing = True
End If
End If
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;animation;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;
;; 1 = walking
;; 2 = idle
;;


If walking = True  And standing = False  
	If AnimSeq(player) <> 1 Then Animate player,1,.5,1,1
End If

If walking = False And standing = True  
	If AnimSeq(player) <> 2 Then Animate player,1.1,2,10
End If


	


If plxv# > .2 plxv# = .2
If plxv# < -.2 plxv# = -.2

If plxv# > 0
	plxv# = plxv# - .01
	If plxv# < 0 plxv# = 0
ElseIf plxv# < 0 
	plxv# = plxv# + .01
	If plxv# > 0 plxv# = 0
ElseIf plxv# = 0
	plxv# = 0
EndIf



MoveEntity player,0,0,plxv#

TranslateEntity player,0,plyv#,0

camx# = EntityX#(player)
camy# = EntityY#(player)+3

PositionEntity camera,camx#,camy#,-10

FlushKeys()
UpdateWorld()
RenderWorld()

Text 0,0,"Player Yvel: " + plyv
Text 0,10,"Player Inair: " + inair
Text 0,20,"Player walking: " + walking
Text 0,30,"Player standing: " + standing
Text 0,40,"Player heading (still = 0, east = 1, west = 2): " + heading
Text 0,50,"Animation Sequence: " + AnimSeq(player)

Flip


Wend
End

Function RecursiveSearchMesh(Mesh)
If CountChildren(Mesh) = 0 And EntityClass(Mesh) = "Mesh" Then EntityPickMode Mesh,2
For C=1 To CountChildren(Mesh)
	Child=GetChild(Mesh,C)
	If EntityClass(Child)="Mesh" Then EntityPickMode Child,2	
	RecursiveSearchMesh(Child)
Next

End Function

vivaigiochi

(Posted 2010) [#2]

you must use correct algorithm via the use of animseq instruction.
it's animseq that say you what anim is currently in use. you can define some "state" that indicate to you the state of your entity in conjuction with animseq. and remember if the entity is correctly positioned into editor (i speak about coordinates) it is not necessary make position entity at the begin of your routine like PositionEntity world,0,0,0.

Ross C

(Posted 2010) [#3]

Use somthing like:

If keydown(200) then (KEY UP)
If AnyAnimationPlaying <> walk then
Playanimation walk
End if
Else (NO KEY PRESSED ESSENTIALLY)
IF AnyAnimationPlaying = True then
PlayAnimation Standing
End if
End If

Basically, you want o check if any keys are pressed. If they are, check to see if the walk animation is playing on the character. If not, then play the animation. THEN, if your If statement picks up no keys being pressed, use the ELSE by itself once you've checked all other relevant keys. You can now play the stop animation as no keys are being pressed, but there is an animation playing.

That should sort you out.

Aussie

(Posted 2010) [#4]

Cheers guys got it going. will more than likely have a few more questions soon. :)