Фуф понял чё тормозило, и вправду миры клонировало.
Сделал пока тупую простенькую системку а потом переделаю )
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 будут заменены на коллизию. В зависимости в какой локации юзер и с переходом в какую локацию коллизится то, и будет удаляться данная локация и грузиться нужная.
Ток тут получится что все мобы заново создадутся и все валяющиеся предметы, но если их хранить в переменных отдельно в глобале то если убиты или подняты не загрузятся. Вроди норм система локаций получается.
Системка то простая и работать будет замечательно.
Но эт всё моя теория. Мож я и не прав.