hedgewars/uGearsRender.pas
changeset 14200 1bdce164eb72
parent 14196 ab5e710d353d
child 14282 6015b74eea55
--- a/hedgewars/uGearsRender.pas	Mon Nov 12 20:30:06 2018 +0300
+++ b/hedgewars/uGearsRender.pas	Tue Nov 13 01:56:42 2018 +0300
@@ -1339,6 +1339,8 @@
          gtAirMine: 
 					if (Gear^.State and gstFrozen <> 0) then 
                         DrawSprite(sprFrozenAirMine, x-16, y-16, 15)
+          else if (Gear^.Tag <> 0) then
+                        DrawSprite(sprAirMine, x-16, y-16, 16 + ((RealTicks div 50 + Gear^.Uid) mod 16))
 					else if (Gear^.State and gstTmpFlag = 0) then                // mine is inactive
                         begin
 						if (Gear^.State and gstTmpFlag = 0) then Tint(150,150,150,255);