--- 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;