--- a/hedgewars/tunsetborder.inc Thu Oct 05 16:33:18 2006 +0000
+++ b/hedgewars/tunsetborder.inc Thu Oct 05 17:02:09 2006 +0000
@@ -1,8 +1,8 @@
- begin
- X:= X + dX;
- Y:= Y + dY;
- tx:= round(X);
- ty:= round(Y);
- if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
- SetLandPixel(ty, tx)
+ begin
+ X:= X + dX;
+ Y:= Y + dY;
+ tx:= round(X);
+ ty:= round(Y);
+ if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
+ SetLandPixel(ty, tx)
end;
\ No newline at end of file