equal
deleted
inserted
replaced
278 {$include tunsetborder.inc} |
278 {$include tunsetborder.inc} |
279 nx:= nx - dY; |
279 nx:= nx - dY; |
280 ny:= ny + dX; |
280 ny:= ny + dX; |
281 end; |
281 end; |
282 |
282 |
283 t:= max(stY - HalfWidth * 2 - 4, 0); |
283 t:= max(stY - HalfWidth * 2 - 4 - abs(hwRound(dY * ticks)), 0); |
284 ty:= min(stY + HalfWidth * 2 + 4, 1023) - t; |
284 ty:= min(stY + HalfWidth * 2 + 4 + abs(hwRound(dY * ticks)), 1023) - t; |
285 UpdateLandTexture(t, ty) |
285 UpdateLandTexture(t, ty) |
286 end; |
286 end; |
287 |
287 |
288 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; |
289 var X, Y, bpp, h, w: LongInt; |
289 var X, Y, bpp, h, w: LongInt; |