changeset 8628 | 627e76986a08 |
parent 8624 | 12bdc51a6790 |
child 8744 | 6c87486fd89b |
8626:cfc44db21d72 | 8628:627e76986a08 |
---|---|
263 if (i < 0) or |
263 if (i < 0) or |
264 (i > LAND_WIDTH - 1) or |
264 (i > LAND_WIDTH - 1) or |
265 (j < 0) or |
265 (j < 0) or |
266 (j > LAND_HEIGHT -1) then |
266 (j > LAND_HEIGHT -1) then |
267 begin |
267 begin |
268 result := 0; |
268 result := 9; |
269 exit; |
269 exit; |
270 end; |
270 end; |
271 |
271 |
272 if Land[j, i] and $FF00 and not lfIce = 0 then |
272 if Land[j, i] and $FF00 and not lfIce = 0 then |
273 result := result + 1; |
273 result := result + 1; |