;;;Upload Grafik für "Player":
   Global Player = LoadAnimImage("...", 56, 58,0 ,5)
   MaskImage Player, 0, 0, 0
   Global Player_XPOS = 300
   Global Player_YPOS = 300
 
   ;;;Upload Grafik für "Schuss":
   Global WPN1_SHOT = LoadImage("...")
   MaskImage WPN1_SHOT, 0, 0, 0
   HandleImage WPN1_SHOT, 0, 10

   ;;;Ein Timer, welcher die Frequenz der Schussrate steuert:
   Global WPN1_SHOT_COUNT

   ;;;Type für Schuss mit X/Y_Position, sowie Geschwindigkeit:
   Type SHOT_1
        Field SHOT_X
        Field SHOT_Y
        Field SHOT_SPD
   End Type

   ;;;Vereinbarung für Schuss
   Global WPN1.SHOT_1

   ;;;Ist der Knopf gedrückt, startet der Timer - hat dieser 5 erreicht, wird er zurückgesetzt und es entsteht ein neuer Schuss:
Function WPN_1_SHOT()
   If KeyDown(2) = 1 WPN1_SHOT_COUNT = WPN1_SHOT_COUNT +1
      If WPN1_SHOT_COUNT >= 5
         WPN1_SHOT_COUNT = 0
         WPN1.SHOT_1 = New SHOT_1
         WPN1\SHOT_X = Player_XPOS+10
         WPN1\SHOT_Y = Player_YPOS
         WPN1\SHOT_SPD = 12
   EndIf

   ;;;Schüsse werden abgefeuert:
   For WPN1.SHOT_1 = Each SHOT_1
         WPN1\SHOT_Y = WPN1\SHOT_Y - WPN1\SHOT_SPD
         DrawImage WPN1_SHOT, WPN1\SHOT_X, WPN1\SHOT_Y

   ;;;Wenn ein Schuss den oberen Bildschirmrand erreicht hat, wird er gelöscht:
      If WPN1\SHOT_Y < 0 Delete WPN1.SHOT_1
   Next
End Function

;;;Die Grafik für Enemy:
Global ENM_PLANE = LoadAnimImage("...", 56, 58, 0, 5)

;;;Der Timer, welcher die Frequenz der Gegner steuert:
Global PLANE_TIMER

;;;Datei "Player", in der sich die Schuss-Funktion des Spielers befindet (siehe oberen Code):
Include "..."

;;;Enemy-Typ mit X/Y-Position, Frame und Lebensenergie:
Type ENEMY
   Field X
   Field Y
   Field FRAME
   Field LIFE
End Type

;;;Vereinbarung für Enemy:
Global PLANE.ENEMY

;;;Erreicht der Timer 300, wird er zurückgesetzt und ein neuer Gegner taucht auf einer Zufalls-X-Position auf:
Function EnemyPlane()

PLANE_TIMER = PLANE_TIMER +10
If PLANE_TIMER > 300
PLANE_TIMER = 0
PLANE.ENEMY = New ENEMY
PLANE\X = Rnd(139, 448)
PLANE\Y = -60
PLANE\FRAME = 2
PLANE\LIFE = 100
EndIf

;;;Gegner fliegen nach unten und werden gezeichnet:
For PLANE.ENEMY = Each ENEMY
PLANE\Y = PLANE\Y + 5
DrawImage ENM_PLANE, PLANE\X, PLANE\Y, PLANE\FRAME
EndIf

;;;Hab hier mal einfach "ImagesOverlap" genommen. Wenn ENEMY und SHOT sich treffen, sollen beide gelöscht werden:
If ImagesOverlap (ENM_PLANE, PLANE\X, PLANE\Y, WPN1_SHOT, WPN1\SHOT_X, WPN1\SHOT_Y)
Delete PLANE.ENEMY
Delete WPN1.SHOT_1
EndIf

Next
End Function