hedgewars/uWorld.pas
changeset 10317 fe2721f870ab
parent 10312 eda8d563f677
child 10318 c2e81eea375f
equal deleted inserted replaced
10316:0f46fb0e0d5f 10317:fe2721f870ab
  1335 
  1335 
  1336             // draw flag
  1336             // draw flag
  1337             r.w:= 22;
  1337             r.w:= 22;
  1338             r.h:= 15;
  1338             r.h:= 15;
  1339             DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex);
  1339             DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex);
       
  1340             end
       
  1341         // draw an arrow next to active team
       
  1342         else if (CurrentTeam = TeamsArray[t]) and (TurnTimeLeft > 0) then
       
  1343             begin
       
  1344             h:= -NameTagTex^.w - 24;
       
  1345             if OwnerTex <> nil then
       
  1346                 h:= h - OwnerTex^.w - 4;
       
  1347             DrawSpriteRotatedF(sprFinger, h, cScreenHeight + DrawHealthY + smallScreenOffset + 2 + SpritesData[sprFinger].Width div 4, 0, 1, -90);
  1340             end;
  1348             end;
  1341         end;
  1349         end;
  1342 if smallScreenOffset <> 0 then
  1350 if smallScreenOffset <> 0 then
  1343     begin
  1351     begin
  1344     SetScale(cDefaultZoomLevel);
  1352     SetScale(cDefaultZoomLevel);