1363 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1363 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1364 // draw health bar |
1364 // draw health bar |
1365 r.w:= TeamHealthBarWidth + 1; |
1365 r.w:= TeamHealthBarWidth + 1; |
1366 r.h:= HealthTex^.h - 4; |
1366 r.h:= HealthTex^.h - 4; |
1367 DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
1367 DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
|
1368 if not hasGone and (TeamHealth > 1) then |
|
1369 begin |
|
1370 Tint(Clan^.Color shl 8 or $FF); |
|
1371 for i:= 0 to cMaxHHIndex do |
|
1372 if Hedgehogs[i].Gear <> nil then |
|
1373 begin |
|
1374 inc(h,Hedgehogs[i].Gear^.Health); |
|
1375 if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture); |
|
1376 end; |
|
1377 if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
|
1378 Tint($FF,$FF,$FF,$80) |
|
1379 else Tint($FF, $FF, $FF, $FF); |
|
1380 end; |
1368 end; |
1381 end; |
1369 end; |
1382 end; |
1370 if smallScreenOffset <> 0 then |
1383 if smallScreenOffset <> 0 then |
1371 begin |
1384 begin |
1372 SetScale(cDefaultZoomLevel); |
1385 SetScale(cDefaultZoomLevel); |