# HG changeset patch
# User sheepluva
# Date 1402958509 -7200
# Node ID fe2721f870ab4d39d4bc4545655a4f879cab10c7
# Parent  0f46fb0e0d5fa24087e8c1d6846622cb416769af
adding some arrow

diff -r 0f46fb0e0d5f -r fe2721f870ab hedgewars/uWorld.pas
--- 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