[Данил]

[blitz]
fileout = OpenFile("LEVEL1.scn") ;Загружаем файл

While Not Eof(fileout)

;Считаем данные
SObject.TypeObject = New TypeObject
S = ReadLine (fileout)
ReadLine(fileout)
Sobject\Modelpath = ReadLine (fileout)

Sobject\n = Float(ReadLine (fileout))

X[0] = Float(ReadLine (fileout))
X[1] = Float(ReadLine (fileout))
X[2] = Float(ReadLine (fileout))

SObject\X_Scale = Float(ReadLine (fileout))
SObject\Y_Scale = Float(ReadLine (fileout))
SObject\Z_Scale = Float(ReadLine (fileout))
SObject\X_rotate = Float(ReadLine (fileout))
SObject\Y_rotate =Float(ReadLine (fileout))
SObject\Z_rotate =Float(ReadLine (fileout))

;Создаем объект
Select SObject\ModelPath
;--------------КУБИК
Case "Cub" SObject\Model = CreateCube ()
Case "Sphere" SObject\Model = CreateSphere (5)
Case "Cylinder" SObject\Model = CreateCylinder (7)
Case "Light" SObject\Model = CreateLight (2): LightRange SObject\Model,50;70
End select

SObject\n = n ;Порядковый номер объекта



;Применяем данные , считанные с файла, на объект
If SObject\modelpath = "Light" Then LightColor SObject\Model , SObject\R_color , SObject\G_Color ,SObject\B_Color
If SObject\modelpath <> "Light" Then
RotateEntity Sobject\Model, SObject\X_Rotate, SObject\Y_Rotate, SObject\Z_Rotate
ScaleEntity SObject\Model, SObject\X_Scale, SObject\Y_Scale, SObject\Z_Scale
If SObject\colliz = 1 Then EntityType SObject\Model , colliz_WALL
End If
Wend


[/blitz]

Вот фунция из моей игры, которая загружает координаты.. (упращённая)

Но дял того, чтобы записывать в файлы , тебе потребуется написать собственынй редактор. или воспользоватся моим ))))
Wend