# HG changeset patch
# User alfadur
# Date 1542070647 -10800
# Node ID dcf235a1f86b6525850c2e2c85cfddafafc808e9
# Parent  abf4d12a59b18c9a646a6785d84be3468f6ff827
add sparkles to stunned airmines

diff -r abf4d12a59b1 -r dcf235a1f86b hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Tue Nov 13 03:22:16 2018 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Tue Nov 13 03:57:27 2018 +0300
@@ -2065,6 +2065,7 @@
     targ, tmpG: PGear;
     trackSpeed, airFriction, tX, tY: hwFloat;
     isUnderwater: Boolean;
+    sparkle: PVisualGear;
 begin
 	if (Gear^.State and gstFrozen) <> 0 then
 		begin
@@ -2094,6 +2095,19 @@
     if Gear^.Tag <> 0 then
         begin
         Gear^.Hedgehog:= nil;
+
+        if ((Gear^.FlightTime and $FF) = 0) then
+            begin
+            sparkle:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1);
+            if sparkle <> nil then
+                begin
+                    sparkle^.dX:= 0.004 * (random(100) - 50);
+                    sparkle^.dY:= -0.05 + 0.004 * (random(100) - 50);
+                    sparkle^.Tint:= $D5CD8CFF;
+                    sparkle^.Angle:= random(360);
+                end;
+            end;
+
         dec(Gear^.FlightTime);
         if Gear^.FlightTime = 0 then
             Gear^.Tag:= 0;