Graphics 1024,768,16, 2

SetBuffer BackBuffer()

timer=CreateTimer (60)

Type foe
   Field x
   Field y
   Field dead
   Field speed
End Type

Type shot
   Field x
   Field y
   Field winkel
   Field dead
   Field drag#
End Type

Global counter_foes
Global player_Lastschuss

;background = LoadImage ("gfx\background.bmp")
;...............................................................Mainloop..................................................................................................

Repeat
   ClsColor 255,255,255
   Cls
   ;DrawImage background,0,0
   Color 0,255,0
   Rect 0, 494, 1024, 10
   Color 20,20,20
   Rect 140, 400, 10, 94
   schuss ()
   foe ()
   
   WaitTimer timer
   VWait
   Flip 0
Forever


Function foe ()
   If counter_foes<1
      counter_foes=counter_foes+1
      f.foe=New foe   
      f\x=1200
      f\y=474
      f\dead=0
      f\speed=4
      f\dead=0
   EndIf
   
   For f.foe = Each foe
      f\x=f\x-2
      Color 255,0,0
      Oval f\x, f\y, 20,20,1   
      If f\x<150 Then f\dead=1
      If f\dead=1 Then
         Delete f.foe
            counter_foes=counter_foes-1
      EndIf
   Next
End Function


Function schuss ()
   If MouseDown (1) And Player_Lastschuss<MilliSecs() -500 Then
   
      Player_Lastschuss=MilliSecs()
      mx = MouseX ()
      my = MouseY ()
      s.shot = New shot
      s\x = 140
      s\y = 380
      s\drag#=0
      s\winkel = (ATan2 (s\y-my,s\x-mx)+270)Mod 360
      s\dead=0
      Player_Lastschuss=MilliSecs()
   End If
   
   For s.shot = Each shot
      s\y = s\y - Cos(s\winkel)*15
      s\x = s\x + Sin (s\winkel)*15
      s\y = s\y + s\drag#
      s\drag# = s\drag# + 0.2
      
      Color 0,0,0
      Rect s\x, s\y, 10,5,1
      
      If (s\x> 1024) Then s\dead=1
      If (s\y> 494) Then s\dead=1
         If s\dead=1 Then
            Delete s.shot
         EndIf
         
   Next
End Function

s\t1# = s\t1# + .1
s\x# = start_x + speed# * s\t1 * Cos(s\winkel#)
s\y# = start_y - (-g#/2) * s\t1^2 + speed# * s\t1 * Sin(s\winkel#)

If (shot_counter >= 1) Then
     crash_shot=ImagesCollide (unit, f\x, f\y, 0, arrow (s\winkel), s\x, s\y, 0)
EndIf

Function foe ()
   If counter_foes<1
      counter_foes=counter_foes+1
      f.foe=New foe   
      f\x=1200
      f\y=464
      f\dead=0
      f\speed=4
      f\dead=0
   EndIf
   
   For f.foe = Each foe
      f\x=f\x-2
      DrawImage unit, f\x, f\y   

      If f\x<150 Then f\dead=1
      If (shot_counter >= 1) Then
         crash_shot=ImagesCollide (unit, f\x, f\y, 0, arrow (s\winkel), s\x, s\y, 0)
      EndIf
                If crash_shot True Then f\dead=1

      If f\dead=1 Then
         Delete f.foe
            counter_foes=counter_foes-1
      EndIf
   Next
End Function