Re: !!!Прошу помощи!!!
Это из рабочего кода, я думаю разберешся!
Function SaveLevel(entity, mesh$, File$)
File=WriteFile(File): If file=0 End
colVo=0
For i=1 To CountChildren(entity)
e_par=GetChild(entity,i)
n_e=0 :n_e=Instr(EntityName(e_par),mesh)
If n_e<>0
colvo=colvo+1
WriteLine(File,EntityX(e_par,1))
WriteLine(File,EntityY(e_par,1))
WriteLine(File,EntityZ(e_par,1))
WriteLine(File,EntityPitch(e_par,1))
WriteLine(File,EntityYaw(e_par,1))
WriteLine(File,EntityRoll(e_par,1))
EndIf
Next
CloseFile(File)
End Function
|