equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a worms-like game |
2 * Hedgewars, a worms-like game |
3 * Copyright (c) 2006-2007 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2006-2008 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
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 $FFFFFC00) = 0) and |
24 if ((ty and $FFFFFC00) = 0) and |
25 ((tx and $FFFFF800) = 0) and |
25 ((tx and $FFFFF800) = 0) and |
26 (Land[ty, tx] = $FFFFFF) then SetLandPixel(ty, tx) |
26 (Land[ty, tx] = $FFFFFF) then LandPixels[ty, tx]:= cExplosionBorderColor |
27 end; |
27 end; |