Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make it more sekret
authornemo
Sun, 11 Sep 2011 18:09:49 -0400
changeset 5869 07eae0e35d73
parent 5868 04bd078e154f
child 5870 b9b9fb00c9dd
make it more sekret
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions 
--- 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;
hedgewars