hedgewars/uGearsRender.pas
changeset 5039 2376d5899ff9
parent 5031 e26f430be1ed
child 5041 3dc6ad20cbfe
--- a/hedgewars/uGearsRender.pas	Mon Mar 21 22:38:27 2011 -0400
+++ b/hedgewars/uGearsRender.pas	Tue Mar 22 01:30:51 2011 -0400
@@ -1041,7 +1041,7 @@
            gtFlake: if (Gear^.State and gstTmpFlag) <> 0 then
                         //DrawRotatedTextureF(SpritesData[sprSnowBall].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle)
                         begin
-                        Tint(cExplosionBorderColor);
+                        Tint(cExplosionBorderColor shl 8 or $000000FF);
                         //DrawRotated(sprSnow, x, y, 0, Gear^.DirAngle);
                         // Needs a nicer white texture to tint
                         DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1);