# HG changeset patch
# User nemo
# Date 1315778989 14400
# Node ID 07eae0e35d73094c0c789825d7e5b86ff5525236
# Parent  04bd078e154f8e196b5ea13de9ec9d579db0706e
make it more sekret

diff -r 04bd078e154f -r 07eae0e35d73 hedgewars/GSHandlers.inc
--- 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;