hedgewars/uVisualGears.pas
changeset 5065 0c2c509ccc7b
parent 5014 adc340265ccf
child 5121 2d34ec60992c
--- a/hedgewars/uVisualGears.pas	Mon Mar 28 21:44:39 2011 +0400
+++ b/hedgewars/uVisualGears.pas	Mon Mar 28 20:13:03 2011 -0400
@@ -429,7 +429,10 @@
                 case Gear^.Kind of
                     vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
-                    vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+                    vgtDust: if Gear^.State = 1 then
+                                DrawSprite(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame)
+                             else
+                                DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
                     vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
                                  DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
                              else