hedgewars/uGears.pas
changeset 10506 325f7bb60580
parent 10494 0eb97cf4c78e
child 10510 9329dab04490
--- a/hedgewars/uGears.pas	Sun Nov 16 00:57:05 2014 +0300
+++ b/hedgewars/uGears.pas	Sun Nov 16 17:07:13 2014 +0100
@@ -749,6 +749,8 @@
         HealthCrate:
             begin
             FollowGear^.Pos := posCaseHealth;
+            // health crate is smaller than the other crates
+            FollowGear^.Radius := cCaseHealthRadius;
             FollowGear^.Health := content;
             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);
             end;
@@ -787,6 +789,8 @@
         HealthCrate:
             begin
             FollowGear^.Pos := FollowGear^.Pos + posCaseHealth;
+            // health crate is smaller than the other crates
+            FollowGear^.Radius := cCaseHealthRadius;
             AddCaption(GetEventString(eidNewHealthPack), cWhiteColor, capgrpAmmoInfo);
             end;
         AmmoCrate: