Graphics 640,480,16,2

Global schuss_speed = 60
Global streu_weite# =5
Global gebiets_schaden = 8
Global patronen = 50
Global bx#, by

Type Schuss
 Field x#,y#,speed,streu#
End Type

Global s.schuss

Global box = CreateImage(120,479) : SetBuffer ImageBuffer(box)
ClsColor 255,255,255 : Cls

cursor = CreateImage(11,11) : SetBuffer ImageBuffer(cursor)
Color 255,255,255 : Oval 5,5,4,4,0
Line 5,0,5,10 : Line 0,5,10,5

bx# = 450
SetBuffer BackBuffer()

clscolor 0,0,0
While Not KeyHit(1)
 Cls : mx = MouseX() : my = MouseY()

  If MouseDown(1) And MilliSecs()>=timer
   timer = MilliSecs()+200
   For a=1 To patronen
    create_schuss(mx+Rnd(-10,10),my)
   Next
  End If

  DrawImage cursor,mx-5,my-5
 bx# = bx#-0.09: by = 0
  DrawImage box,bx#,by
  draw_schuss()
 Flip

 Delay 10
Wend

Function create_schuss(x,y)
s = New schuss
s\x = x
s\y = y
s\speed# = Rnd(30,schuss_speed)
s\streu  = Rnd(streu_weite*-1,streu_weite)
End Function

Function draw_schuss()
 imgw = ImageWidth(box)

 For s=Each Schuss
  ox = s\x# : oy = s\y#
  d=1
  s\x# = s\x#+s\speed#
  s\y# = s\y#+s\streu#
 
  If ox>bx And ox<bx+imgw And s\y#<480 And s\y#>=0
   img = ImageBuffer(box)
   sc = gebiets_schaden
   SetBuffer img
    end_x=ox-bx
    For a=0 To end_x+s\speed#
    LockBuffer img
     rgb = ReadPixelFast(a,s\y,img)
    UnlockBuffer img

     If rgb>1
      Color 0,0,0 : Oval a-sc/2,s\y#-sc/2,sc,sc
      d=0 : Delete s
      Exit
     End If
 
    Next
   SetBuffer BackBuffer()
  End If


  If d=1
   Plot s\x,s\y
   If s\x>640 Then Delete s
  End If

 Next
End Function

Function create_splitter(x,y)
 For a=1 To 10
 Next
End Function

box = CreateImage(120,479)
SetBuffer ImageBuffer(box)
Color 255,0,0
Rect 0,0,120,479,1