Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 7426 55b49cc1f33a
parent 7404 38a23771ee45
child 7442 9bb6abdb5675
child 7468 1333ca7554dc
equal deleted inserted replaced
7423:ec8f690f3e0f 7426:55b49cc1f33a 
  1327         inc(r.x, cTeamHealthWidth + 2);
 
  1327         inc(r.x, cTeamHealthWidth + 2);
 
  1328         if TeamHealth = 0 then inc(r.x);
 
  1328         if TeamHealth = 0 then inc(r.x);
 
  1329         r.w:= 3;
 
  1329         r.w:= 3;
 
  1330         DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
 
  1330         DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
 
  1331 
  1331 
  1332         if not highlight and not hasGone and (TeamHealth > 1) then
 
  1332         if not highlight and (not hasGone) and (TeamHealth > 1) then
 
  1333             for i:= 0 to cMaxHHIndex do
 
  1333             for i:= 0 to cMaxHHIndex do
 
  1334                 if Hedgehogs[i].Gear <> nil then
 
  1334                 if Hedgehogs[i].Gear <> nil then
 
  1335                     begin
 
  1335                     begin
 
  1336                     inc(h,Hedgehogs[i].Gear^.Health);
 
  1336                     inc(h,Hedgehogs[i].Gear^.Health);
 
  1337                     if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
 
  1337                     if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture);
hedgewars