1354 begin |
1354 begin |
1355 if TeamsCount * 100 > Longword(cScreenHeight) then |
1355 if TeamsCount * 100 > Longword(cScreenHeight) then |
1356 Tint($FF,$FF,$FF,$80) |
1356 Tint($FF,$FF,$FF,$80) |
1357 else untint; |
1357 else untint; |
1358 |
1358 |
1359 if OwnerTex <> nil then |
|
1360 begin |
|
1361 r.x:= 2; |
|
1362 r.y:= 2; |
|
1363 r.w:= OwnerTex^.w - 4; |
|
1364 r.h:= OwnerTex^.h - 4; |
|
1365 DrawTextureFromRect(-OwnerTex^.w - NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, OwnerTex) |
|
1366 end; |
|
1367 // draw name |
1359 // draw name |
1368 r.x:= 2; |
1360 r.x:= 2; |
1369 r.y:= 2; |
1361 r.y:= 2; |
1370 r.w:= NameTagTex^.w - 4; |
1362 r.w:= NameTagTex^.w - 4; |
1371 r.h:= NameTagTex^.h - 4; |
1363 r.h:= NameTagTex^.h - 4; |
1372 DrawTextureFromRect(-NameTagTex^.w - 14, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, NameTagTex); |
1364 DrawTextureFromRect(-NameTagTex^.w - 14, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, NameTagTex); |
|
1365 |
|
1366 if OwnerTex <> nil then |
|
1367 begin |
|
1368 r.w:= OwnerTex^.w - 4; |
|
1369 r.h:= OwnerTex^.h - 4; |
|
1370 DrawTextureFromRect(-OwnerTex^.w - NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, OwnerTex) |
|
1371 end; |
|
1372 |
|
1373 if (GameFlags and gfAISurvival) <> 0 then |
|
1374 begin |
|
1375 r.w:= AIKillsTex^.w - 4; |
|
1376 r.h:= AIKillsTex^.h - 4; |
|
1377 DrawTextureFromRect(TeamHealthBarWidth + 24, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, AIKillsTex); |
|
1378 end; |
|
1379 |
1373 // draw flag |
1380 // draw flag |
1374 r.w:= 22; |
1381 r.w:= 22; |
1375 r.h:= 15; |
1382 r.h:= 15; |
1376 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1383 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1377 end; |
1384 end; |