# HG changeset patch
# User nemo
# Date 1315766764 14400
# Node ID 9017a0ff4201fa43f1aab92dabdb2c9dc5783742
# Parent  35387d27f73a0b8e936f3f7bbab0419aa4035589
aaaallways, I want to beeee with you, and make belieeeeve with you

diff -r 35387d27f73a -r 9017a0ff4201 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun Sep 11 21:45:28 2011 +0400
+++ b/hedgewars/GSHandlers.inc	Sun Sep 11 14:46:04 2011 -0400
@@ -2763,6 +2763,7 @@
 var 
     i: LongWord;
     HHGear: PGear;
+    sparkles: PVisualGear;
 begin
     AllInactive := false;
 
@@ -2772,9 +2773,15 @@
 
     Gear^.X := HHGear^.X;
     Gear^.Y := HHGear^.Y;
+    if Gear^.Message and gmPrecise <> 0 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;
+        end;
 
     i := 2;
     repeat
+        
         Gear^.X := Gear^.X + HHGear^.dX;
         Gear^.Y := Gear^.Y + HHGear^.dY;
         HHGear^.X := Gear^.X;