| changeset 7591 | d9ff60e0a390 |
| parent 7575 | f415b3e0f3b9 |
| child 7594 | 5f03595335e6 |
| 7589:63d937a764e2 | 7591:d9ff60e0a390 |
|---|---|
611 for y:= topY to topY + 5 do |
611 for y:= topY to topY + 5 do |
612 for x:= leftX to rightX do |
612 for x:= leftX to rightX do |
613 if Land[y, x] <> 0 then |
613 if Land[y, x] <> 0 then |
614 begin |
614 begin |
615 inc(c); |
615 inc(c); |
616 if c > 200 then // avoid accidental triggering |
616 if c > 1000 then // avoid accidental triggering |
617 begin |
617 begin |
618 hasBorder:= true; |
618 hasBorder:= true; |
619 break; |
619 break; |
620 end; |
620 end; |
621 end; |
621 end; |