equal
deleted
inserted
replaced
55 begin |
55 begin |
56 if not doSet then |
56 if not doSet then |
57 begin |
57 begin |
58 if ((y + dy) and $FFFFFC00) = 0 then |
58 if ((y + dy) and $FFFFFC00) = 0 then |
59 for i:= max(x - dx, 0) to min(x + dx, 2047) do |
59 for i:= max(x - dx, 0) to min(x + dx, 2047) do |
60 if (Land[y + dy, i] > 0) then dec(Land[y + dy, i]); |
60 if (Land[y + dy, i] > 0) then dec(Land[y + dy, i]); // check > 0 because explosion can erase collision data |
61 if ((y - dy) and $FFFFFC00) = 0 then |
61 if ((y - dy) and $FFFFFC00) = 0 then |
62 for i:= max(x - dx, 0) to min(x + dx, 2047) do |
62 for i:= max(x - dx, 0) to min(x + dx, 2047) do |
63 if (Land[y - dy, i] > 0) then dec(Land[y - dy, i]); |
63 if (Land[y - dy, i] > 0) then dec(Land[y - dy, i]); |
64 if ((y + dx) and $FFFFFC00) = 0 then |
64 if ((y + dx) and $FFFFFC00) = 0 then |
65 for i:= max(x - dy, 0) to min(x + dy, 2047) do |
65 for i:= max(x - dy, 0) to min(x + dy, 2047) do |