hedgewars/uWorld.pas
changeset 10317 fe2721f870ab
parent 10312 eda8d563f677
child 10318 c2e81eea375f
--- a/hedgewars/uWorld.pas	Mon Jun 16 23:46:22 2014 +0200
+++ b/hedgewars/uWorld.pas	Tue Jun 17 00:41:49 2014 +0200
@@ -1337,6 +1337,14 @@
             r.w:= 22;
             r.h:= 15;
             DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex);
+            end
+        // draw an arrow next to active team
+        else if (CurrentTeam = TeamsArray[t]) and (TurnTimeLeft > 0) then
+            begin
+            h:= -NameTagTex^.w - 24;
+            if OwnerTex <> nil then
+                h:= h - OwnerTex^.w - 4;
+            DrawSpriteRotatedF(sprFinger, h, cScreenHeight + DrawHealthY + smallScreenOffset + 2 + SpritesData[sprFinger].Width div 4, 0, 1, -90);
             end;
         end;
 if smallScreenOffset <> 0 then