Graphics 1024,768
SetBuffer BackBuffer()
Text 450,390 ,"loading...."
Flip
hinter              = LoadImage("Grafik/textures/Wasser.bmp")
Karte               = LoadImage("Maps/Crossing.png")
Player              = LoadImage("skins/SpielerO.bmp")
Main                = LoadImage("Grafik/Main/Menü.bmp")
Gebeude1            = LoadImage("Grafik/Buildings/Helikopter.bmp")
Schuss              = LoadImage("Grafik/Weapons/Schuss.bmp")
MaskImage Gebeude1,0,255,0
MaskImage Player,0,255,0
MaskImage Karte ,0,255,0
MaskImage Schuss,0,255,0
Global Modus = 1
Global Leben = 3
Global Energie = 100

Cls
Text 450,390 ,"working....."
Flip

Dim Spieler(359)
TFormFilter 0
 
For Winkel = 0 To 359 Step 1
 Spieler(Winkel) = CopyImage(Player)
 RotateImage Spieler(Winkel), Winkel - 90
MidHandle Spieler(Winkel)
Next

Geschwindigkeit = 1
KarteX = 0
KarteY = 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Hauptschleife
If Modus = 2 Then Repeat
Cls 
I#=I#+0.2
TileBlock hinter,I#,I#
DrawImage Karte,KarteX,KarteY
 If KeyDown(203) Then Winkel = Winkel - 5
 If KeyDown(205) Then Winkel = Winkel + 3
 If Winkel > 359 Then Winkel = 0
 If Winkel < 0   Then Winkel = 359
If KeyDown(200) Then ; Hoch
  KarteX = KarteX + Cos(Winkel) * Geschwindigkeit
  KarteY = KarteY + Sin(Winkel) * Geschwindigkeit
 End If
 If KeyDown(208) Then ; Runter
 KarteX = KarteX - Cos(Winkel)  * Geschwindigkeit
 KarteY = KarteY - Sin(Winkel)  * Geschwindigkeit
 EndIf
DrawImage Spieler(Winkel),450,390
DrawImage Gebeude1,525+KarteX,243+KarteY
Text 40,5 , "Leben: "   + Leben,1,0
Text 55,18 ,"Energie: " + Energie,1,0 
Flip
If KeyHit(1) Then Exit
Until KeyHit(1)
Cls
Text 450,390 , "aborting..."
Flip
End