equal
deleted
inserted
replaced
371 y := y1; |
371 y := y1; |
372 y1 := y2; |
372 y1 := y2; |
373 y2 := y; |
373 y2 := y; |
374 end; |
374 end; |
375 |
375 |
|
376 if (hasBorder and ((y1 < 0) or (x1 < 0) or (x2 > LAND_WIDTH))) then |
|
377 exit(true); |
|
378 |
376 for y := y1 to y2 do |
379 for y := y1 to y2 do |
377 for x := x1 to x2 do |
380 for x := x1 to x2 do |
378 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) |
381 if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) |
379 and (Land[y, x] > TestWord) then |
382 and (Land[y, x] > TestWord) then |
380 exit(true); |
383 exit(true); |