1328 r.h:= HealthTex^.h; |
1328 r.h:= HealthTex^.h; |
1329 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1329 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1330 |
1330 |
1331 // draw health bars right border |
1331 // draw health bars right border |
1332 inc(r.x, cTeamHealthWidth + 2); |
1332 inc(r.x, cTeamHealthWidth + 2); |
1333 if TeamHealth = 0 then inc(r.x); |
|
1334 r.w:= 3; |
1333 r.w:= 3; |
1335 DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1334 DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1336 |
1335 |
1337 if not highlight and (not hasGone) and (TeamHealth > 1) then |
1336 if not highlight and (not hasGone) then |
1338 for i:= 0 to cMaxHHIndex do |
1337 for i:= 0 to cMaxHHIndex do |
1339 if Hedgehogs[i].Gear <> nil then |
1338 if Hedgehogs[i].Gear <> nil then |
1340 begin |
1339 begin |
1341 inc(h,Hedgehogs[i].Gear^.Health); |
1340 inc(h,Hedgehogs[i].Gear^.Health); |
1342 if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture); |
1341 if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture); |