ну вот и оно:
Function LoadModel()
Local FLoad,x,y,z,pitch,yaw,roll,m
For o=Each TModel
DestroyObject(o)
Next
FLoad=ReadFile("Model.dat")
While Not Eof(Fload)
Select ReadInt(FLoad)
Case 1: o=CreateModel(x,y,z,m)
End Select
x =ReadInt(Fload)
y =ReadInt(Fload)
z =ReadInt(Fload)
pich =ReadInt(Fload)
yaw =ReadInt(Fload)
roll =ReadInt(Fload)
m =ReadInt(Fload)
PositionEntity o\ent,x,y,z
RotateEntity o\ent,pitch,yaw,roll
Wend
CloseFile FLoad
End Function
а как тогда для каждого сохранять? поле в тип добавить ответчающее за ето дело?