# HG changeset patch
# User nemo
# Date 1328575606 18000
# Node ID b86a50569238b32ab6d82595f8638df086a74471
# Parent  863459db5432c9a9d4b9e50e6d5fe772af8cf628
Fix slider positions

diff -r 863459db5432 -r b86a50569238 hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Mon Feb 06 23:21:04 2012 +0100
+++ b/hedgewars/uWorld.pas	Mon Feb 06 19:46:46 2012 -0500
@@ -1144,8 +1144,8 @@
             for i:= 0 to cMaxHHIndex do
                 if Hedgehogs[i].Gear <> nil then
                     begin
-                    inc(h,round(Hedgehogs[i].Gear^.Health*(TeamHealthBarWidth/TeamHealth)));
-                    if h < TeamHealthBarWidth-1 then DrawTexture(14 + h, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
+                    inc(h,Hedgehogs[i].Gear^.Health);
+                    if h < TeamHealth then DrawTexture(14 + round(h*TeamHealthBarWidth/TeamHealth), cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
                     end;
 
         // draw ai kill counter for gfAISurvival