equal
deleted
inserted
replaced
370 ar[cnt].x:= x; |
370 ar[cnt].x:= x; |
371 ar[cnt].y:= y; |
371 ar[cnt].y:= y; |
372 inc(cnt); |
372 inc(cnt); |
373 if cnt > MaxPointsIndex then // buffer is full, do not check the rest land |
373 if cnt > MaxPointsIndex then // buffer is full, do not check the rest land |
374 begin |
374 begin |
375 y:= 5000; |
375 y:= LAND_HEIGHT; |
376 x:= 5000; |
376 x:= LAND_WIDTH; |
377 end |
377 end |
378 end; |
378 end; |
379 inc(y, 3); |
379 inc(y, 3); |
380 until y >= LAND_HEIGHT - Height; |
380 until y >= LAND_HEIGHT - Height; |
381 inc(x, getrandom(6) + 3) |
381 inc(x, getrandom(6) + 3) |