# HG changeset patch
# User Henek
# Date 1289601608 -3600
# Node ID 46c3c5cf89e413c5bdf6c003f02f32e252aeac1a
# Parent  b697a26ed5385cb12834ff9ba0643438aab18501
fancy dust when the drill is drilling

diff -r b697a26ed538 -r 46c3c5cf89e4 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Nov 12 22:38:05 2010 +0100
+++ b/hedgewars/GSHandlers.inc	Fri Nov 12 23:40:08 2010 +0100
@@ -2729,6 +2729,8 @@
         Gear^.X := Gear^.X + Gear^.dX;
         Gear^.Y := Gear^.Y + Gear^.dY;
         DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6);
+        if (Gear^.Timer mod 30) = 0 then
+            AddVisualGear(hwRound(Gear^.X + _20 * Gear^.dX), hwRound(Gear^.Y + _20 * Gear^.dY), vgtDust);
         if (CheckGearDrowning(Gear)) then
         begin
             StopSound(Gear^.SoundChannel);