Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/VGSHandlers.inc
changeset 5491 3a82724de759
parent 5366 bfdd925e89a5
child 5562 8056d82b4d23 
--- a/hedgewars/VGSHandlers.inc	Mon Aug 01 15:37:27 2011 -0400
+++ b/hedgewars/VGSHandlers.inc	Mon Aug 01 16:45:45 2011 -0400
@@ -258,7 +258,11 @@
 if Gear^.FrameTicks <= Steps then
     DeleteVisualGear(Gear)
 else
+    begin
     dec(Gear^.FrameTicks, Steps);
+    if (Gear^.FrameTicks < 501) and (Gear^.FrameTicks mod 5 = 0) then 
+        Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or (((Gear^.Tint and $000000FF) * Gear^.FrameTicks) div 500)
+    end
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
hedgewars