hedgewars/uVisualGearsHandlers.pas
changeset 11827 4600dcb9db4f
parent 11744 eee922f69d1b
child 11873 60c8bb8bc1d7
--- a/hedgewars/uVisualGearsHandlers.pas	Sun May 15 13:18:34 2016 +0200
+++ b/hedgewars/uVisualGearsHandlers.pas	Sun May 15 14:29:37 2016 +0300
@@ -75,7 +75,7 @@
 procedure initModule;
 
 implementation
-uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld;
+uses uCollisions, uVariables, Math, uConsts, uVisualGearsList, uFloat, uSound, uRenderUtils, uWorld, uUtils;
 
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
 var sign: real;
@@ -697,9 +697,8 @@
 procedure doStepHealthTag(Gear: PVisualGear; Steps: Longword);
 var s: shortstring;
 begin
-s:= '';
+s:= IntToStr(Gear^.State);
 
-str(Gear^.State, s);
 if Gear^.Hedgehog <> nil then
     Gear^.Tex:= RenderStringTex(ansistring(s), Gear^.Hedgehog^.Team^.Clan^.Color, fnt16)
 else