equal
deleted
inserted
replaced
14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 begin |
19 begin |
20 X:= X + dX; |
20 X:= X + dX; |
21 Y:= Y + dY; |
21 Y:= Y + dY; |
22 tx:= hwRound(X); |
22 tx:= hwRound(X); |
23 ty:= hwRound(Y); |
23 ty:= hwRound(Y); |
24 if ((ty and LAND_HEIGHT_MASK) = 0) and |
24 if ((ty and LAND_HEIGHT_MASK) = 0) and |
25 ((tx and LAND_WIDTH_MASK) = 0) and |
25 ((tx and LAND_WIDTH_MASK) = 0) and |
26 (Land[ty, tx] = COLOR_LAND) then LandPixels[ty, tx]:= cExplosionBorderColor |
26 ((Land[ty, tx] = COLOR_LAND) or (Land[ty, tx] = COLOR_OBJECT)) then LandPixels[ty, tx]:= cExplosionBorderColor |
27 end; |
27 end; |