Вопросы:Сцены,файлы

[Galushka2007]

Всем привет,у меня тут пару вопросов есть,подскажыте если не тежело.
1)Сцены-как можно реализовать сцены,например 3 сцены,1-меню,2-замок,3-магазин,как их реализовать и переключатся между ними.

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

Заранее спасибо.

[IGR]

coord1$ = readline(file) - считаеш координату с файла
coord2$ = readline(file) - считаеш координату с файла
потом
CoordX = int(coord1$) - переводиш строку в число
CoordУ = int(coord2$) - переводиш строку в число
и потом используеш это число
position замок, CoordX,CoordУ

[H@NON]

Первый вопрос: используй консрукцию Select...Case Нарпимер:
repeat

select gamescreen
Case menu
UpdateMenu()
Case game
UpdateGame()
end select

forever

[Данил]

[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

[HolyDel]

да ну.
лучше определится с тем, какой режим основной (в привиденном примере, это по всей видимости - "замок"), а альтернативные режимы подгружать из функции.
menu()
shop()