| changeset 8266 | 927da572bcdc |
| parent 8182 | 7834c2519070 |
| child 8330 | aaefa587e277 |
| child 8370 | 0c79946e96f8 |
| 8264:db365ea9fce1 | 8266:927da572bcdc |
|---|---|
629 for y:= topY to topY + 5 do |
629 for y:= topY to topY + 5 do |
630 for x:= leftX to rightX do |
630 for x:= leftX to rightX do |
631 if Land[y, x] <> 0 then |
631 if Land[y, x] <> 0 then |
632 begin |
632 begin |
633 inc(c); |
633 inc(c); |
634 if c > 1000 then // avoid accidental triggering |
634 if c > (LAND_WIDTH div 2) then // avoid accidental triggering |
635 begin |
635 begin |
636 hasBorder:= true; |
636 hasBorder:= true; |
637 break; |
637 break; |
638 end; |
638 end; |
639 end; |
639 end; |