Include "AShadowBBinclude/Ashadow.bb"
Include "AShadowBBinclude/fps.bb"

Graphics3D 1280,1024,32,1

PostProcessInit( 256,256 ) ;GraphicsWidth(), GraphicsHeight()

SoftSelfShading=0
AmbientLight 500,500,500


SetBuffer BackBuffer()

Const CAM_COL=1
Const TER_COL=2

yg#=100

Include "loadskybox.bb"

sky=LoadSkyBox()

cross=LoadImage("tex/cross.png")
hp=LoadImage("tex/100hp.png")

MaskImage hp,255,255,255

MaskImage cross,255,255,255


; KAMERA
camera=CreateCamera()
EntityType camera,CAM_COL
CameraRange camera,5,1000000
CameraFogColor camera,255,255,255
CameraFogRange camera,5,80000
CameraFogMode camera,1
PositionEntity camera,0,3500,0


Glow_CopyTexMethod=1
Ref_Glow_DarkPower=4
Ref_Glow_BlurPower=3
Ref_BlSprAlpha#=.2
CreateGlow camera, 200, 150, .5, .9
Ref_Glow_ON = 0



; DEPTH OF FIELD
CreateDOF (camera, 60, 100, 1, 3, 0.35)
Ref_DOF=1

; WOLKEN
wolkentex=LoadTexture("environ/cloud_2.bmp",3)
ScaleTexture wolkentex,20000,20000
wolken=CreatePlane()
EntityTexture wolken,wolkentex
PositionEntity wolken,0,20000,0
RotateEntity wolken,0,0,180

; TERRAIN
   tex1=LoadTexture("tex/coolgrass2.jpg")
   ScaleTexture tex1, 10, 10
   TextureBlend tex1,2
   tex2=LoadTexture("tex/lmap_256.JPG");
   TextureBlend tex2,2

   terr=ALoadTerrain( "tex/hmap_512.jpg" )
   ScaleEntity terr,100,4000,100
   PositionEntity terr,-12*256,-200,-12*256
   TerrainShading terr,1
   TerrainDetail terr ,3000 ,1
   EntityTexture terr,tex1,0,0
   EntityTexture terr,tex2,0,1
   ScaleTexture tex2,TerrainSize(terr)/1,TerrainSize(terr)/1

   terraincol=ALoadTerrain( "tex/hmap_512.jpg" )
   ScaleEntity terraincol,100,4000,100
   PositionEntity terraincol,-12*256,-100,-12*256
   TerrainShading terraincol,1
   TerrainDetail terraincol,3000 ,1
   EntityAlpha terraincol,0
   EntityType terraincol,TER_COL

; WASSER
; Create Water plane:
WaterState\X=-512
WaterState\Y=-50
WaterState\Z=-512
WaterState\ScaleX = 2512
WaterState\ScaleY = 2512
WaterState\ScaleZ = 2512

WaterState\ReflectSizeW = 256
WaterState\ReflectSizeH = 256

WaterState\WaterColorR = 255
WaterState\WaterColorG = 255
WaterState\WaterColorB = 255


If BUMPENVMAP_SUPPORT
WaterState\BumpTexture = bumptex
WaterState\BumpPower= 0.1
WaterState\Reflective=1
WaterState\BumpReflectOFF=0
WaterState\UnderWaterReflective=1
WaterState\Refractive=1
Else
WaterState\BumpTexture = 0
WaterState\BumpPower= 0
WaterState\Reflective=1
WaterState\UnderWaterReflective=1
WaterState\Refractive=0
EndIf

WaterPlane=ACreateRenderWater (1, WaterState)



While Not KeyHit(1)


;   watertex_x#=watertex_x#+0.001
;   PositionTexture watertex,watertex_x#,0
   
;   watertex2_r#=watertex2_r#+0.01
;   RotateTexture watertex2,watertex2_r#
   

   wolkentex_x#=wolkentex_x#+0.001
   PositionTexture wolkentex,wolkentex_x#,0
   

   If KeyHit(15) Ref_Glow_ON=1-Ref_Glow_ON


    CameraMove# = 0

   Grav = Grav - 1

   If EntityCollided(camera,TER_COL) Then Grav = 0
   TranslateEntity camera,0,Grav,0    
   
   If KeyDown(17)   Then            ; VORWAERTS
      MoveEntity camera,0,0,10
   EndIf

   If KeyDown(31)   Then            ; ZURUECK
      MoveEntity camera,0,0,-10
   EndIf

   TurnEntity camera,MouseYSpeed()/2,0,0 ; MAUSSTEUERUNG
   TurnEntity camera,0,-MouseXSpeed()/2,0,1
   MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

   If KeyDown(30)   Then            ; LINKS
      MoveEntity camera,-10,0,0
   EndIf
   
   If KeyDown(32)   Then            ; RECHTS
      MoveEntity camera,10,0,0
   EndIf
   
   If KeyDown(17) And KeyDown(42) Then ; RENNEN
      MoveEntity camera,0,0,15
   EndIf
   
   If KeyDown(57) Then               ; SPRINGEN
      MoveEntity camera,0,20,0
   EndIf
      
   If KeyDown(29) Then               ; DUCKEN (klappt noch nich)
      MoveEntity camera,0,-10,0
   EndIf


   MoveMouse 320,240

   Collisions CAM_COL,TER_COL,2,2


   UpdateWorld()


   If KeyHit( 18 )=True Then enable=1-enable

   ; Enable/disable antialiasing
   
   
   RenderWorld()

   
   DrawImage cross,GraphicsWidth()/2,GraphicsHeight()/2
   DrawImage hp,30,GraphicsHeight()-84

   Flip

Wend
End

AntiAlias enable

Return SetBuffer_ (buffer)