Problem Animate Player and Ragdoll.

Blitz3D Forums/Blitz3D Programming/Problem Animate Player and Ragdoll.

Yue	(Posted 2015) [#1]

Hello, I have a problem. I encourage my character with two basic animations. Rest and running .

But the downside is that being run and run ragdoll, the character is still the element of ragdoll .

Any suggestions?

; *************************************************
; Proyecto 		: Pawn.
; Programador 	: Yue Rexie.
; Sitio Web		: <a href="http://www.iris3dgames.com" target="_blank">http://www.iris3dgames.com</a>
; *************************************************
; Fichero 		: Includes\Nivel1.bb
; Objetivo 		: Fichero Nivel1.
;
; *************************************************







; Terreno Temporal.
; ==================
Plano% = CreatePlane()
EntityTexture Plano%, traSombra1%, 0, 1
traAsfalto% = LoadTexture("Data/Imagenes\Asfalto.jpg")
ScaleTexture traAsfalto%,100, 100
EntityTexture Plano%, traAsfalto%, 0,0
; ==================


; Anima.
Descanso = LoadAnimSeq(personaje\modelo%,"Data/ModelosAnim/AnimateT.b3d")
Animate personaje\modelo%, 2,1,1,.1

tiempo%=MilliSecs()-periodo%
; Bucle Principal.
; =================
While Not KeyHit(KEY_ESC%)
	
	
	Repeat  :  elapsed = MilliSecs() - tiempo%  :  Until elapsed
	ticks = elapsed / periodo%
	tween# = Float(elapsed Mod periodo%) / Float(periodo%)
	For k=1 To ticks
		tiempo% = tiempo% + periodo%
		If k = ticks Then CaptureWorld
		;UpdateObjects
		
		
		
		If rag% = False Then 
			MoverPersonaje%(controladorJugador.CController)
			
		End If 
		
		
		
		If KeyHit(200) Then 
			
			
			btBodyDetachEntity (controladorJugador\body%)
			btDeleteCController(controladorJugador\controlador%)		
			controladorJugador\body% = 0
			controladorJugador\controlador% = 0
			LoadingRagdoll%()
			Init_BonesRagdoll%()
			
			Init_JointsRagdoll%()
			
			
			Rag = True
			Bone% = True 
		End If 
		
		If KeyHit(208) Then 
			Rag% = False 
			
		End If 
		If Rag% = False And Bone% = True  Then 
			RotateEntity boneCabeza\bone%, 0, 0, 0
		End If 
		
		If Rag% = True Then 
			UpdateRagdoll%()
			
			
			
			
		End If 
		
		PositionEntity sombraPersonaje\esfera%, EntityX(FindChild(personaje\modelo%, "BonePelvis"),True),EntityY(FindChild(personaje\modelo%, "BonePelvis"),True),EntityZ(FindChild(personaje\modelo%,"BonePelvis"),True),True
		PositionEntity personaje\modelo%, EntityX(pivoteJugador\pivote%), EntityY(pivoteJugador\pivote%)-31, EntityZ(pivoteJugador\pivote%)
		
		Camara3raPersona%()
		UpdateWorld
		btSimulation(.1,6)	
		
	Next
	
	; ============
	
	;UpdateWorld
	UpdateShadows (pivoteJugador\pivote%,tween# )
	RenderWorld tween# 
	
	Text 10,10,"Fps: "+FPS()
	btDebugDrawWorld(camaraPrincipal\camara%)
	;DebugShadow()
	
	
	
	Flip
	
	
	If KeyHit(205) Then 
		
		btBodyApplyForce (cabezaPX\bodyconcave%, 0, 500*50, 0)
		btBodyApplyForce (pechoPX\bodyconcave%, 0, 500*50, 0)
		btBodyApplyForce (pelvisPX\bodyconcave%, 0, 500*50, 0)
	End If 
	
Wend

DeleteObjPivote%()
DeleteParentObjetos%()
DeleteObjCamara%()
DeleteObjCapsula%()
DeleteObjEsfera%()
deleteObjLuz%()
DeleteObjMesh%()

DeleteObjBone%()




DeleteObjAnimMesh%()
DeleteObjJoint%()
DeleteObjConcave%()
DeleteController%()

DeInitSistemas%()
DeleteObjGraphics3D%()