Function schiessen()
ziel = Player_pos_x + 250
For x = player_pos_y To ziel
  If hero = dude_m4 And KeyDown(schiessen) Then
   DrawImage kugel,x,player_pos_y
  end if
next
End Function

 Graphics 800,600,16,2 ;
SetBuffer BackBuffer()
Const ESC = 1, Bildwiederholung = 50
Const Hoch= 200,Runter=208,Links = 203,Rechts=205
Const Links_Alt= 56,Space = 57
frameTimer=CreateTimer(Bildwiederholung)
Dim Schuss(30,3); in 0 aktiv, in 1 x, in 2 y,  in 3 art, in 4 Richtung   kann nach belieben erweitert werden
;Hauptschleife
While Not KeyDown(ESC)
   If KeyDown(Hoch)      Then    Y=Y -2
   If KeyDown(Runter)   Then   Y=Y +2
   If KeyDown(Links)      Then   x= x -2
   If KeyDown(Rechts)   Then   x= x +2
        Rect x,y,20,50,1 ; Super raumschiff Malen

   ; schussabgabe >>>>>>>    schuss_starten(X,Y,Art )
   If KeyHit(Space) Then  schuss_starten(   x+10,   y-25,   0 )
   If KeyHit(Links_Alt) Then  schuss_starten(   x+10,   y-25, 1)
   Schuss_malen() ; alle malen die aktiv sind

   WaitTimer(frameTimer)
   Flip
   Cls
Wend ;Hauptschleife Ende
End

Function  schuss_starten  (x_pos,y_pos,Art= 0)
 For t= 0 To 30
  If Schuss(t,0)= 0 Then ; freien Schuss gefunden ;bzw Leere variable
    Schuss(t,0) = 1  ; schuss aktivieren
    Schuss(t,1) = x_pos ; positionen übergeben
    Schuss(t,2) =y_pos
   Schuss(t,3) = Art ;welche Waffe es ist
    Exit ;schleife verlassen da eine gefunden wurde
 End If
Next
End Function

Function    Schuss_malen() ; alle malen
For t= 0 To 30
  If Schuss(t,0) = 1 Then ; Wenn aktiver Schuss dann malen
   Select Schuss(t,3) ; je nach art der waffe
     Case 0  ; hier evt. standard laser
       Schuss(t,2) =Schuss(t,2) - 5 ;Schuss weiter nach oben
      If  Schuss(t,2) <    - 50 Then  ; -50 <<Je nach Größe des bildes
          Schuss(t,0) = 0 ;Abschalten
      End If
      Rect Schuss(t,1),    Schuss(t,2) ,1,30,1
       ;DrawImage    Laserbild,     Schuss(t,1),    Schuss(t,2)
     Case 1  ; Vieleicht rakete usw.
           Schuss(t,2) =Schuss(t,2) - 3 ;Schuss weiter nach oben
      If  Schuss(t,2) <    - 50 Then  ;Je nach Größe des bildes
          Schuss(t,0) = 0 ;Abschalten
      End If
      Rect Schuss(t,1),    Schuss(t,2) ,3,8,1
       ;DrawImage    Laserbild,     Schuss(t,1),    Schuss(t,2)
     Case 3
     ; Vieleicht ne Mine usw.
     End Select
  End If
Next
End Function

Function schiessen() 

If KeyDown(schiessen) And taste = 2 And hero = dude_m4  Then 
schussx = Player_pos_x + 3
schussy = Player_pos_y + 15
ziel = schussx - 250
For x = schussx To ziel Step -1
If MilliSecs() - warten   > 100 Then
warten = MilliSecs()
DrawImage kugel,x,schussy
EndIf
Next 
EndIf

If KeyDown(schiessen) And taste = 1 And hero = dude_m4 Then 
schussx = Player_pos_x + 5
schussy = Player_pos_y + 15
ziel = schussx + 250
For x = schussx To ziel
If MilliSecs() - warten  > 100 Then
warten = MilliSecs()
DrawImage kugel,x,schussy
EndIf
Next 
EndIf

End Function

;<---- SCHIESSEN ---->
Function Schuss() 
If KeyDown(schiessen) And taste = 1 And hero = dude_m4 Then 
schussx = Player_pos_x + 5  ;schuss start position wird ermittelt
schussy = Player_pos_y + 15
schussdaten = 1
EndIf
If KeyDown(schiessen) And taste = 2 And hero = dude_m4  Then 
schussx = Player_pos_x + 3  ;schuss start position wird ermittelt
schussy = Player_pos_y + 15
schussdaten=2
EndIf
End Function

Function DrawSchuss()
If schussdaten = 1 = 3 And hero = dude_m4  Then  ;Daten werden übertragen
schussx = schussx+1
DrawImage kugel,schussx,schussy
EndIf
If schussdaten = 2 = 3 And hero = dude_m4  Then ;Daten werden 
schussx = schussx-1
DrawImage kugel,schussx,schussy
EndIf
End Function