Вопросы:Сцены,файлы
Всем привет,у меня тут пару вопросов есть,подскажыте если не тежело.
1)Сцены-как можно реализовать сцены,например 3 сцены,1-меню,2-замок,3-магазин,как их реализовать и переключатся между ними. 2)Файлы-как и сделать чтоб из файла читались координаты,и таким образом в игре из файла по координатам отрисовывали карту. Заранее спасибо. |
Re: Вопросы:Сцены,файлы
coord1$ = readline(file) - считаеш координату с файла
coord2$ = readline(file) - считаеш координату с файла потом CoordX = int(coord1$) - переводиш строку в число CoordУ = int(coord2$) - переводиш строку в число и потом используеш это число position замок, CoordX,CoordУ |
Re: Вопросы:Сцены,файлы
Первый вопрос: используй консрукцию Select...Case Нарпимер:
repeat select gamescreen Case menu UpdateMenu() Case game UpdateGame() end select forever |
Re: Вопросы:Сцены,файлы
[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 |
Re: Вопросы:Сцены,файлы
да ну.
лучше определится с тем, какой режим основной (в привиденном примере, это по всей видимости - "замок"), а альтернативные режимы подгружать из функции. menu() shop() |
Часовой пояс GMT +4, время: 17:47. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot