| … | |
… | |
| 353 | sub anim_update { } |
353 | sub anim_update { } |
| 354 | |
354 | |
| 355 | sub feed_anim { |
355 | sub feed_anim { |
| 356 | my ($self, $data) = @_; |
356 | my ($self, $data) = @_; |
| 357 | |
357 | |
| 358 | my ($num, @faces) = unpack "n*", $data; |
358 | my ($num, $flags, @faces) = unpack "n*", $data; |
| 359 | |
359 | |
| 360 | $self->{anim}[$num] = \@faces; |
360 | $self->{anim}[$num] = \@faces; |
| 361 | |
361 | |
| 362 | $self->anim_update ($num); |
362 | $self->anim_update ($num); |
| 363 | } |
363 | } |
| … | |
… | |
| 556 | weight => $weight, |
556 | weight => $weight, |
| 557 | face => $face, |
557 | face => $face, |
| 558 | name => $name, |
558 | name => $name, |
| 559 | name_pl => $name_pl, |
559 | name_pl => $name_pl, |
| 560 | anim => $anim, |
560 | anim => $anim, |
| 561 | animspeed => $animspeed * TICK, #??? |
561 | animspeed => $animspeed * TICK, |
| 562 | nrof => $nrof, |
562 | nrof => $nrof, |
| 563 | type => $type, |
563 | type => $type, |
| 564 | }; |
564 | }; |
| 565 | |
565 | |
| 566 | if (my $prev = $self->{item}{$tag}) { |
566 | if (my $prev = $self->{item}{$tag}) { |
