Graphics3D 800,600,16
SetBuffer BackBuffer()
AppTitle "Tests"



Global ablauf = MilliSecs()
Global sphere

Const cube11=1
Const sphere11=2






Function springen ()

 If ablauf <= MilliSecs() - 500 Then
MoveEntity sphere, 0, 30, 0
      ablauf = MilliSecs()
 
   EndIf
End Function





While Not KeyHit(1)






Collisions sphere11,cube11,2,3
Collisions sphere11,cube22,2,3



cube = CreateCube()
RotateEntity cube, 0, 0, 0
PositionEntity cube, 20, 2, 5
ScaleEntity cube, 100,10,100
EntityType cube,cube11



cube = CreateCube()
RotateEntity cube, 0, 0, 90
PositionEntity cube, 20, 2, 5
ScaleEntity cube, 100,10,100
EntityType cube,cube11




cube = CreateCube()
RotateEntity cube, 0, 0, 0
PositionEntity cube, 40, 20, -25
ScaleEntity cube, 10,10,10
EntityType cube,cube11


cube = CreateCube()
RotateEntity cube, 0, 0, 0
PositionEntity cube, 40, 40, 5
ScaleEntity cube, 10,10,10
EntityType cube,cube11


cube = CreateCube()
RotateEntity cube, 0, 0, 0
PositionEntity cube, 40, 60, 15
ScaleEntity cube, 10,10,10
EntityType cube,cube11

cube = CreateCube()
RotateEntity cube, 0, 0, 0
PositionEntity cube, 40, 80, 35
ScaleEntity cube, 10,10,10
EntityType cube,cube11


sphere = CreateSphere()
PositionEntity sphere, 50,50, 2
ScaleEntity sphere, 4,4,4
EntityType sphere,sphere11
EntityColor sphere ,11,11,51







camera = CreateCamera(sphere)
PositionEntity camera, 0, 40, -50
TurnEntity camera,30,0,0


light2 = CreateLight()
LightColor light2, 256,0,0
RotateEntity light2, 40, 0, 0



light1 = CreateLight()
LightColor light1, 0,256,0
RotateEntity light1, 0, 40, 0

light = CreateLight()
LightColor light, 256,0,256
RotateEntity light, 10, 0, 0





While(1)

MoveEntity sphere, 0, -2, 0


   If KeyHit(64) Then wire=1-wire ;gittergrafik
   WireFrame wire

If KeyHit(59) = 1 Then PositionEntity camera, 0, 1, -10 ;first person sicht
If KeyDown(59) = 1 Then RotateEntity camera, 0, 0, 0 ;first person sicht

If KeyHit(60) = 1 Then PositionEntity camera, 0, 40, -50
If KeyDown(60) = 1 Then RotateEntity camera, 30, 0, 0 ;2te sicht


If KeyHit(61) = 1 Then PositionEntity camera, 0, 20, 50
    If KeyDown(61) = 1 Then RotateEntity camera, 180, 0, 180 ; nach hinten guck sicht

If KeyHit(62) = 1 Then PositionEntity camera, 0, 80, 0
    If KeyDown(62) = 1 Then RotateEntity camera, 90, 0, 0 ; oben 2d

;If KeyHit(63) = 1 Then PositionEntity camera, 0, 700, 0
    ;If KeyDown(63) = 1 Then RotateEntity camera, 90, 0, 0 ;


   If KeyDown(32) = 1 Then TurnEntity camera, 0, -3, 0
   If KeyDown(30) = 1 Then TurnEntity camera, 0, 3, 0
   If KeyDown(31) = 1 Then MoveEntity camera, 0, 0, -0.15
   If KeyDown(17) = 1 Then MoveEntity camera, 0, 0, 0.15



;If KeyHit(57) = 1 Then PositionEntity sphere,50,500, 2

If KeyDown(29) = 1 Then MoveEntity sphere, 0, 1, 1.065



If KeyDown(57) = 1 Then springen



  If KeyDown(205) = 1 Then TurnEntity sphere, 0, -3, 0
   If KeyDown(203) = 1 Then TurnEntity sphere, 0, 3, 0
   If KeyDown(208) = 1 Then MoveEntity sphere, 0, 0, -2.045
   If KeyDown(200) = 1 Then MoveEntity sphere, 0, 0, 3.065



 




  UpdateWorld()





RenderWorld
Flip
Wend


Wend


End