| … | … | ||
|---|---|---|---|
| 567 | } | 567 | } |
| 568 | 568 | ||
| 569 | sub conn::flood_fill { | 569 | sub conn::flood_fill { |
| 570 | my ($self, $path, $hash, $flags, $x0, $y0, $x1, $y1) = @_; | 570 | my ($self, $path, $hash, $flags, $x0, $y0, $x1, $y1) = @_; |
| 571 | 571 | ||
| 572 | # the server doe snot allow map paths > 6 | 572 | # the server does not allow map paths > 6 |
| 573 | return if 6 <= length $path; | 573 | return if 6 <= length $path; |
| 574 | 574 | ||
| 575 | for my $tile (1..4) { | 575 | for my $tile (1..4) { |
| 576 | next if $self->{neigh}{$hash}[$tile]; | 576 | next if $self->{neigh}{$hash}[$tile]; |
| 577 | next unless $flags & (1 << ($tile - 1)); | 577 | next unless $flags & (1 << ($tile - 1)); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |