;BSG COLONIAL VIPER
AppTitle "Colonial Viper"

Graphics3D 800,600, 32, 2
SetBuffer BackBuffer()

Local light=CreateLight() ;licht
Local space_tex=LoadTexture("sternentextur.jpg")
Local space=CreateSphere(12)

Global viper=LoadMesh("viper.3ds")
Global camera=CreateCamera(viper)
Global x#=0
Global y#=0
Global z#=50


EntityTexture space, space_tex

FlipMesh space
EntityOrder space,1

ScaleEntity space,100000,100000,100000
PositionEntity viper,x#,y#,z#



Repeat ;MAIN LOOP
;
;
   hoehen_ruder#=0
   drehen#=0
   rollen#=0
   
   If KeyDown(17)=1 Then hoehen_ruder#=-3
   If KeyDown(31)=1 Then hoehen_ruder#=3
   If KeyDown(18)=1 Then rollen#=-4
   If KeyDown(16)=1 Then rollen#=4
   If KeyDown(32)=1 Then drehen#=-2
   If KeyDown(30)=1 Then drehen#=2

   TurnEntity viper, hoehen_ruder#, drehen#, rollen#

   If KeyDown(57)=1 Then MoveEntity viper, x#, y#, 2
   
   PositionEntity space,EntityX(viper),EntityY(viper),EntityZ(viper)

   RenderWorld
   Flip
;
;
Until KeyHit(1)
;mir ist durchaus bewusst dass ich local nicht jedesmal hinschreiben muss -
;trägt für mich jedoch zur übersicht bei

EntityOrder    Mesh,1    ; SKYBOX IMMER IM HINTERGRUND ZEICHNEN
EntityFX       Mesh,1+8  ; KEINE SCHATTIERUNG, KEIN NEBEL