author | koda |
Thu, 05 Nov 2009 20:47:42 +0000 | |
changeset 2602 | 3deb9ff104da |
parent 1792 | c30c6944bd49 |
child 2603 | abed6070a669 |
permissions | -rw-r--r-- |
393 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
768 | 3 |
* Copyright (c) 2006-2008 Andrey Korotaev <unC0Rr@gmail.com> |
393 | 4 |
* |
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 |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
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 |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
18 |
||
184 | 19 |
begin |
20 |
X:= X + dX; |
|
21 |
Y:= Y + dY; |
|
351 | 22 |
tx:= hwRound(X); |
23 |
ty:= hwRound(Y); |
|
1778 | 24 |
if ((ty and LAND_HEIGHT_MASK) = 0) and |
25 |
((tx and LAND_WIDTH_MASK) = 0) and |
|
2602
3deb9ff104da
update themes cmakefiles to use GLOB instead of listing all the files
koda
parents:
1792
diff
changeset
|
26 |
((Land[ty, tx] = COLOR_LAND) or (Land[ty, tx] = COLOR_OBJECT)) then LandPixels[ty, tx]:= cExplosionBorderColor |
351 | 27 |
end; |