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

Global Player = CreatePivot()
EntityType player,1

Global camerapivot = CreatePivot()
camera = CreateCamera(camerapivot)
EntityColor CreateCube(Player),255,0,0
EntityType camerapivot,1

PositionEntity camerapivot,-100,0,-100
PositionEntity Player,-100,0,-100


Global licht = CreateLight(2,player)
PositionEntity licht,0,3,0
LightRange licht,3
world = CreatePlane(16)
EntityType world,2
EntityColor world,0,255,0


MoveEntity(camera, 0, 3, -3)
Global Mover = CreateCone()
Global TypeIndex = 1



SeedRnd 2141 ; damit die türme immer gleich stehen

;häuser spam
For i = 0 To 2000
bla = CreateCube()
ScaleEntity bla,20,100,20
EntityType bla ,2
PositionEntity bla,Rand(0,2000),Rand(-40,50),Rand(0,2000)
Next

Collisions 1,2,2,3 ;1 zu 2, kugel-mesh,sliden

; steuerung
Dim CTL(12,1) ; array mit den aktionen (array ID = aktionsnummer, inhalt = scancode)
CTL (0,0) = 1          
CTL (1,0) = 203    ;pfeiltasten   
CTL (2,0) = 205       
CTL (3,0) = 200      
CTL (4,0) = 208      
CTL (5,0) = 57      ; Aktion   
CTL (6,0) = 17      ;W
CTL (7,0) = 31      ;A
CTL (8,0) = 28   ; TEST RESET AIMER
CTL (9,0) = 56   ; alt, objekt namen anzeigen
CTL (10,0) = 14      ;fahrstuh rulter test
CTL (11,0) = 30      ;s
CTL (12,0) = 32      ;d

For i = 0 To 10
CTL (i,1) = MilliSecs()
Next

Dim mCTL(3)
mCTL(0) = 1 ;aktion
mCTL(1) = 5
mCTL(2) = 5
mCTL(3) = 5

Function GetCTL(id)
; erstmal checken ob vllt das ganze schon klar geht via mouse:
; steuerungspimp, übergeben wird ein INT, jedem int ist eine funktion zugewiesen,
; jeder funktion wiederum verschiedene tasten oder später auch gamepad dinge.
If KeyDown(CTL(id,0)) Then
CTL(id,1) = MilliSecs()

Return(True)
EndIf

End Function




TurnEntity (player,0,-(MouseXSpeed()/3.0),0)

;AlignToVector camera, EntityX(player), EntityY(player), EntityZ(player), 1,0.001
;RotateEntity (camera,Float(((EntityPitch(camera) + 0.0) + (MouseYSpeed()/5.0))),Float(((EntityYaw(player) + 0.0) - (MouseXSpeed()/3.0))),0)
TurnEntity (camera,(MouseYSpeed()/5.0),(MouseXSpeed()/3.0),0)



While Not KeyHit(1)
   
   If GetCTL(6) Then MoveEntity(player,0,0,0.2)
   If GetCTL(7) Then MoveEntity(player,0,0,-0.2)
   If GetCTL(11) Then TurnEntity(player,0,+0.8,0)
   If GetCTL(12) Then TurnEntity(player,0,-0.8,0)
   
   ; fallen
   ;MoveEntity Player,0,-0.2,0      
   ;TurnEntity (player,0,-(MouseXSpeed()/3.0),0)

   ;TurnEntity (camera,(MouseYSpeed()/5.0),(MouseXSpeed()/3.0),0)
   
   speedfac# = EntityDistance#(camerapivot,player) / 50.0 ; geschwindichkeit relativ zur entfernung
   
   
   TurnEntity (camerapivot,0,blickrichtung#(camerapivot,player,2),blickrichtung#(camerapivot,player,3))
   
   ;TurnEntity (camera,(MouseYSpeed()/5.0),(MouseXSpeed()/5.0),0)   
   ;TurnEntity (camera,(MouseYSpeed()/5.0),0,(MouseXSpeed()/3.0))
   TurnEntity (camera,(MouseYSpeed()/5.0),0,0)
   MoveEntity(camerapivot,0,0 ,speedfac#)
   
   UpdateWorld()
   RenderWorld()   
   Flip()

Wend




Function blickrichtung#(source_pivot,target_pivot,dir)
; dir = winkel = itch#, yaw#, roll#, 1 ,2 ,3
 Local temp = CreatePivot()

 PositionEntity temp,EntityX(source_pivot),EntityY(source_pivot),EntityZ(source_pivot)

 PointEntity temp,target_pivot

Local s#=0
Local t#=0
EntityPitch(source_pivot)

Select dir
Case 1
 s# = EntityPitch(source_pivot)
 t# = EntityPitch(temp)         
Case 2
 s# = EntityYaw(source_pivot)
  t# = EntityYaw(temp)         
Case 3
  s# = EntityRoll(source_pivot)
  t# = EntityRoll(temp)         
End Select
 ; 1 ... 180 Left and -1 ... -180 = Right

 FreeEntity temp

 Local wd# =((s - t) Mod 360 + 540) Mod 360 - 180

 If Int(wd)=0 Then
  Return 0.0
 EndIf
     
 Return -4.0*(wd/10.0)

End Function