equal
deleted
inserted
replaced
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); |