hedgewars/uWorld.pas
changeset 6647 26e523c8fe88
parent 6645 9ff40cf44827
child 6648 025473a2c420
--- a/hedgewars/uWorld.pas	Tue Feb 07 02:10:15 2012 +0100
+++ b/hedgewars/uWorld.pas	Mon Feb 06 22:59:28 2012 -0500
@@ -1145,7 +1145,7 @@
                 if Hedgehogs[i].Gear <> nil then
                     begin
                     inc(h,Hedgehogs[i].Gear^.Health);
-                    if h < TeamHealth then DrawTexture(14 + round(h*TeamHealthBarWidth/TeamHealth), cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
+                    if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
                     end;
 
         // draw ai kill counter for gfAISurvival