Graphics3D 640,480
SetBuffer BackBuffer()


;Dinge
Tanne = LoadMesh("Tanne.3ds")
MoveEntity Tanne,500,30,500
RotateEntity Tanne,270,0,0

Baum = LoadSprite("tree.bmp",7)
MoveEntity Baum, 500,30,400
SpriteViewMode Baum,4
HandleSprite Baum,0,0
EntityAutoFade Baum,100,1000
ScaleSprite Baum,20,30

;Terrain/Insel
Terrain = LoadTerrain("T.bmp")
Tex1 = LoadTexture("Tex1.bmp")
Tex2 = LoadTexture("Tex2.bmp")
EntityTexture Terrain, Tex1,0,0
EntityTexture Terrain, Tex2,0,1
ScaleEntity Terrain,10,20,10
ScaleTexture Tex1,50,50
ScaleTexture Tex2,3,3
EntityType Terrain,ter_type


;Der Sand
under = CreatePlane()
Sand = LoadTexture("Sand.bmp")
EntityTexture under, Sand
MoveEntity under,0,1,0

;Licht
light = CreateLight(1)
LightColor light, 255,255,255
MoveEntity light, 640,500,640
AmbientLight 225,225,255


;Wasser
water=CreatePlane()
watertext=LoadTexture ("Wasser.bmp",4)
EntityTexture water,watertext
ScaleTexture watertext,100,100
MoveEntity water,0,10,0
EntityAlpha water,0.6



;Camera Eigenschaften wie Fog
camera = CreateCamera()
MoveEntity camera,500,100,500
CameraRange camera, 1,5000 ;Wichtig!!!!!!!!
fog_mode=1-fog_mode
CameraFogMode camera,fog_mode
CameraFogColor camera,200,200,200
CameraFogRange camera, 100,1000
CameraClsColor camera, 0,128,255

EntityRadius camera,1
EntityType camera,spi_type




Collisions spi_type,ter_type,2,3

While Not KeyHit(1)



;Wasser bewegung
x=1

MoveEntity water, x,0,0

;Kamera bewegung
If KeyDown(200) Then MoveEntity camera, 0,0,5
If KeyDown(208) Then MoveEntity camera, 0,0,-5

If KeyDown(78) Then MoveEntity camera,0,1,0
If KeyDown(74) Then MoveEntity camera,0,-1,0

mXs# = MouseXSpeed()
mYs# = MouseYSpeed()

TurnEntity camera,0,-(mXs#/3),0,True
TurnEntity camera,(mYs#/3),0,0
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

If EntityCollided(camera,ter_type) Then
TranslateEntity(camera,0,0,0)
Else
TranslateEntity(camera,0,-1,0)
EndIf

;Rendern/Updaten/Flippen
UpdateWorld
RenderWorld
Flip
Wend

End