Есть тип:
Type TModel
Field ent
Field typ
...
End Type
Есть функция создание модели:
Function CreateModel.TModel (x=0,y=0,z=0,m)
If m=1 gModel=LoadMesh("models\model1.b3d")
If m=2 gModel=LoadMesh("models\model2.b3d")
...
HideEntity gModel
Local t.TModel =New TModel
t\ent=CopyEntity(gModel)
PositionEntity t\ent,x,y,z
ScaleEntity t\ent,0.08,Rnd(0.07,0.1),0.08
EntityType t\ent,MODELT
NameEntity t\ent,Handle(t)
EntityPickMode t\ent,2
t\typ=1
t\mode=m
Return t
End Function
Ну а вопрос тут(в сохранение):
Function SaveModel()
Local o.TModel ,FSave
FSave=WriteFile("Model.dat")
For o=Each TModel
WriteInt(FSave,o\typ)
WriteInt(FSave,EntityX(o\ent))
WriteInt(FSave,EntityY(o\ent))
WriteInt(FSave,EntityZ(o\ent))
.....
WriteInt(FSave,m)
Next
CloseFile FSave
End Function
почему переменнай m не так сохраняется? когда вызываешь функцию
загрузки m присваевается последние используемое значение(к примеру при создании ставил модель1,мо..2,мод..3 И когда загружаю все модели 3 )