hedgewars/uGearsHedgehog.pas
changeset 12298 6383323fdd2c
parent 12291 b4dde7035fe2
child 12302 071a05275798
--- a/hedgewars/uGearsHedgehog.pas	Thu Apr 20 00:04:35 2017 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Thu Apr 20 02:38:45 2017 +0200
@@ -703,7 +703,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure PickUp(HH, Gear: PGear);
-var s: shortstring;
+var s: ansistring;
     i: LongInt;
     vga: PVisualGear;
     ag, gi: PGear;
@@ -755,8 +755,8 @@
                     PlaySound(sndShotgunReload);
                     inc(HH^.Health, Gear^.Health);
                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
-                    s:= '+' + IntToStr(Gear^.Health);
-                    AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
+                    s:= IntToStr(Gear^.Health);
+                    AddCaption(FormatA(trmsg[sidHealthGain], s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
                     RenderHealth(HH^.Hedgehog^);
                     RecountTeamHealth(HH^.Hedgehog^.Team);