hedgewars/uGearsHedgehog.pas
changeset 13995 52e20f8f538a
parent 13988 c28a4f76d37d
child 14014 f09276eb0c27
equal deleted inserted replaced
13994:996ef4c5d064 13995:52e20f8f538a
   623     if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
   623     if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
   624     if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
   624     if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
   625         begin
   625         begin
   626         Inc(MultiShootAttacks);
   626         Inc(MultiShootAttacks);
   627 
   627 
   628         if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) and ((GameFlags and gfMultiWeapon) = 0) then
   628         if (Ammoz[a].Ammo.NumPerTurn > 0) and ((GameFlags and gfMultiWeapon) = 0) then
   629             begin
   629             begin
   630             s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1));
   630             s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1));
   631             AddCaption(formatA(trmsg[sidRemaining], s), capcolDefault, capgrpAmmostate);
   631             AddCaption(formatA(trmsg[sidRemaining], s), capcolDefault, capgrpAmmostate);
   632             end;
   632             end;
   633 
   633