--- a/hedgewars/GSHandlers.inc	Sun Sep 11 23:48:40 2011 +0200
+++ b/hedgewars/GSHandlers.inc	Sun Sep 11 18:09:49 2011 -0400
@@ -2773,10 +2773,10 @@
 
     Gear^.X := HHGear^.X;
     Gear^.Y := HHGear^.Y;
-    if Gear^.Message and gmPrecise <> 0 then
+    if (GameTicks mod 2 = 0) and ((Gear^.Message and (gmPrecise or gmSwitch)) = (gmPrecise or gmSwitch)) then
         begin
         sparkles:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1);
-        if sparkles <> nil then sparkles^.Tint:= (random(255) shl 24) or (random(255) shl 16) or (random(255) shl 8) or $FF;
+        if sparkles <> nil then sparkles^.Tint:= ((random(210)+45) shl 24) or ((random(210)+45) shl 16) or ((random(210)+45) shl 8) or $FF;
         end;
 
     i := 2;