hedgewars/uVisualGearsHandlers.pas
changeset 10298 7d5d93f9a515
parent 10251 a3b42e81803c
child 10299 45e3e901b3b9
--- a/hedgewars/uVisualGearsHandlers.pas	Fri Jun 13 14:55:06 2014 +0200
+++ b/hedgewars/uVisualGearsHandlers.pas	Fri Jun 13 17:51:55 2014 +0200
@@ -906,14 +906,12 @@
     // age
     dec(Gear^.FrameTicks, Steps);
     // toggle between orange and red every few ticks
-    if (Gear^.FrameTicks div 300) mod 2 = 0 then
+    if (Gear^.FrameTicks div 256) mod 2 = 0 then
         Gear^.Tint:= $FF400000
     else
         Gear^.Tint:= $FF000000;
     // fade out alpha
-    Gear^.Tint:= Gear^.Tint or ((Gear^.FrameTicks * $FF) div 3000);
-    // get bigger as we fade out
-    // Gear^.Scale:= 1.1 - 0.001 * (Gear^.FrameTicks div 30);
+    Gear^.Tint:= (Gear^.Tint and not $FF) or (255 * Gear^.FrameTicks div 3000);
     end
 end;