hedgewars/uWorld.pas
changeset 14395 f39d34d78028
parent 14303 2978d6405d88
child 14397 f9a3cfdec1df
equal deleted inserted replaced
14394:d670e4efe1ed 14395:f39d34d78028
  1144         else if (CurrentTeam = TeamsArray[t]) and (TurnTimeLeft > 0) then
  1144         else if (CurrentTeam = TeamsArray[t]) and (TurnTimeLeft > 0) then
  1145             begin
  1145             begin
  1146             h:= -NameTagTex^.w - 24;
  1146             h:= -NameTagTex^.w - 24;
  1147             if OwnerTex <> nil then
  1147             if OwnerTex <> nil then
  1148                 h:= h - OwnerTex^.w - 4;
  1148                 h:= h - OwnerTex^.w - 4;
       
  1149             Tint(TeamsArray[t]^.Clan^.Color shl 8 or $FF);
  1149             DrawSpriteRotatedF(sprFinger, h, cScreenHeight + DrawHealthY + smallScreenOffset + 2 + SpritesData[sprFinger].Width div 4, 0, 1, -90);
  1150             DrawSpriteRotatedF(sprFinger, h, cScreenHeight + DrawHealthY + smallScreenOffset + 2 + SpritesData[sprFinger].Width div 4, 0, 1, -90);
       
  1151             untint;
  1150             end;
  1152             end;
  1151         end;
  1153         end;
  1152       end;
  1154       end;
  1153 if smallScreenOffset <> 0 then
  1155 if smallScreenOffset <> 0 then
  1154     begin
  1156     begin
  1398     with PHedgehog(CurrentHedgehog)^ do
  1400     with PHedgehog(CurrentHedgehog)^ do
  1399         begin
  1401         begin
  1400         if CurAmmoType = amBee then
  1402         if CurAmmoType = amBee then
  1401             spr:= sprTargetBee
  1403             spr:= sprTargetBee
  1402         else
  1404         else
       
  1405             begin
  1403             spr:= sprTargetP;
  1406             spr:= sprTargetP;
       
  1407             Tint(Team^.Clan^.Color shl 8 or $FF);
       
  1408             end;
  1404         if replicateToLeft then
  1409         if replicateToLeft then
  1405             begin
  1410             begin
  1406             ShiftWorld(-1);
  1411             ShiftWorld(-1);
  1407             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1412             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1408             UnshiftWorld();
  1413             UnshiftWorld();
  1414             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1419             DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1415             UnshiftWorld();
  1420             UnshiftWorld();
  1416             end;
  1421             end;
  1417 
  1422 
  1418         DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
  1423         DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
       
  1424         if spr = sprTargetP then
       
  1425             untint;
  1419         end;
  1426         end;
  1420     end;
  1427     end;
  1421 
  1428 
  1422 // Attack bar
  1429 // Attack bar
  1423 if replicateToLeft then
  1430 if replicateToLeft then