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/uGearsList.pas
changeset 10490 b30b8d39d662
parent 10354 56bd029245fc
child 10494 0eb97cf4c78e 
--- a/hedgewars/uGearsList.pas	Tue Nov 11 21:55:38 2014 +0100
+++ b/hedgewars/uGearsList.pas	Tue Nov 11 23:57:46 2014 +0300
@@ -288,9 +288,9 @@
                     Health:= random(vobFrameTicks);
                     if gear^.Timer = 0 then Timer:= random(vobFramesCount);
                     Damage:= (random(2) * 2 - 1) * (vobVelocity + random(vobVelocity)) * 8;
-                    Tint:= (ExplosionBorderColor and RMask shl RShift) or
-                           (ExplosionBorderColor and GMask shl GShift) or
-                           (ExplosionBorderColor and BMask shl BShift) or $FF;
+                    Tint:= ((ExplosionBorderColor and RMask) shl RShift) or
+                           ((ExplosionBorderColor and GMask) shl GShift) or
+                           ((ExplosionBorderColor and BMask) shl BShift) or $FF;
                     end
                 end;
        gtGrave: begin
hedgewars