Graphics3D 1024,768,32,1
SetBuffer BackBuffer()



light=CreateLight()
TurnEntity light,45,45,0
PositionEntity light,0,10000,0



CamPivo=CreatePivot(); Pivot für die Gravitation

cam1=CreateCamera(CamPivo)
CameraFogMode cam1,1
CameraRange cam1,1,26000
CameraFogRange cam1,10000,25000
CameraFogColor cam1,100,150,255
CameraClsColor cam1,100,150,255
RotateEntity cam1,0,0,0
PositionEntity cam1,0,10,-100
EntityRadius cam1,50
EntityType cam1,1
MoveEntity cam1,17500,1400,17500
CameraProjMode cam1,1


cube_cam=CreateCamera()
HideEntity cube_cam
CameraProjMode cube_cam,0
CameraRange cube_cam,1,26000


Isle=LoadTerrain ("IsleTerrain.bmp")
ScaleEntity Isle,100,2500,100
TerrainDetail Isle,5000,False
IsleTexture=LoadTexture ("TerrainTex1.bmp")
EntityTexture Isle,IsleTexture
EntityFX Isle,16
ScaleTexture IsleTexture,500,500
EntityType Isle,2


water=LoadMesh("water.3ds")
PositionEntity water,30000,800,250000
ScaleEntity water,2000,1,2000
EntityAlpha water,1
EntityFX water,16



Himmel=CreateSphere(20)
ScaleEntity Himmel,70000,70000,8000
RotateEntity Himmel,90,0,0
EntityFX Himmel,16
HT=LoadTexture("Wolken1.bmp")
EntityTexture Himmel,HT
ScaleTexture HT,0.1,0.1



tex=CreateTexture(256,256,1+128+256); erstellen der Cubemode Texture

EntityTexture water,tex; legen der Cubemode-Textur auf das Wasser

cube_mode=1; Spiegelungsverhalten




Collisions (1,2,2,3)
Collisions (2,1,2,3)



While Not KeyHit(1)



RotateTexture HT,MilliSecs()*0.00005


MoveEntity CamPivo,0,0,0; Pivot wird durch Gravitation heruntergezogen und die Kamera dadurch mit -> damit Grav. nicht an Richtung der Kamera gebunden ist



      ; >>Kamera Kontrolle<<
   
      ; Maussteuerung
   
      RotateEntity cam1,EntityPitch(cam1)+MouseYSpeed(),EntityYaw(cam1)-MouseXSpeed(),0
      MoveMouse 512,384


      ; Bewegt die Kamera mit den Kursortasten Vorwärts, Rückwärts, etc.
   
      If KeyDown(200)=True Then MoveEntity cam1,0,0,10.2
      If KeyDown(208)=True Then MoveEntity cam1,0,0,-10.2
      If KeyDown(205)=True Then MoveEntity cam1,10.2,0,0
      If KeyDown(203)=True Then MoveEntity cam1,-10.2,0,0
   
      ; Wenn M gedrückt wird ändert sich SetCubeMode um +1
         If KeyHit(50)
         cube_mode=cube_mode+1
         If cube_mode=4 Then cube_mode=1
         SetCubeMode tex,cube_mode
      EndIf


   HideEntity cam1

   UpdateCubemap(tex,cube_cam,water)

   ShowEntity cam1



UpdateWorld
RenderWorld

Flip
Wend





;Die Function hab ich aus der Hilfe für SetCubeFace kopiert

Function UpdateCubemap(tex,camera,entity)

   tex_sz=TextureWidth(tex)

   ; Show the camera we have specifically created for updating the cubemap
   ShowEntity camera
   
   ; Hide entity that will have cubemap applied to it. This is so we can get cubemap from its position, without it blocking the view
   HideEntity entity

   ; Position camera where the entity is - this is where we will be rendering views from for cubemap
   PositionEntity camera,EntityX#(entity),EntityY#(entity),EntityZ#(entity)

   CameraClsMode camera,False,True
   
   ; Set the camera's viewport so it is the same size as our texture - so we can fit entire screen contents into texture
   CameraViewport camera,0,0,tex_sz,tex_sz

   ; Update cubemap

   ; do left view   
   SetCubeFace tex,0
   RotateEntity camera,0,90,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; do forward view
   SetCubeFace tex,1
   RotateEntity camera,0,0,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; do right view   
   SetCubeFace tex,2
   RotateEntity camera,0,-90,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; do backward view
   SetCubeFace tex,3
   RotateEntity camera,0,180,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; do up view
   SetCubeFace tex,4
   RotateEntity camera,-90,0,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; do down view
   SetCubeFace tex,5
   RotateEntity camera,90,0,0
   RenderWorld
   CopyRect 0,0,tex_sz,tex_sz,0,0,BackBuffer(),TextureBuffer(tex)
   
   ; Show entity again
   ShowEntity entity
   
   ; Hide the cubemap camera
   HideEntity camera
   
   
   
End Function



ClearWorld
End