hedgewars/uGears.pas
changeset 2947 803b277e4894
parent 2946 1d9e0a541c62
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2946:1d9e0a541c62 2947:803b277e4894
  1347 	begin
  1347 	begin
  1348 	if ((Gear^.State and not gstWinner) = 0)
  1348 	if ((Gear^.State and not gstWinner) = 0)
  1349 		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
  1349 		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
  1350 		begin
  1350 		begin
  1351 		t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
  1351 		t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;
  1352 		if (cTagsMasks[cTagsMaskIndex] and htTransparent) <> 0 then
  1352 		if (cTagsMask and htTransparent) <> 0 then
  1353 			glColor4f(1, 1, 1, 0.5);
  1353 			glColor4f(1, 1, 1, 0.5);
  1354 		if ((cTagsMasks[cTagsMaskIndex] and htHealth) <> 0) and ((GameFlags and gfInvulnerable) = 0) then
  1354 		if ((cTagsMask and htHealth) <> 0) then
  1355 			begin
  1355 			begin
  1356 			dec(t, HealthTagTex^.h + 2);
  1356 			dec(t, HealthTagTex^.h + 2);
  1357 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
  1357 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, HealthTagTex)
  1358 			end;
  1358 			end;
  1359 		if (cTagsMasks[cTagsMaskIndex] and htName) <> 0 then
  1359 		if (cTagsMask and htName) <> 0 then
  1360 			begin
  1360 			begin
  1361 			dec(t, NameTagTex^.h + 2);
  1361 			dec(t, NameTagTex^.h + 2);
  1362 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
  1362 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, NameTagTex)
  1363 			end;
  1363 			end;
  1364 		if (cTagsMasks[cTagsMaskIndex] and htTeamName) <> 0 then
  1364 		if (cTagsMask and htTeamName) <> 0 then
  1365 			begin
  1365 			begin
  1366 			dec(t, Team^.NameTagTex^.h + 2);
  1366 			dec(t, Team^.NameTagTex^.h + 2);
  1367 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
  1367 			DrawCentered(hwRound(Gear^.X) + WorldDx, t, Team^.NameTagTex)
  1368 			end;
  1368 			end;
  1369 		if (cTagsMasks[cTagsMaskIndex] and htTransparent) <> 0 then
  1369 		if (cTagsMask and htTransparent) <> 0 then
  1370 			glColor4f(1, 1, 1, 1)
  1370 			glColor4f(1, 1, 1, 1)
  1371 		end;
  1371 		end;
  1372 	if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
  1372 	if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
  1373 		begin
  1373 		begin
  1374 		if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
  1374 		if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then