| … | |
… | |
| 81 | Coro::Storable::thaw $map |
81 | Coro::Storable::thaw $map |
| 82 | } |
82 | } |
| 83 | |
83 | |
| 84 | sub reload() { |
84 | sub reload() { |
| 85 | $WORLD = load_gridmap "$MAPDIR/world"; |
85 | $WORLD = load_gridmap "$MAPDIR/world"; |
| 86 | warn "worldmap gridmap loaded."; |
86 | cf::trace "worldmap gridmap loaded.\n"; |
| 87 | } |
87 | } |
| 88 | |
88 | |
| 89 | { |
89 | { |
| 90 | my $guard = cf::lock_acquire "ext::world_gridmap"; |
90 | my $guard = cf::lock_acquire "ext::world_gridmap"; |
| 91 | |
91 | |
| … | |
… | |
| 135 | } |
135 | } |
| 136 | |
136 | |
| 137 | sub fill { |
137 | sub fill { |
| 138 | my ($self) = @_; |
138 | my ($self) = @_; |
| 139 | |
139 | |
| 140 | $self->add_underlay ("\x00" x ($WORLD->{tile_w} * $WORLD->{tile_h}), 0, $WORLD->{tile_w}, $WORLD->{arc_plt}); |
140 | $self->add_underlay ("\x00" x ($WORLD->{tile_w} * $WORLD->{tile_h}), 0, $WORLD->{tile_w}, $WORLD->{arc_plt});#d# |
| 141 | $self->default_region (cf::region::find $WORLD->{reg_plt}[0]); |
141 | $self->default_region (cf::region::find $WORLD->{reg_plt}[0]); |
| 142 | } |
142 | } |
| 143 | |
143 | |
| 144 | sub load { |
144 | sub load { |
| 145 | my ($self) = @_; |
145 | my ($self) = @_; |
