Смена локаций

[Crystal]

Незнаю правильно ли сделал

If Location<>1 Then
FreeEntity Camera1
FreeEntity Svet
FreeEntity Ploskost
FreeEntity Zemla
End If

If Location<>2 Then
FreeEntity Camera2
FreeEntity Svet2
FreeEntity Ploskost2
FreeEntity Zemla2
End If

Но теперь когда переменная Location равняется двум - вылазиет ошибка
пишет что нету такого обьекта Camera1 которая была гружена функцией которая в свою очередь работает при переменной Location равной одному.

В итоге я думаю что етот чёртов If Location<>1 Then удалил объекты и сразуже хочет их сново удалить, а раз удалять уже нечего то ругается насчёт этого....

Мде... С этой загрузкой локаций придётся покапаться дольше чем я думал...

[Crystal]

Фуф понял чё тормозило, и вправду миры клонировало.
Сделал пока тупую простенькую системку а потом переделаю )

Global Camera1
Global Svet1
Global Ploskost1

Global Camera2
Global Svet2
Global Ploskost2

Global Camera3
Global Svet3
Global Ploskost3


Function Location1()
Camera1 = CreateCamera()
PositionEntity Camera1,0,20,0
RotateEntity Camera1, 0, 0, 0
CameraRange Camera1,0.01,100000000

Svet1 = CreateLight()
TurnEntity Svet1,30,20,0

Ploskost1= CreatePlane() 
Zemla1=LoadTexture("Data\textures\15820652.jpg") 
ScaleTexture Zemla1,150,150
EntityTexture Ploskost1,Zemla1 
End Function

Function Location2()
Camera2 = CreateCamera()
PositionEntity Camera2,0,20,0
RotateEntity Camera2, 0, 0, 0
CameraRange Camera2,0.01,100000000

Svet2 = CreateLight()
TurnEntity Svet2,30,20,0

Ploskost2= CreatePlane() 
Zemla2=LoadTexture("Data\textures\SAND.JPG") 
ScaleTexture Zemla2,150,150
EntityTexture Ploskost2,Zemla2
End Function

Function Location3()
Camera3 = CreateCamera()
PositionEntity Camera3,0,20,0
RotateEntity Camera3, 0, 0, 0
CameraRange Camera3,0.01,100000000

Svet3 = CreateLight()
TurnEntity Svet3,30,20,0

Ploskost3= CreatePlane() 
Zemla3=LoadTexture("Data\textures\TEX37.BMP") 
ScaleTexture Zemla3,150,150
EntityTexture Ploskost3,Zemla3
End Function

While Not KeyDown(1)

If KeyHit(16) Then 
Location1()
End If

If KeyHit(17) Then
FreeEntity Camera1
FreeEntity Svet1
FreeEntity Ploskost1
Location2()
End If

If KeyHit(18) Then
FreeEntity Camera2
FreeEntity Svet2
FreeEntity Ploskost2
Location3()
End If

If KeyHit(19) Then
FreeEntity Camera3
FreeEntity Svet3
FreeEntity Ploskost3
Location1()
End If

Тут вроди пока кажется системка не очень. Но все If KeyHit будут заменены на коллизию. В зависимости в какой локации юзер и с переходом в какую локацию коллизится то, и будет удаляться данная локация и грузиться нужная.
Ток тут получится что все мобы заново создадутся и все валяющиеся предметы, но если их хранить в переменных отдельно в глобале то если убиты или подняты не загрузятся. Вроди норм система локаций получается.
Системка то простая и работать будет замечательно.

Но эт всё моя теория. Мож я и не прав.

[IGR]

у тебя в цикле переменная была равна 1 и по этому всё время когда она была равна 1 создавался новай мир (и это каждый цикл) !!

[Crystal]

Да конечно я это понял. Функция создания работала непрерывно. А щас я ток 1 раз вызываю.

[Crystal]

Щас делаю пробную версию смены локаций.
Подскажите как скай бокс удалить? FreeEntity не удаляет нифига!

[IGR]

если он один для обоих локаций, то ненадо его удалять !!

[Crystal]

Он для одной локации, в новой новый скай бокс.

[Crystal]

Так как удалить чёртов бокс? ФриЕнтити его не берёт!!!
Щас доделаю тестовую версию смены локаций по моей системе и выложу сюда ехе на скачивание. Там будет виден баг из-за не возможности мною удалить скай бокс от перемещения с локаций туда сюда боксы перепутываются нахрен.

[Damp]

Наверно ты его составлял из трианглов типа m=CreateMesh итд
Если да то удалять надо FreeEntity m
Goto start - это переход на строку .start , посути как начать прогу заново (так выходить из цикла конечно не красиво, но если локаций меньше... 10000-100000 штук то стак оверфлоу не выскочит)
И всетаки не создавай мир в цикле, чтоб небыло даж намека на ошибку.

[Crystal]

Гы во я гоню
всё удаляется
просто в глобал забыл прописать боксы )

ещё 5 мин и демка закончена )

[IGR]

не удаляй !!
перемести его и поменяй брашы т.е. текстуры которые на него натянуты !! и будет тебе новый скай-бокс !!

[Crystal]

Хе. А если размеры второго бокса должны быть меньше первого.
Уж проще удалить всё к чёртовой матери и создать новое.

Так через 40% загрузки выложу свою демку

[IGR]

scaleentity старыйбокс, 0.1,0.1,0.1 и получиш размеры нового !!
не удаляй, поскольку скайбокс это не цельный entity, ты его командой freeentity не удалиш, а удалять каждий триангл это хуже чем поменять размер бокса !!

[Crystal]

Короче вот ссылка на скачивание:
http://ifolder.ru/3478416
3 с чемто метра (медиа весомая)

Вопщем запустите файл вылезет чёрный экран с разрешением 1024-768
Почему чёрный? Дык ведь ни мира ни вас нет! Его надо сотварить!
Тварим нажав кнопку Q (ток я вас прошу ради бога не жмите её второй раз. иначе вылезет параллельный мир с вашим клоном)

Далее видем корабль и планету. Летим к планете.
Ах да как лететь? Тыкая клавишу W увеличиваем скорость тыкая S понижаем. A D крен корабля. Стрелки вниз и вверх это лететь вверх и вниз. Стрелки влево вправо лететь влево вправо. Ещё рулить мышкой можно но тут кому как нравится.
Вопщем летим на планету и залетаем в неё. Если надо вернуться в космос летим в небо.
Вопщем помоему получилась неплохая система смены локаций по моему методу.
Тестируйте )

[Crystal]

Сообщение от IGR

scaleentity старыйбокс, 0.1,0.1,0.1 и получиш размеры нового !!
не удаляй, поскольку скайбокс это не цельный entity, ты его командой freeentity не удалиш, а удалять каждий триангл это хуже чем поменять размер бокса !!

Да уже испытал. удаляется он фриентити.