equal
deleted
inserted
replaced
299 var x, y: Longword; |
299 var x, y: Longword; |
300 ar: array[0..MaxPointsIndex] of TPoint; |
300 ar: array[0..MaxPointsIndex] of TPoint; |
301 cnt, i: Longword; |
301 cnt, i: Longword; |
302 bRes: boolean; |
302 bRes: boolean; |
303 begin |
303 begin |
|
304 TryPut:= false; |
304 cnt:= 0; |
305 cnt:= 0; |
305 with Obj do |
306 with Obj do |
306 begin |
307 begin |
307 if Maxcnt = 0 then |
308 if Maxcnt = 0 then |
308 exit(false); |
309 exit; |
309 x:= 0; |
310 x:= 0; |
310 repeat |
311 repeat |
311 y:= topY+32; // leave room for a hedgie to teleport in |
312 y:= topY+32; // leave room for a hedgie to teleport in |
312 repeat |
313 repeat |
313 if CheckCanPlace(x, y, Obj) then |
314 if CheckCanPlace(x, y, Obj) then |
344 ar: array[0..MaxPointsIndex] of TPoint; |
345 ar: array[0..MaxPointsIndex] of TPoint; |
345 cnt, i: Longword; |
346 cnt, i: Longword; |
346 r: TSDL_Rect; |
347 r: TSDL_Rect; |
347 bRes: boolean; |
348 bRes: boolean; |
348 begin |
349 begin |
|
350 TryPut:= false; |
349 cnt:= 0; |
351 cnt:= 0; |
350 with Obj do |
352 with Obj do |
351 begin |
353 begin |
352 if Maxcnt = 0 then |
354 if Maxcnt = 0 then |
353 exit(false); |
355 exit; |
354 x:= 0; |
356 x:= 0; |
355 r.x:= 0; |
357 r.x:= 0; |
356 r.y:= 0; |
358 r.y:= 0; |
357 r.w:= Width; |
359 r.w:= Width; |
358 r.h:= Height + 16; |
360 r.h:= Height + 16; |