Function DrawSchuss()
If schussdaten = 1 then  ;Daten werden übertragen
schussx = schussx+1
DrawImage kugel,schussx,schussy ; <><<<<<<<<<<hier wurde geändert
EndIf
If schussdaten = 2 Then ;Daten werden 
schussx = schussx-1
DrawImage kugel,schussx,schussy
EndIf
End Function

Dim Kugel(50,2)

Function Suche_freien_Schuss()

 For t= 0 To 50 ; alle dimreihen abfragen bis
  If Kugel(t,0)= 0 Then ; nicht genutztes Feld gefunden ;bzw Leere variable
    Kugel(t,0) = 1  ; schuss aktivieren
    Kugel(t,1) = schussx ; positionen übergeben
    Kugel(t,2) =schussy
    Exit ;schleife verlassen da eine gefunden wurde
 End If
Next
End Function

Function DrawSchuss()
 For t= 0 To 50 ; alle dimreihen abfragen
  If Kugel(t,0)= 1 Then ; wenn aktiv dann
    ;jetzt nur nach linkspositionen verschieben
    Kugel(t,1) = Kugel(t,1) -2 ;
    drawimage kugelbild,Kugel(t,1),Kugel(t,2)
 End If
Next
End Function

type type_kugel
  field bild
  field x,y
  field speed
end type
  global kugel.type_kugel

function new_schuss()
  kugel = new type_kugel
    kugel\x   = playerx
    kugel\y   = playery
    kugel\speed = speed              ;- für links/+ für rechts
end function

function update_schuss()
  for schuss = each type_schuss
    schuss\x = schuss\x+schuss\speed
    drawimage deinkugelbild,schuss\x,schuss\y
    if imagescollide(schuss\bild,schuss\x,schuss\y,0,gegner,gegnerx,gegnery,0) then
      gegnerleben = gegnerleben-1
      delete schuss
    end if
  next
end function

Global richtung = 1
Dim Schuss(30,4)
Global Art

Repeat
.... bla bla

If KeyHit(rechts) Then richtung=0 
If KeyHit(links) Then richtung=1
If Hero = dude_m4 Then Art = 0
If Hero = dude_pgun Then Art = 1
If KeyHit(schiessen) Then schuss_starten( Player_pos_x+10, Player_pos_y+25, Art,richtung)
If KeyHit(schiessen) Then schuss_starten( Player_pos_x+10, Player_pos_y+25, Art,richtung)
Schuss_malen()

... bla bla
Until Keyhit(1)

;<---- SCHIESSEN ---->
Function schuss_starten (x_pos,y_pos,Art,richtung)
For t= 0 To 30
If Schuss(t,0)= 0 Then
Schuss(t,0) = 1
Schuss(t,1) = x_pos
Schuss(t,2) =y_pos
Schuss(t,3) = Art
If Schuss(t,4) = 0 Then Schuss(t,4) = 2
If Schuss(t,4) = 1 Then Schuss(t,4) = 3
Exit
End If
Next
End Function



Function Schuss_malen()
For t= 0 To 30
If Schuss(t,0) = 1 Then       
               
If Schuss(t,3) = 0 And Schuss(t,4) = 2 Then  ;Colt rechts
Schuss(t,1) =Schuss(t,1) + 5
If Schuss(t,1) < 50 Then
Schuss(t,0) = 0
EndIf
DrawImage kugel, Schuss(t,1), Schuss(t,2)
EndIf

If Schuss(t,3) = 0 And Schuss(t,4) = 3 Then  ;Colt links
Schuss(t,1) =Schuss(t,1) - 5
If Schuss(t,1) > - 50 Then
Schuss(t,0) = 0
EndIf
DrawImage kugel, Schuss(t,1), Schuss(t,2)
EndIf
EndIf
Next
End Function

Global richtung = 1
Dim Schuss(30,4)
; Global Art ;<<<<<< muß nich global sein denk ich mal,
; für die Function werden keine globalen werte benötigt,
; ausser der Dims und die sind immer Global

Repeat
.... bla bla
; hier keydown abragen nicht keyhit,
;du müstest ja dann die rechte und die schiessentaste gleichzeitig drücken
; das schafft man ja fast nie
If KeyDown(rechts)    Then richtung=2   ; <<<<<<<<<<<<<<<< soll doch 2 sein für rechts
If KeyDown(links)     Then richtung=3   ; <<<<<<<<<<<<<<<< soll doch 3 sein für links
; besser wäre es sowieso wenn du die richtung schon beim abfragen der Bewegung einstellst,
; dann schiesst er auch wenn keine bewegungstaste gedrückt wird in die richtige richtung

If Hero = dude_m4    Then Art = 0 ; ist die Waffe also erst mal 0 für colt
If Hero = dude_pgun  Then Art = 0 ; da du nur diesen einen Typ hast, glaub ich weniigstens
If KeyHit(schiessen) Then schuss_starten( Player_pos_x+10, Player_pos_y+25, Art,richtung)

Schuss_malen()

... bla bla
Until KeyHit(1)


;<---- SCHIESSEN ---->
Function schuss_starten (x_pos,y_pos,Art,richtung)
For t= 0 To 30
If Schuss(t,0)= 0 Then
Schuss(t,0) = 1
Schuss(t,1) = x_pos
Schuss(t,2) = y_pos
Schuss(t,3) = Art
Schuss(t,4) = richtung ;<<<<<< nur den wert übergeben
; rest erledigt die function Schuss_malen()

Exit ; die function wird verlassen
End If
Next
End Function



Function Schuss_malen()
For t= 0 To 30
  If Schuss(t,0) = 1 Then
 
   ; für schuss mit colt
   If Schuss(t,3) = 0 ;scheint immer gegeben zu sein
     DrawImage kugel, Schuss(t,1), Schuss(t,2)
    If Schuss(t,4) = 2 Then  ;Colt rechts
       Schuss(t,1) =Schuss(t,1) + 5
        If Schuss(t,1) > 800 Then 
           Schuss(t,0) = 0 ; abschalten
        EndIf
    EndIf

    If Schuss(t,4) = 3 Then  ;Colt links
       Schuss(t,1) = Schuss(t,1) - 5
        If Schuss(t,1) < 0 Then ; hier falsch gewesen , war größßer 0 deswegen wurde der schuss sofort abgeschaltet
           Schuss(t,0) = 0
        EndIf
    EndIf
   EndIf
 
  End If
Next
End Function