Leito, как понять только одной модели? у тебя же для каждой модели отдельная анимация... да даже если одна (например надо чтобы у войска была одна анимация но проигрывалась с разной скоростью)...
Например войско - список
Type muzik
Field telo
End Type
потом создаешь их
Function CreateVoisko(tn)
For i=1 To tn
m.muzik=New telo
m\telo=loadAnimMesh("chel.b3d")
PositionEntity m\telo,Rnd(-50,50),0,Rnd(-50,50)
Next
End Function
Потом при создании левела (не в главном цыкле)
For m.muzik=Each telo
animete m\telo,rnd(.8,1.2)
Next