hedgewars/uVisualGears.pas
changeset 5574 3d7438991ed8
parent 5570 a1eb7555f439
child 5576 bf30c60786a5
--- a/hedgewars/uVisualGears.pas	Mon Aug 15 20:31:31 2011 +0400
+++ b/hedgewars/uVisualGears.pas	Mon Aug 15 12:47:53 2011 -0400
@@ -280,7 +280,8 @@
                 Frame:= 1
                 end;
   vgtHealthTag: begin
-                gear^.Timer:= 1500;
+                Frame:= 0;
+                Timer:= 1500;
                 //gear^.Z:= 2002;
                 end;
   vgtSmokeTrace,
@@ -479,7 +480,7 @@
             vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
             vgtHealthTag: if Gear^.Tex <> nil then 
                             begin
-                            if Gear^.State = 0 then 
+                            if Gear^.Frame = 0 then 
                                 DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
                             else
                                 begin