fancy dust when the drill is drilling
authorHenek
Fri, 12 Nov 2010 23:40:08 +0100
changeset 4282 46c3c5cf89e4
parent 4279 b697a26ed538
child 4285 95b72b1d603a
fancy dust when the drill is drilling
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);