CameraPick and animated .X files

Blitz3D Forums/Blitz3D Beginners Area/CameraPick and animated .X files

Try adding this:
animmodel= LoadAnimMesh("mak_running.x")

ent = animmodel
While ent
	If EntityClass(ent)="Mesh"
		EntityPickMode ent, 2
	EndIf
	ent = NextChild(ent)
Wend


Function NextChild(ent)
	Local siblingcnt
	If CountChildren(ent)>0
		Return GetChild(ent,1)
	EndIf

	Local foundunused=False
	Local foundent = 0, parent,sibling
	While foundunused=False And ent<>0
		parent = GetParent(ent)
		If parent<>0
			If CountChildren(parent)>1
				If GetChild(parent,CountChildren(parent))<>ent
					For siblingcnt = 1 To CountChildren(parent)
						sibling = GetChild(parent,siblingcnt)
						If sibling=ent
							foundunused = True
							foundent = GetChild(parent,siblingcnt+1)
						EndIf
					Next
				EndIf
			EndIf
		EndIf
		ent = parent
	Wend
	Return foundent
End Function

From NextChild in code archive