Graphics3D 640,480,32,2
SeedRnd MilliSecs()
WireFrame 0

camera=CreateCamera()
RotateEntity camera,0,-45,0
PositionEntity camera,0,1,0

light = CreateLight (1)
RotateEntity light,90,0,0
PositionEntity light,0,10,10

terrain=CreateTerrain(128)

tex=LoadTexture("tex.bmp")
SetBuffer TextureBuffer(tex)

EntityTexture terrain,tex

x# = 5
y# = 5
z# = 15
sphere1= CreateSphere(32)
RotateEntity sphere1,0,-45,0
PositionEntity  sphere1,x#,y#,z#
EntityType sphere1,1
EntityColor sphere1,255,0,0

cube=CreateCube()
PositionEntity cube,30,1,70
EntityType cube,2


cube2=CreateCube()
ScaleEntity cube2,30,50,1
PositionEntity cube2,50,50,50
EntityType cube2,3

xs# = -.0
ys# = 0   
zs# = .1
slow_down_x#=.05
slow_down_y#=.1
slow_down_z#=.05
collision=0

SetBuffer BackBuffer()

While  Not  KeyHit (1)

   ys# = ys# - .005

   If y# < 1 Then
      y# = 1
      ys# = -ys# * .8 - .02
   EndIf   
   
   y# = y# + ys#
   x# = x# + xs#
   z# = z# + zs#
   zs# = zs# * .99
   xs# = xs# * .99
   If zs# < .0001 Then
      zs# = 0
   EndIf
   If xs# < .0001 Then
      xs# = 0
   EndIf
   
   If MouseHit(1) Then
      ys# = .4
      xs# = Rnd(.9,.2)
      zs# = Rnd(0.9,0.1)
   EndIf
   
   If KeyHit(31)Then
   ys#=.0
   xs#=Rnd(.9,.2)
   zs#=Rnd(0.9,0.1)
   EndIf
      
   PositionEntity sphere1,x#,y#,z#
   
   UpdateWorld

     RenderWorld    
 
   Collision=EntityCollided(sphere1,3)

   Text 0,14,EntityCollided(sphere1,3)

   If collision>0 Then
   
      xs=xs*(-1)-slow_down_x
      
      ys=ys*(-1)-slow_down_y
         
      zs=zs*(-1)-slow_down_z
      
      Text 0,0,"KOLLISION!":WaitKey()
         
   EndIf

   Flip
   
   Cls
Wend
End