| … | |
… | |
| 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) = @_; |
