hedgewars/tunsetborder.inc
author unc0rr
Tue, 23 Jan 2007 21:24:18 +0000
changeset 360 ab6a94334d6d
parent 358 236bbd12d4d9
child 393 db01cc79f278
permissions -rw-r--r--
- Two more templates - Fix clouds regression - Remove Delphi from the list of compilers - Set version to 0.9.0

        begin
        X:= X + dX;
        Y:= Y + dY;
        tx:= hwRound(X);
        ty:= hwRound(Y);
        if ((ty and $FFFFFC00) = 0) and
           ((tx and $FFFFF800) = 0) and
           (Land[ty, tx] = $FFFFFF) then SetLandPixel(ty, tx)
	end;