[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra/Protocol.pm

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.35 by root, Fri May 12 02:27:05 2006 UTC vs.
Revision 1.36 by root, Sat May 13 23:08:59 2006 UTC

 sub feed_delitem {
    my ($self, $data) = @_;
    my @items = map $self->{item}{$_}, unpack "N*", $data;
    $self->_del_items (@items);
    $self->item_delete (@items);
 }
 sub feed_item2 {
          animspeed => $animspeed * TICK, #???
          nrof      => $nrof,
          type      => $type,
       };
+      if (my $prev = $self->{item}{$tag}) {
+         $self->_del_items ($prev);
+         $self->item_delete ($prev);
+      }
       $self->{item}{$tag} = $item;
       push @{ $self->{container}{$location} }, $item;
       push @items, $item;
    }
 }
 sub feed_upditem {
    my ($self, $data) = @_;
-   my ($flags, $tag) = unpack "NN", substr $data, 0, 8, "";
+   my ($flags, $tag) = unpack "CN", substr $data, 0, 5, "";
    my $item = $self->{item}{$tag};
    if ($flags & UPD_LOCATION) {
       $self->item_delete ($item);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines