hedgewars/uGearsUtils.pas
changeset 10506 325f7bb60580
parent 10494 0eb97cf4c78e
child 10508 1a91c1fcba0d
equal deleted inserted replaced
10505:03894bfb8bf3 10506:325f7bb60580
  1304 if t<h then
  1304 if t<h then
  1305     begin
  1305     begin
  1306     FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);
  1306     FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);
  1307     FollowGear^.Health:= cHealthCaseAmount;
  1307     FollowGear^.Health:= cHealthCaseAmount;
  1308     FollowGear^.Pos:= posCaseHealth;
  1308     FollowGear^.Pos:= posCaseHealth;
       
  1309     // health crate is smaller than the other crates
       
  1310     FollowGear^.Radius := cCaseHealthRadius;
  1309     AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);
  1311     AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);
  1310     end
  1312     end
  1311 else if (t<a+h) then
  1313 else if (t<a+h) then
  1312     begin
  1314     begin
  1313     t:= aTot;
  1315     t:= aTot;