Graphics 320,280,16,2
SetBuffer BackBuffer()

zed = LoadAnimImage ("gfx/zed.png",5,10,0,2) ;Zed ist halt das Rechteck
MaskImage zed,0,0,0
bomb = LoadAnimImage ("gfx/bomb.png",5,10,0,2) ;Bomb wird wohl klar sein

frame = 0
points = 0 ;Jo punkte sind auch klar
Leben = 3
x = 150
Repeat
Cls

Abfragen()

;Bombe fallen lassen
If KeyHit(157) And dropped=False
  dropped=True
  bombx=x
  bomby=10
EndIf

If dropped
  If bomby>280 dropped=False
  bomby=bomby+3
  DrawImage bomb,bombx,bomby,frame
  ; Evtl. noch Kollisionsprüfung etc.
EndIf

;Zed bzw. Spieler zeichnen
DrawImage zed,x,0,frame

;HUD anzeigen
Text 0,265,"Du hast " +points+ " Punkte"
Text 260,265,points+ " Leben"
Text 0,250,"Y-Achse " +bomby
Text 0,235,"X-Achse " +bombx

Delay 10
Flip
Until KeyHit(1)



Function Abfragen()

If KeyHit(2) Then frame = 0 ;Waffe 1
If KeyHit(3) Then frame = 1   ;Waffe 2
If KeyDown(203) Then x = x - 1   ;Links bewegen
If KeyDown(205) Then x = x + 1   ;Rechts bewegen

End Function