A bit more convoluted, but more attractive visually
authornemo
Sun, 08 Jul 2012 13:49:41 -0400
changeset 7368 20448801e86a
parent 7366 e5a0856708dc
child 7370 d50b874e7ee8
A bit more convoluted, but more attractive visually
hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Sun Jul 08 12:00:27 2012 -0400
+++ b/hedgewars/uWorld.pas	Sun Jul 08 13:49:41 2012 -0400
@@ -1365,6 +1365,19 @@
             r.w:= TeamHealthBarWidth + 1;
             r.h:= HealthTex^.h - 4;
             DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex);
+            if not hasGone and (TeamHealth > 1) then
+                begin
+                Tint(Clan^.Color shl 8 or $FF);
+                for i:= 0 to cMaxHHIndex do
+                    if Hedgehogs[i].Gear <> nil then
+                        begin
+                        inc(h,Hedgehogs[i].Gear^.Health);
+                        if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
+                        end;
+                if TeamsCount * 20 > Longword(cScreenHeight) div 5 then
+                    Tint($FF,$FF,$FF,$80)
+                else Tint($FF, $FF, $FF, $FF);
+                end;
             end;
         end;
 if smallScreenOffset <> 0 then