… | |
… | |
227 | my $magicmap = delete $o->{magicmap} if exists $o->{magicmap}; |
227 | my $magicmap = delete $o->{magicmap} if exists $o->{magicmap}; |
228 | |
228 | |
229 | my $anim = delete $o->{anim}; |
229 | my $anim = delete $o->{anim}; |
230 | |
230 | |
231 | if ($anim) { |
231 | if ($anim) { |
232 | $o->{animation} = "$o->{_name}$ext"; |
232 | $o->{animation} = "$o->{_name}"; |
233 | |
233 | |
234 | for (@$anim) { |
234 | for (@$anim) { |
235 | $_ .= $ext unless /^facings\s/; |
235 | $_ .= $ext unless /^facings\s/; |
236 | } |
236 | } |
237 | |
237 | |
238 | $ANIM{"$o->{_name}$ext"} = |
238 | $ANIM{"$o->{_name}$ext"} = |
239 | join "", map "$_\n", |
239 | join "", map "$_\n", |
240 | "anim $o->{_name}$ext", |
240 | "anim $o->{_name}", |
241 | @$anim, |
241 | @$anim, |
242 | "mina"; |
242 | "mina"; |
243 | } |
243 | } |
244 | |
244 | |
245 | for my $face ($o->{face} || (), @{$anim || []}) { |
245 | for my $face ($o->{face} || (), @{$anim || []}) { |