adding some arrow
authorsheepluva
Tue, 17 Jun 2014 00:41:49 +0200
changeset 10317 fe2721f870ab
parent 10316 0f46fb0e0d5f
child 10318 c2e81eea375f
adding some arrow
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