hedgewars/VGSHandlers.inc
changeset 5179 8d64dcb566ea
parent 5151 cbadb9fa52fc
child 5186 a05c14510c8a
equal deleted inserted replaced
5178:f3cc6119f1fe 5179:8d64dcb566ea
   682                 else dec(tmp);
   682                 else dec(tmp);
   683                 if tmp < round(dX) then tdY:= 1;
   683                 if tmp < round(dX) then tdY:= 1;
   684                 if tmp > round(dY) then tdY:= -1;
   684                 if tmp > round(dY) then tdY:= -1;
   685                 if tmp > 255 then tmp := 255;
   685                 if tmp > 255 then tmp := 255;
   686                 if tmp < 0 then tmp := 0;
   686                 if tmp < 0 then tmp := 0;
   687                 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or tmp
   687                 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Longword(tmp)
   688                 end
   688                 end
   689             end
   689             end
   690 end;
   690 end;