equal
deleted
inserted
replaced
213 if Land[ty, tx] = $FFFFFF then |
213 if Land[ty, tx] = $FFFFFF then |
214 LandPixels[ty, tx]:= cExplosionBorderColor; |
214 LandPixels[ty, tx]:= cExplosionBorderColor; |
215 inc(y, dY) |
215 inc(y, dY) |
216 end; |
216 end; |
217 |
217 |
218 UpdateLandTexture(0, 1024) |
218 |
|
219 UpdateLandTexture(0, 1023) |
219 end; |
220 end; |
220 |
221 |
221 // |
222 // |
222 // - (dX, dY) - direction, vector of length = 0.5 |
223 // - (dX, dY) - direction, vector of length = 0.5 |
223 // |
224 // |
277 {$include tunsetborder.inc} |
278 {$include tunsetborder.inc} |
278 nx:= nx - dY; |
279 nx:= nx - dY; |
279 ny:= ny + dX; |
280 ny:= ny + dX; |
280 end; |
281 end; |
281 |
282 |
282 t:= max(stY - HalfWidth * 3 div 2 - 4, 0); |
283 t:= max(stY - HalfWidth * 2 - 4, 0); |
283 ty:= min(stY + HalfWidth * 3 div 2 + 4, 1023) - t; |
284 ty:= min(stY + HalfWidth * 2 + 4, 1023) - t; |
284 UpdateLandTexture(t, ty) |
285 UpdateLandTexture(t, ty) |
285 end; |
286 end; |
286 |
287 |
287 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
288 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean; |
288 var X, Y, bpp, h, w: LongInt; |
289 var X, Y, bpp, h, w: LongInt; |