hedgewars/uGearsHedgehog.pas
changeset 11827 4600dcb9db4f
parent 11770 10860d4bca22
child 11852 38e7206a5df4
--- a/hedgewars/uGearsHedgehog.pas	Sun May 15 13:18:34 2016 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Sun May 15 14:29:37 2016 +0300
@@ -732,8 +732,7 @@
                     PlaySound(sndShotgunReload);
                     inc(HH^.Health, Gear^.Health);
                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
-                    str(Gear^.Health, s);
-                    s:= '+' + s;
+                    s:= '+' + IntToStr(Gear^.Health);
                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
                     RenderHealth(HH^.Hedgehog^);
                     RecountTeamHealth(HH^.Hedgehog^.Team);