--- a/hedgewars/VGSHandlers.inc	Tue Apr 26 13:13:07 2011 +0200
+++ b/hedgewars/VGSHandlers.inc	Wed Apr 27 15:57:23 2011 +0400
@@ -684,7 +684,7 @@
                 if tmp > round(dY) then tdY:= -1;
                 if tmp > 255 then tmp := 255;
                 if tmp < 0 then tmp := 0;
-                Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or tmp
+                Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Longword(tmp)
                 end
             end
 end;