| … | … | ||
|---|---|---|---|
| 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) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |