# HG changeset patch
# User smxx
# Date 1272990675 0
# Node ID c89c2ba31da8d2afcee2c0f2ea308894b7eb8b65
# Parent  b66a1b597f8875d63428becdbece405d68242c18
Engine:
* Fixed health bar animation

diff -r b66a1b597f88 -r c89c2ba31da8 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;