Graphics 640,480.0.2
sebuffer backbuffer()
schuss=Loadimage("schuss.bmp")

repeat
Drawimage schuss,100,100
Drawimage schuss,0,100
Drawimage schuss,0,50
Drawimage schuss,300,200
flip
until keyhit(1)

screenbreite = 640
Graphics screenbreite,480
SetBuffer BackBuffer()


bullet = LoadImage("ammo.png")


Dim bulletX(10)
Dim bulletY(10)


Repeat
Cls
Text 100,100,Str(schuss)

If KeyHit(57)
schuss = schuss + 1
If schuss >=10
schuss =0
EndIf
EndIf 




If schuss > 0

For i = 0 To schuss
If bulletx(i) < screenbreite + 5 And bulletx(i) >= 0
bulletx(i) = bulletx(i) + 5
Else
bulletx(i) =-8
EndIf
Next
 
 
For i = 0 To schuss
DrawImage bullet , bulletx(i),bullety(i)
Next

EndIf

Flip
Until KeyDown(1)

Dim bulletX(10)
Dim bulletY(10)

Graphics 640,480,0,1
SetBuffer BackBuffer()


Type Schuss                                    ;ein Type-Feld für den Schuss erstellen
   field x                                           ;x-Kordinate des Schusses
   field y                                           ;y-Kordinate des Schusses
end Type

While not(keyHit(1))
   if KeyHit(57) then                                ;Wenn Leertaste gedrückt ...
      s.schuss = new Schuss                            ;Neuer schuss erstellen
      s\x=50                                 ;X und Y Kordinate von diesem schuss auf 50 stellen
      s\y=50
   end if
   For s.schuss = each schuss                              ;Alle schüsse durchgehen
      s\x = s\x+1                                       ;Die x Kordinate des Schusses erhöhen
      Oval s\x,s\y,5,5,1                               ;Schuss zeichnen
      if s\x > 640 then Delete s.schuss   ;Wenn der Schuss auserhalb des Bildschirms
                                                         ; ist können wir ihn löschen
   next
   flip
wend
end

dim schuss(x,y)

for I = 1 to höchst_anzahl     

;wie viele schüsse nachher der user höchstens schießen darf/kann.
;höchst_anzahl kannste auch so verändern, das du verschiedene modis hast,
;wie zb. maschinengewehr oder schrotflinte oder was weiß ich :P

if schuss = true then
 schuss(x,y) = schuss(x+1,y)
 drawimage schuss_pic, schuss(x,y), schuss(x,y)
endif
delay 300 ; ich weiß das mich jetzt alle lünchen werden, aber ich weiß zurzeit keine andere lösung...(vielleicht mit wait?)
;nimm auf gar keinen fall dieses delay mit in dein programm sondern ne andere warte funktion
;nur mit fällt keine ein im Moment.
;Dieses delay hält dein ganzes programm an, was ja nicht sinnvoll ist,
;da ja das raumschiff auch bewegt werden soll und das durch das delay ruckeln wird
;soll das raumschiff schneller schießen, musst du auch die zeit ändern, da ja sonst das ganze nichts bringt.
;mit dem +1 kannste noch ein bischen rumexperimentieren genauso, wie mit dem delay...
;das soll nur ein code beispiel sein und keine komplett lösung...
next

dim BulletX(200)
bla,bla,bla