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