… | |
… | |
7 | sub init { |
7 | sub init { |
8 | my ($self) = @_; |
8 | my ($self) = @_; |
9 | |
9 | |
10 | Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{path}.meta", my $data; |
10 | Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{path}.meta", my $data; |
11 | $self->{random} = cf::from_json $data; |
11 | $self->{random} = cf::from_json $data; |
|
|
12 | $self->{random}{custom} ||= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}"; |
12 | } |
13 | } |
13 | |
14 | |
14 | sub visible_name { |
15 | sub visible_name { |
15 | my ($self) = @_; |
16 | my ($self) = @_; |
16 | |
17 | |
17 | # if (my $rmp = $self->{random}) { |
18 | my $rmp = $self->{random}; |
18 | # # todo: be more intelligent about this |
19 | "random map at $rmp->{custom} level $rmp->{dungeon_level}" |
19 | # "?random/$rmp->{origin_map}+$rmp->{origin_x}+$rmp->{origin_y}/$rmp->{dungeon_level}" |
|
|
20 | # } else { |
|
|
21 | $self->as_string |
|
|
22 | # } |
|
|
23 | } |
20 | } |
24 | |
21 | |
25 | sub save_path { |
22 | sub save_path { |
26 | my ($self) = @_; |
23 | my ($self) = @_; |
27 | |
24 | |