equal
deleted
inserted
replaced
227 function CheckCanPlace(x, y: Longword; var Obj: TThemeObject): boolean; |
227 function CheckCanPlace(x, y: Longword; var Obj: TThemeObject): boolean; |
228 var i: Longword; |
228 var i: Longword; |
229 Result: boolean; |
229 Result: boolean; |
230 begin |
230 begin |
231 with Obj do |
231 with Obj do |
232 if CheckLand(inland, x, y, $FFFFFF) then |
232 if CheckLand(inland, x, y, COLOR_LAND) then |
233 begin |
233 begin |
234 Result:= true; |
234 Result:= true; |
235 i:= 1; |
235 i:= 1; |
236 while Result and (i <= rectcnt) do |
236 while Result and (i <= rectcnt) do |
237 begin |
237 begin |
307 r.w:= Width; |
307 r.w:= Width; |
308 r.h:= Height + 16; |
308 r.h:= Height + 16; |
309 repeat |
309 repeat |
310 y:= 8; |
310 y:= 8; |
311 repeat |
311 repeat |
312 if CheckLand(r, x, y - 8, $FFFFFF) |
312 if CheckLand(r, x, y - 8, COLOR_LAND) |
313 and not CheckIntersect(x, y, Width, Height) then |
313 and not CheckIntersect(x, y, Width, Height) then |
314 begin |
314 begin |
315 ar[cnt].x:= x; |
315 ar[cnt].x:= x; |
316 ar[cnt].y:= y; |
316 ar[cnt].y:= y; |
317 inc(cnt); |
317 inc(cnt); |
469 end; |
469 end; |
470 |
470 |
471 procedure AddObjects(); |
471 procedure AddObjects(); |
472 begin |
472 begin |
473 InitRects; |
473 InitRects; |
474 AddGirder(256); |
474 if hasGirders then |
475 AddGirder(512); |
475 begin |
476 AddGirder(768); |
476 AddGirder(256); |
477 AddGirder(1024); |
477 AddGirder(512); |
478 AddGirder(1280); |
478 AddGirder(768); |
479 AddGirder(1536); |
479 AddGirder(1024); |
480 AddGirder(1792); |
480 AddGirder(1280); |
|
481 AddGirder(1536); |
|
482 AddGirder(1792); |
|
483 end; |
481 AddThemeObjects(ThemeObjects, 8); |
484 AddThemeObjects(ThemeObjects, 8); |
482 AddProgress; |
485 AddProgress; |
483 FreeRects |
486 FreeRects |
484 end; |
487 end; |
485 |
488 |