equal
deleted
inserted
replaced
1318 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1318 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1319 |
1319 |
1320 // draw health bars right border |
1320 // draw health bars right border |
1321 inc(r.x, cTeamHealthWidth + 2); |
1321 inc(r.x, cTeamHealthWidth + 2); |
1322 r.w:= 3; |
1322 r.w:= 3; |
1323 DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1323 DrawTextureFromRect(TeamHealthBarWidth + 15, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1324 |
1324 |
1325 if not highlight and (not hasGone) then |
1325 if not highlight and (not hasGone) then |
1326 for i:= 0 to cMaxHHIndex do |
1326 for i:= 0 to cMaxHHIndex do |
1327 if Hedgehogs[i].Gear <> nil then |
1327 if Hedgehogs[i].Gear <> nil then |
1328 begin |
1328 begin |
1355 r.h:= 15; |
1355 r.h:= 15; |
1356 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1356 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1357 // draw health bar |
1357 // draw health bar |
1358 r.w:= TeamHealthBarWidth + 1; |
1358 r.w:= TeamHealthBarWidth + 1; |
1359 r.h:= HealthTex^.h - 4; |
1359 r.h:= HealthTex^.h - 4; |
1360 DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
1360 DrawTextureFromRect(15, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
1361 if not hasGone and (TeamHealth > 1) then |
1361 if not hasGone and (TeamHealth > 1) then |
1362 begin |
1362 begin |
1363 Tint(Clan^.Color shl 8 or $FF); |
1363 Tint(Clan^.Color shl 8 or $FF); |
1364 for i:= 0 to cMaxHHIndex do |
1364 for i:= 0 to cMaxHHIndex do |
1365 if Hedgehogs[i].Gear <> nil then |
1365 if Hedgehogs[i].Gear <> nil then |