… | |
… | |
87 | my $row = substr $WORLD->{data}, $top + $Y * $stride, $WORLD->{tilew}; |
87 | my $row = substr $WORLD->{data}, $top + $Y * $stride, $WORLD->{tilew}; |
88 | for my $X (0 .. $WORLD->{tilew} - 1) { |
88 | for my $X (0 .. $WORLD->{tilew} - 1) { |
89 | next if grep $_->flag (cf::FLAG_IS_FLOOR), $self->at ($X, $Y); |
89 | next if grep $_->flag (cf::FLAG_IS_FLOOR), $self->at ($X, $Y); |
90 | my $ob = cf::object::new $WORLD->{arch}[ord substr $row, $X]; |
90 | my $ob = cf::object::new $WORLD->{arch}[ord substr $row, $X]; |
91 | $ob->flag (cf::FLAG_NO_MAP_SAVE, 1); |
91 | $ob->flag (cf::FLAG_NO_MAP_SAVE, 1); |
92 | $self->insert ($ob, $X, $Y); |
92 | $self->insert ($ob, $X, $Y, undef, cf::INS_ABOVE_FLOOR_ONLY); |
93 | } |
93 | } |
94 | } |
94 | } |
95 | } |
95 | } |
96 | |
96 | |
97 | 1 |
97 | 1 |