# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1561834827 -7200
# Node ID fb2da6145595e7c4b495bf5e64761134fcaf562d
# Parent  0879fba70510400014b55fab94d1801898551026
Make air mine contour red when chasing

diff -r 0879fba70510 -r fb2da6145595 hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Sat Jun 29 20:41:14 2019 +0200
+++ b/hedgewars/uGearsRender.pas	Sat Jun 29 21:00:27 2019 +0200
@@ -339,12 +339,20 @@
 end;
 
 procedure RenderAirMineGuiExtras(Gear: PGear; ox, oy: LongInt);
+var isChasing: boolean;
 begin
 // render air mine contour, if underwater
     if (((not SuddenDeathDmg) and (WaterOpacity > cGearContourThreshold)) or (SuddenDeathDmg and (SDWaterOpacity > cGearContourThreshold))) and
         ((cWaterLine < (hwRound(Gear^.Y) + Gear^.Radius + 16)) or
         ((WorldEdge = weSea) and ((hwRound(Gear^.X) < LeftX + 24) or (hwRound(Gear^.X) > RightX - 24)))) then
+        begin
+        isChasing:= ((Gear^.State and gstFrozen) = 0) and (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) and ((Gear^.State and gstTmpFlag) <> 0) and (Gear^.Tag = 0);
+        if isChasing then
+            Tint($FF, $30, $30, $FF);
         DrawSprite(sprAirMine, ox-16, oy-16, 32);
+        if isChasing then
+            untint;
+        end;
 end;
 
 procedure DrawHH(Gear: PGear; ox, oy: LongInt);