| … | |
… | |
| 890 | |
890 | |
| 891 | $exit2->{hp} = $x; |
891 | $exit2->{hp} = $x; |
| 892 | $exit2->{sp} = $y; |
892 | $exit2->{sp} = $y; |
| 893 | $exit2->{slaying} = undef; |
893 | $exit2->{slaying} = undef; |
| 894 | |
894 | |
| 895 | unless ($exit2->{slaying} =~ m/^\.\./) { |
|
|
| 896 | $exit2->{slaying} = '/' . $exit2->{slaying}; |
|
|
| 897 | } |
|
|
| 898 | |
|
|
| 899 | $self->SUPER::begin ($self->{sel_exit}->[1], $self->{sel_exit}->[3], $self->{sel_exit}->[4]); |
895 | $self->SUPER::begin ($self->{sel_exit}->[1], $self->{sel_exit}->[3], $self->{sel_exit}->[4]); |
| 900 | $self->{sel_exit}->[1]->change_stack ($self->{sel_exit}->[3], $self->{sel_exit}->[4], $self->{sel_exit}->[2]); |
896 | $self->{sel_exit}->[1]->change_stack ($self->{sel_exit}->[3], $self->{sel_exit}->[4], $self->{sel_exit}->[2]); |
| 901 | $self->SUPER::end ($self->{sel_exit}->[1]); |
897 | $self->SUPER::end ($self->{sel_exit}->[1]); |
| 902 | |
898 | |
| 903 | quick_msg ($mapedit, "($self->{sel_exit}->[3]:$self->{sel_exit}->[4]) $self->{sel_exit}->[0]->{_name} => ($x:$y) $exit2->{_name}", 0); |
899 | quick_msg ($mapedit, "($self->{sel_exit}->[3]:$self->{sel_exit}->[4]) $self->{sel_exit}->[0]->{_name} => ($x:$y)", 0); |
| 904 | |
900 | |
| 905 | $::MAINWIN->{edit_collection}{pick}->edit ($map, $x, $y); |
901 | $::MAINWIN->{edit_collection}{pick}->edit ($map, $x, $y); |
| 906 | |
902 | |
| 907 | $self->{sel_exit} = undef; |
903 | $self->{sel_exit} = undef; |
| 908 | $self->{sel_lbl}->set_text (''); |
904 | $self->{sel_lbl}->set_text (''); |
