hedgewars/uGearsHedgehog.pas
changeset 13619 525686876f98
parent 13617 a6abc2c1fc1a
child 13642 3d14950641a4
equal deleted inserted replaced
13618:edffc9b7ad58 13619:525686876f98
   616     if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
   616     if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
   617     if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
   617     if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
   618         begin
   618         begin
   619         Inc(MultiShootAttacks);
   619         Inc(MultiShootAttacks);
   620 
   620 
   621         if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then
   621         if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) and ((GameFlags and gfMultiWeapon) = 0) then
   622             begin
   622             begin
   623             s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1));
   623             s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1));
   624             AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
   624             AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
   625             end;
   625             end;
   626 
   626