AppTitle "Starcommander 1"
;grafiken
Graphics 1024,768,32,1
SetBuffer=BackBuffer()
TFormFilter 1
AutoMidHandle 1
SeedRnd MilliSecs()

;Globalen
Dim player(360)   ;Spieler malen
For gr=0 To 359   ;Grade berechnen
 player(gr)=LoadImage("gfx\player_ship.bmp")
 RotateImage player(gr),gr
 Cls
 DrawBlock player(gr),400,300
 Flip
Next

;Sterne im Hintergrund malen
Dim star_grafik(3)
For x=1 To 3
 star_grafik(x)=LoadImage("gfx\star"+Str$(x)+".bmp")
Next
;Types
Type player  ;Spieler Raumschiff
 Field x#,y#,grad#
 Field spx#,spy#,maxspeed#,wendigkeit#,beschleunigung#
End Type

Type stern   ;Sterne
 Field x#,y#,tiefe#,nummer
End Type

Global spieler.player=New player ;den Spieler immer updaten
spieler\maxspeed#=5
spieler\beschleunigung#=0.05
spieler\wendigkeit#=2
For z=1 To 20
 stern.stern=New stern
 stern\x=Rand(-500,500)
 stern\y=Rand(-400,400)
 If z<=20 Then stern\tiefe#=Rnd(1,1.2):stern\nummer=1
 If z<17 Then stern\tiefe#=Rnd(0.8,1):stern\nummer=2
 If z<10 Then stern\tiefe#=Rnd(0.5,0.8):stern\nummer=3;
Origin 400,300

Next
;----------------------------------------------------------------------------------------------------
;Hauptschleife
While Not KeyHit(1);solange nicht ESC gedrückt wird
 weltliches();Hier werden Dinge wie Bildschirmlöschen und Sternemalen erledigt.
 steuerung();Hier werden die Eingaben des Spielers überprüft.
 spieler_versetzten()
 spieler_malen()
 Flip
Wend
End

Function weltliches()
 Cls
 Cls
  For stern.stern=Each stern
stern\x#=stern\x#-spieler\spx#*stern\tiefe#
   stern\y#=stern\y#-spieler\spy#*stern\tiefe#
   If stern\x<-500 Then stern\x=Rand(500,600):stern\y=Rand(-400,400)
   If stern\x>500 Then stern\x=Rand(-500,-600):stern\y=Rand(-400,400)
   If stern\y<-400 Then stern\x=Rand(-500,500):stern\y=Rand(400,500)
   If stern\y>400 Then stern\x=Rand(-500,500):stern\y=Rand(-500,-400)
    If stern\x>-420 And stern\x<420 And stern\y>-320 And stern\y<320 Then DrawImage star_grafik(stern\nummer),stern\x#,stern\y#
  Next
End Function

;--------------------------------------------------------------------------------------------------

Function steuerung()
 If KeyDown(203)Then spieler\grad#=spieler\grad-spieler\wendigkeit#
 If KeyDown(205)Then spieler\grad#=spieler\grad+spieler\wendigkeit#
If spieler\grad#>=360 Then spieler\grad#=spieler\grad# Mod 360
If spieler\grad#<0 Then spieler\grad#=360+spieler\grad#

 If KeyDown(200) Then
  If spieler\spx#<Cos(spieler\grad#)*spieler\maxspeed# Then spieler\spx#=spieler\spx#+Abs(Cos(spieler\grad#)*spieler\beschleunigung#)
  If spieler\spx#>Cos(spieler\grad#)*spieler\maxspeed# Then spieler\spx#=spieler\spx#-Abs(Cos(spieler\grad#)*spieler\beschleunigung#)

  If spieler\spy#<Sin(spieler\grad#)*spieler\maxspeed# Then spieler\spy#=spieler\spy#+Abs(Sin(spieler\grad#)*spieler\beschleunigung#)
  If spieler\spy#>Sin(spieler\grad#)*spieler\maxspeed# Then spieler\spy#=spieler\spy#-Abs(Sin(spieler\grad#)*spieler\beschleunigung#)
 End If
End Function

Function spieler_versetzten()
 spieler\x#=spieler\x#+spieler\spx#
 spieler\y#=spieler\y#+spieler\spy#

End Function

Function spieler_malen()
 DrawImage player(Int(spieler\grad#)),0,0

End Function