hedgewars/uGearsHedgehog.pas
changeset 8631 796ed875aa95
parent 8616 c4536e98c712
child 8632 b5ed76d2a1f9
equal deleted inserted replaced
8630:91ad5fe4f1d5 8631:796ed875aa95
    63 
    63 
    64     if (MultiShootAttacks > 0) then
    64     if (MultiShootAttacks > 0) then
    65         begin
    65         begin
    66         if (CurAmmoType = amSniperRifle) and ((GameFlags and gfArtillery) = 0) then
    66         if (CurAmmoType = amSniperRifle) and ((GameFlags and gfArtillery) = 0) then
    67             cArtillery := false;
    67             cArtillery := false;
    68         OnUsedAmmo(HHGear^.Hedgehog^)
    68         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0 then
       
    69             begin
       
    70             MultiShootAttacks:= Ammoz[CurAmmoType].Ammo.NumPerTurn;
       
    71             AfterAttack
       
    72             end
       
    73         else OnUsedAmmo(HHGear^.Hedgehog^)
    69         end;
    74         end;
    70 
    75 
    71     MultiShootAttacks:= 0;
    76     MultiShootAttacks:= 0;
    72     HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));
    77     HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));
    73     
    78