… | |
… | |
54 | my ($self) = @_; |
54 | my ($self) = @_; |
55 | |
55 | |
56 | if ($self->{load_path}) { |
56 | if ($self->{load_path}) { |
57 | $self->SUPER::load; |
57 | $self->SUPER::load; |
58 | } else { |
58 | } else { |
|
|
59 | $self->alloc; |
|
|
60 | |
59 | for my $X (0 .. $WORLD->{tilew} - 1) { |
61 | for my $X (0 .. $WORLD->{tilew} - 1) { |
60 | Coro::cede; |
62 | Coro::cede; |
61 | for my $Y (0 .. $WORLD->{tileh} - 1) { |
63 | for my $Y (0 .. $WORLD->{tileh} - 1) { |
62 | my $ob = cf::object::new "deep_sea"; |
64 | my $ob = cf::object::new "deep_sea"; |
63 | $self->insert ($ob, $X, $Y); |
65 | $self->insert ($ob, $X, $Y); |
64 | } |
66 | } |
65 | } |
67 | } |
66 | $self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1); |
68 | $self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1); |
|
|
69 | |
|
|
70 | $self->in_memory (cf::MAP_IN_MEMORY); |
67 | } |
71 | } |
68 | } |
72 | } |
69 | |
73 | |
70 | sub pre_load { |
74 | sub pre_load { |
71 | my ($self) = @_; |
75 | my ($self) = @_; |