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


time = MilliSecs()

camera = CreateCamera()
PositionEntity camera, 15, 1, 5

light = CreateLight()
RotateEntity light, 90, 0, 0

terrain = CreateTerrain(32)

grass_tex = LoadTexture("gfx\grass.bmp")
EntityTexture terrain,grass_tex

Global ball = CreateSphere(12) ;                   Eine Kugel erstellen
Global schweinchen = CreateSphere(12)
Global tex = LoadTexture("gfx\kugel.jpg") 
EntityTexture ball,tex PositionEntity ball,3,0.08,3 ;
PositionEntity schweinchen,6,0.03,3 ;
EntityRadius schweinchen,0
EntityColor schweinchen,255,0,0
EntityType ball,1
EntityType schweinchen,2
EntityType camera,3
ScaleEntity ball,0.08,0.08,0.08
ScaleEntity schweinchen,0.03,0.03,0.03
Collisions 1, 2, 1, 1
;Collisions 3, 4, 2, 2

sky=LoadSkyBox( ".\sky",1 )

;Global x#

baum1=LoadMesh("objects/tree1/Tree_free.3DS")
PositionEntity baum1,20,0,10
baum2=LoadMesh("objects/tree1/Tree_free.3DS")
PositionEntity baum2,20,0,20
bank=LoadMesh("objects/bank/bank.3DS")
PositionEntity bank,10,0.8,5
ScaleEntity bank,0.001,0.001,0.001
;brücke=LoadMesh("objects/brücke/Brücke_3ds_3DModell.3DS")
;PositionEntity brücke,15,2.2,15
;ScaleEntity brücke,0.02,0.02,0.01
;EntityType brücke,4


While Not KeyHit(1)
   If KeyDown(205) = 1 Then TurnEntity camera, 0, -1, 0 
   If KeyDown(203) = 1 Then TurnEntity camera, 0, 1, 0
   If KeyDown(208) = 1 Then MoveEntity camera, 0, 0, -0.05
   If KeyDown(200) = 1 Then MoveEntity camera, 0, 0, 0.05
   If KeyDown(57) = 1 Then time = MilliSecs() + 1000
   If MilliSecs() < time Then rollen()
   UpdateWorld
   RenderWorld
   
   col=CountCollisions(ball)
   
For i = 1 To col   
   x# = CollisionX# (ball, i)
   y# = CollisionY# (ball, i)     
Next


   Text 10,10, x#
   Text 10,30, y#
   Flip
Wend
End

Function rollen()
   
      TurnEntity ball,.2,0,0
      MoveEntity ball,0.1,0,0
   
   

End Function

Function LoadSkyBox( file$,filter )
   m=CreateMesh()
   ;front face
   name$=""
   b=LoadBrush( file$+name$+"_Ft.jpg",49)
   s=CreateSurface( m,b )
   AddVertex s,-1,+1,-1,0,0:AddVertex s,+1,+1,-1,1,0
   AddVertex s,+1,-1,-1,1,1:AddVertex s,-1,-1,-1,0,1
   AddTriangle s,0,1,2:AddTriangle s,0,2,3
   FreeBrush b
   ;right face
   b=LoadBrush( file$+name$+"_Lf.jpg",49 )
   s=CreateSurface( m,b )
   AddVertex s,+1,+1,-1,0,0:AddVertex s,+1,+1,+1,1,0
   AddVertex s,+1,-1,+1,1,1:AddVertex s,+1,-1,-1,0,1
   AddTriangle s,0,1,2:AddTriangle s,0,2,3
   FreeBrush b
   ;back face
   b=LoadBrush( file$+name$+"_Bk.jpg",49)
   s=CreateSurface( m,b )
   AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0
   AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1
   AddTriangle s,0,1,2:AddTriangle s,0,2,3
   FreeBrush b
   ;left face
   b=LoadBrush( file$+name$+"_Rt.jpg",49 )
   s=CreateSurface( m,b )
   AddVertex s,-1,+1,+1,0,0:AddVertex s,-1,+1,-1,1,0
   AddVertex s,-1,-1,-1,1,1:AddVertex s,-1,-1,+1,0,1
   AddTriangle s,0,1,2:AddTriangle s,0,2,3
   FreeBrush b
   ;top face
   b=LoadBrush( file$+name$+"_Up.jpg",49 )
   s=CreateSurface( m,b )
   AddVertex s,-1,+1,+1,0,1:AddVertex s,+1,+1,+1,0,0
   AddVertex s,+1,+1,-1,1,0:AddVertex s,-1,+1,-1,1,1
   AddTriangle s,0,1,2:AddTriangle s,0,2,3
   FreeBrush b
   ScaleMesh m,1000,1000,1000
   FlipMesh m
   EntityFX m,filter
   Return m
End Function