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