Посмотри так пойдёт? Вроди всё работает как надо на Q грузится первая локация, на W вторая локация. Ток чёто медленно грузится почемуто.
;--------------------------------------------------------------------------------------- WORLD:
Graphics3D 1024, 768, 32
SetBuffer BackBuffer()
HidePointer
Global Location=0
Global Camera1
Global Svet
Global Ploskost
Global Zemla
Global Camera2
Global Svet2
Global Ploskost2
Global Zemla2
Function Location1()
Camera1 = CreateCamera()
PositionEntity Camera1,0,20,0
RotateEntity Camera1, 0, 0, 0
CameraRange Camera1,0.01,100000000
Svet = CreateLight()
TurnEntity Svet,30,20,0
Ploskost= CreatePlane()
Zemla=LoadTexture("Data\textures\15820652.jpg")
ScaleTexture Zemla,150,150
EntityTexture Ploskost,Zemla
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
While Not KeyDown(1)
If KeyHit(16) Then Location=1
If Location=1 Then
Location1()
End If
If KeyHit(17) Then
Location=2
End If
If Location=<1>1 Then
FreeEntity Camera1
FreeEntity Svet
FreeEntity Ploskost
FreeEntity Zemla
End If
If Location=<2>2 Then
FreeEntity Camera2
FreeEntity Svet2
FreeEntity Ploskost2
FreeEntity Zemla2
End If
If Location=2 Then
Location2()
End If
UpdateWorld
RenderWorld
Flip
Wend
End