[ЛысыЙ_Чук-Иванчук]

baz=LoadAnimMesh("c:\01.b3d")
kk(baz)

;==========
Type baza0002
Field entity
End Type


Function kk(par)

For i=1 To CountChildren(par)
e_par=GetChild(par,i)
n_t=0 :n_t=Instr(EntityName(e_par),"baza")
If n_t<>0
t.baza0002=New baza0002
t\entity=FindChild(par,""+e_par)
EntityType t\entity,typebaza
EndIf
Next
End Function

Не могу понять, почему ошибка. Цель должна найти все объекты BAZA и чтобы они все проверялись на столкновение.