Const screen_x=1280
Const screen_y=1024

Const screen_modus=1            ;1=vollbid,2=fenster
Const screen_farbtiefe=32

Global timer =CreateTimer(30)

Global oben_unten=0
Global rechts_links=0

Graphics3D screen_x,screen_y,screen_farbtiefe,screen_modus
SetBuffer BackBuffer()


skycube=CreateCube()
skytex=LoadTexture("behind.jpg")
ScaleEntity skycube,-500000,-500000,-500000
EntityOrder skycube,1
EntityTexture skycube,skytex
EntityFX skycube,1
ScaleTexture skytex,0.5,0.5
AmbientLight 40,40,40

light= CreateLight(1)
LightColor light,255,255,255
LightRange light, 75

planet=LoadMesh("earth.x")
Global schiff=LoadMesh("test.x")


Global cammera=CreateCamera (schiff)
CameraRange cammera,1,1000000
MoveEntity cammera,0,0,-200


Repeat

UpdateWorld
RenderWorld
Flip 1

bewege_schiff()


WaitTimer timer
Until KeyHit (1)

Function bewege_schiff()
    If KeyDown(200)                             ;Taste Pfeil auf
    oben_unten=oben_unten+1
    Else If KeyDown(208)                        ;Taste Pfeil ab
    oben_unten=oben_unten-1
    Else If KeyDown(205)                        ;Taste rechts
    rechts_links=rechts_links-1
    Else If KeyDown(203)                        ;Taste links
    rechts_links=rechts_links+1
    EndIf
    If KeyDown(44)                              ;Taste y
    vor_zurück=vor_zurück+1
    Else If KeyDown(45)                         ;Taste x
    vor_zurück=vor_zurück-1
    EndIf
   
   If oben_unten>3
   oben_unten=3
   EndIf    
   If rechts_links>3
   rechts_links=3
   EndIf
   If vor_zurück>60
   vor_zurück=60
   EndIf
   If oben_unten<-3
   oben_unten=-3
   EndIf    
   If rechts_links<-3
   rechts_links=-3
   EndIf
   If vor_zurück<-60
   vor_zurück=-60
   EndIf

TurnEntity schiff,oben_unten,rechts_links,0
MoveEntity schiff,0,0,vor_zurück

   End Function

End

Function MoveCruiser()

  CruiserX# = CruiserX# + Cos(CruiserDir) * CruiserSpeed
  CruiserY# = CruiserY# + Sin(CruiserDir) * CruiserSpeed

  ;ein # hinter einer Variable weißt auf eine Kommazahl (Float) hin.

End Function