equal
deleted
inserted
replaced
394 exit; |
394 exit; |
395 x:= 0; |
395 x:= 0; |
396 repeat |
396 repeat |
397 y:= topY+32; // leave room for a hedgie to teleport in |
397 y:= topY+32; // leave room for a hedgie to teleport in |
398 repeat |
398 repeat |
|
399 |
|
400 if (inland[1].x = 0) and (inland[1].y = 0) and (inland[1].w = 0) and (inland[1].h = 0) then |
|
401 y := LAND_HEIGHT - Height; |
|
402 |
399 if CheckCanPlace(x, y, Obj) then |
403 if CheckCanPlace(x, y, Obj) then |
400 begin |
404 begin |
401 ar[cnt].x:= x; |
405 ar[cnt].x:= x; |
402 ar[cnt].y:= y; |
406 ar[cnt].y:= y; |
403 if cnt >= MaxPointsIndex then // buffer is full, do not check the rest land |
407 if cnt >= MaxPointsIndex then // buffer is full, do not check the rest land |