| … | |
… | |
| 581 | sub feed_upditem { |
581 | sub feed_upditem { |
| 582 | my ($self, $data) = @_; |
582 | my ($self, $data) = @_; |
| 583 | |
583 | |
| 584 | my ($flags, $tag) = unpack "CN", substr $data, 0, 5, ""; |
584 | my ($flags, $tag) = unpack "CN", substr $data, 0, 5, ""; |
| 585 | |
585 | |
| 586 | if (($flags & UPD_WEIGHT) and ($tag == $self->{player}{tag})) { |
|
|
| 587 | return; # ignore player updates |
|
|
| 588 | } |
|
|
| 589 | |
|
|
| 590 | my $item = $self->{item}{$tag}; |
586 | my $item = $self->{item}{$tag}; |
| 591 | |
587 | |
| 592 | if ($flags & UPD_LOCATION) { |
588 | if ($flags & UPD_LOCATION) { |
| 593 | $self->item_delete ($item); |
589 | $self->item_delete ($item); |
| 594 | $self->{container}{$item->{container}} = [ |
590 | $self->{container}{$item->{container}} = [ |
