equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
1385 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1385 DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1386 |
1386 |
1387 // draw health bars right border |
1387 // draw health bars right border |
1388 inc(r.x, cTeamHealthWidth + 2); |
1388 inc(r.x, cTeamHealthWidth + 2); |
1389 r.w:= 3; |
1389 r.w:= 3; |
1390 DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1390 DrawTextureFromRect(TeamHealthBarWidth + 15, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
1391 |
1391 |
1392 if (not highlight) and (not hasGone) then |
1392 if (not highlight) and (not hasGone) then |
1393 for i:= 0 to cMaxHHIndex do |
1393 for i:= 0 to cMaxHHIndex do |
1394 if Hedgehogs[i].Gear <> nil then |
1394 if Hedgehogs[i].Gear <> nil then |
1395 begin |
1395 begin |
1422 r.h:= 15; |
1422 r.h:= 15; |
1423 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1423 DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
1424 // draw health bar |
1424 // draw health bar |
1425 r.w:= TeamHealthBarWidth + 1; |
1425 r.w:= TeamHealthBarWidth + 1; |
1426 r.h:= HealthTex^.h - 4; |
1426 r.h:= HealthTex^.h - 4; |
1427 DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
1427 DrawTextureFromRect(15, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
1428 if (not hasGone) and (TeamHealth > 1) then |
1428 if not hasGone and (TeamHealth > 1) then |
1429 begin |
1429 begin |
1430 Tint(Clan^.Color shl 8 or $FF); |
1430 Tint(Clan^.Color shl 8 or $FF); |
1431 for i:= 0 to cMaxHHIndex do |
1431 for i:= 0 to cMaxHHIndex do |
1432 if Hedgehogs[i].Gear <> nil then |
1432 if Hedgehogs[i].Gear <> nil then |
1433 begin |
1433 begin |