hedgewars/uGears.pas
changeset 1780 9b26e9f6ee96
parent 1776 dd5648e250e4
child 1781 28f674367d68
equal deleted inserted replaced
1779:9d88af62a3bb 1780:9b26e9f6ee96
  1472         i:= Low(TAmmoType);
  1472         i:= Low(TAmmoType);
  1473         dec(t, Ammoz[i].Probability);
  1473         dec(t, Ammoz[i].Probability);
  1474         while t >= 0 do
  1474         while t >= 0 do
  1475           begin
  1475           begin
  1476           inc(i);
  1476           inc(i);
  1477           while hasBorder and ((i = amAirAttack) or (i = amMineStrike) or (i = amNapalm)) do
       
  1478               inc(i);
       
  1479 
       
  1480           dec(t, Ammoz[i].Probability)
  1477           dec(t, Ammoz[i].Probability)
  1481           end;
  1478           end;
  1482         PlaySound(sndReinforce, false, CurrentTeam^.voicepack);
  1479         PlaySound(sndReinforce, false, CurrentTeam^.voicepack);
  1483         FollowGear^.Pos:= posCaseAmmo;
  1480         FollowGear^.Pos:= posCaseAmmo;
  1484         FollowGear^.State:= Longword(i)
  1481         FollowGear^.State:= Longword(i)