1053         while t >= 0 do

  1053         while t >= 0 do

  1054           begin

  1054           begin

  1055           inc(i);

  1055           inc(i);

  1056           dec(t, Ammoz[i].Probability)

  1056           dec(t, Ammoz[i].Probability)

  1057           end;

  1057           end;

  1058         FollowGear^.Pos:= posCaseAmmo;

  1059         FollowGear^.Pos:= posCaseAmmo;

  1059         FollowGear^.State:= Longword(i)

  1060         FollowGear^.State:= Longword(i)

  1060         end;

  1061         end;

  1061      end;

  1062      end;

  1062 FindPlace(FollowGear, true, 0, 2048)

  1063 FindPlace(FollowGear, true, 0, 2048)