Graphics 640,480;,16,1

Global me = LoadImage("me.bmp")
Global feind = LoadImage("feind.bmp")
Global bullet = LoadImage("bullet.bmp")
Global explosion = LoadAnimImage("explosion.bmp",48,48,0,10)

Global tot = LoadSound("boom.wav")
Global music = PlayMusic("darkworld2.mod")

Global me_x = 320
Global me_y = 400
Global feind_x = 320
Global feind_y = 10
Global feind_speed = 1

SetBuffer BackBuffer()

While Not KeyHit(1)
   
   Cls

   me
   gegner
   anderes
   
   Flip
   
Wend
Function anderes()
   For neu.schuss = Each schuss
      neu\y = neu\y - 5
      If ImagesCollide(feind,feind_x,fend_y,0,bullet,neu\x,neu\y,0) Then
         PlaySound tot
         Delete neu.schuss
         feind_x = Rnd(10,610)
         ex.explosion = New explosion
         ex\x = feind_x
         ex\y = feind_y
         ex\time = MilliSecs()
         ex\nr = 0
      EndIf
      DrawImage bullet,neu\x,neu\y
      If neu\y < 0 Then
         Delete neu.schuss
      EndIf
   Next
   For ex.explosion = Each explosion
      If ex\time + 50 < MilliSecs()
         ex\nr = ex\nr + 1
         DrawImage explosion,ex\x,ex\y,ex\nr
         If ex\nr = 10 Then Delete ex.explosion
      EndIf
   Next
   DrawImage me,me_x,me_y
   DrawImage feind,feind_x,feind_y
End Function

Function gegner()
   feind_x = feind_x + feind_speed
   If feind_x < 10 Or feind_x > 610 Then feind_speed = -feind_speed
End Function

Function me()
   If KeyDown(203) Then
      me_x = me_x - 3
   EndIf
   If KeyDown(205) Then
      me_x = me_x + 3
   EndIf
   If KeyHit(57) Then
      neu.schuss = New schuss
      neu\x = me_x
      neu\y = me_y - 10
   EndIf
   If me_x < 10 Then me_x = 10
   If me_x > 610 Then me_x = 610
End Function

Type explosion
   Field x
   Field y
   Field nr
   Field time
End Type

Type schuss
   Field x
   Field y
End Type