| … | |
… | |
| 396 | my ($self, $map, $x, $y) = @_; |
396 | my ($self, $map, $x, $y) = @_; |
| 397 | |
397 | |
| 398 | my $pick = $::MAINWIN->get_pick; |
398 | my $pick = $::MAINWIN->get_pick; |
| 399 | my $as = $map->get ($x, $y); |
399 | my $as = $map->get ($x, $y); |
| 400 | |
400 | |
| 401 | if ($self->{place_clean}->get_active) { |
|
|
| 402 | $pick = { _name => $pick->{_name} }; |
|
|
| 403 | } |
|
|
| 404 | |
|
|
| 405 | my $autojoin = $pick->{_name} =~ /_0$/ |
401 | my $autojoin = $pick->{_name} =~ /_0$/ |
| 406 | && $self->get_mode eq "auto"; |
402 | && $self->get_mode eq "auto"; |
| 407 | |
403 | |
| 408 | autojoin $map, $pick, @{$self->{last_pos}}, $x, $y |
404 | autojoin $map, $pick, @{$self->{last_pos}}, $x, $y |
| 409 | if $autojoin && $self->{last_pos}; |
405 | if $autojoin && $self->{last_pos}; |
