hedgewars/tunsetborder.inc
author unc0rr
Sun, 29 Oct 2006 13:06:27 +0000
changeset 219 73a2bf84d0e6
parent 184 f97a7a3dc8f6
child 351 29bc9c36ad5f
permissions -rw-r--r--
Fix serious bug in pneumatic drill
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     1
        begin
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     2
        X:= X + dX;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     3
        Y:= Y + dY;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     4
        tx:= round(X);
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     5
        ty:= round(Y);
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     6
        if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     7
           SetLandPixel(ty, tx)
38
c1ec4b15d70e Better Desert Eagle and Shotgun
unc0rr
parents:
diff changeset
     8
	end;