equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2014 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2015 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 * |
87 end; |
87 end; |
88 end; |
88 end; |
89 |
89 |
90 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
90 procedure drawPixelEBC(landX, landY, pixelX, pixelY: Longint); inline; |
91 begin |
91 begin |
92 if ((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0) then |
92 if (Land[landY, landX] and lfIndestructible = 0) and |
|
93 (((Land[landY, landX] and lfBasic) <> 0) or ((Land[landY, landX] and lfObject) <> 0)) then |
93 begin |
94 begin |
94 LandPixels[pixelY, pixelX]:= ExplosionBorderColor; |
95 LandPixels[pixelY, pixelX]:= ExplosionBorderColor; |
95 Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and (not lfIce); |
96 Land[landY, landX]:= (Land[landY, landX] or lfDamaged) and (not lfIce); |
96 LandDirty[landY div 32, landX div 32]:= 1; |
97 LandDirty[landY div 32, landX div 32]:= 1; |
97 end; |
98 end; |