Type gegner
        Field x
        Field y
        Field Seite
End Type

Function Move()
   For gner.gegner = Each gegner
      Select gner\seite
         Case 1
            gner\x = gner\x + 3
            gner\y = gner\y + 0
         Case 2
            gner\x = gner\x - 3
            gner\y = gner\y + 0
      End Select     
   Next
End Function
 

score = 0

Const screen_w = 800
Const screen_h = 600

Type enemy
   Field x  ; x-position
   Field y  ; y-position
   Field xs ; x-geschw.
   Field ys ; y-geschw.
End Type

Local a.enemy

Graphics screen_w,screen_h,32,2

SetBuffer BackBuffer()

HidePointer()

While Not KeyHit(1)

   mx = MouseX()
   my = MouseY()
   mh = MouseHit(1)

   If Rand(1,50) = 1 Then
      a.enemy = New enemy
      If Rand(0,1) = 0 Then
         a\x = 0
         a\xs = Rand(1,2)
      Else                 
         a\x = screen_w
         a\xs = Rand(-2,-1)
      EndIf
      a\y = Rand(screen_h)
      a\ys = 0
   EndIf

   Cls

   For a.enemy = Each enemy
      a\x = a\x + a\xs
      draw_enemy(a\x,a\y)
      If a\x < 0 Or a\x > screen_w Then
         Delete a
      ElseIf mx >= a\x-15 And mx <= a\x+15 And my >= a\y-15 And my <= a\y+15 And mh Then
         Delete a
         score = score + 1
      EndIf
   Next

   draw_crosshairs(mx,my)
   
   Text 10,10,"Score = "+score

   Flip

Wend

Function draw_crosshairs(x,y)
   Color(255,0,0)
   Line x-5,y,x+5,y
   Line x,y-5,x,y+5
End Function

Function draw_enemy(x,y)
   Color(0,255,0)
   Rect x-15,y-15,31,31
End Function