Engine:
authorsmxx
Tue, 04 May 2010 16:31:15 +0000
changeset 3420 c89c2ba31da8
parent 3419 b66a1b597f88
child 3421 7c72f4d556d1
Engine: * Fixed health bar animation
hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Tue May 04 16:30:41 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Tue May 04 16:31:15 2010 +0000
@@ -375,8 +375,8 @@
             with thexchar[i] do
                 begin
                 {$WARNINGS OFF}
-                team^.DrawHealthY:= ny + dy * LongInt(Gear^.Timer div 640);
-                team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * LongInt(Gear^.Timer div cSorterWorkTime);
+                team^.DrawHealthY:= ny + dy * LongInt(Gear^.Timer) div 640;
+                team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * LongInt(Gear^.Timer) div cSorterWorkTime;
                 {$WARNINGS ON}
                 end;