| … | |
… | |
| 57 | my ($map, $x, $y, $uuid) = @{ $who->{town_portal} }; |
57 | my ($map, $x, $y, $uuid) = @{ $who->{town_portal} }; |
| 58 | |
58 | |
| 59 | $who->goto ($map, $x, $y, sub { |
59 | $who->goto ($map, $x, $y, sub { |
| 60 | my ($map) = @_; |
60 | my ($map) = @_; |
| 61 | |
61 | |
|
|
62 | $map->load; # make sure the map is loaded |
|
|
63 | |
| 62 | if (grep $_->uuid eq $uuid, $map->at ($x, $y)) { |
64 | if (grep $_->uuid eq $uuid, $map->at ($x, $y)) { |
| 63 | $who->reply (undef, "The town portal weaves its magic... and after a short moment, you return to the magic portal.", cf::NDI_NAVY); |
65 | $who->reply (undef, "The town portal weaves its magic... and after a short moment, you return to the magic portal.", cf::NDI_NAVY); |
| 64 | |
66 | |
| 65 | delete $who->{town_portal}; |
67 | delete $who->{town_portal}; |
| 66 | |
68 | |
