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

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.2 by root, Thu Apr 6 20:04:55 2006 UTC vs.
Revision 1.3 by root, Thu Apr 6 20:15:05 2006 UTC

    my ($self, $data) = @_;
    my ($num, $chksum, $name) = unpack "nNa*", $data;
    $self->{face}[$num] = { name => $name, chksum => $chksum };
+   if (my $data = $self->face_find ($name, $chksum)) {
+      $self->{face}[$num]{image} = $data;
+      $self->face_update ($num, $self->{face}[$num]);
+   } else {
+      $self->send ("askface $num");
+   }
 }
 sub feed_drawinfo {
    my ($self, $data) = @_;
 #   warn "<$data>\n";
 }
 sub feed_image {
    my ($self, $data) = @_;
-   my ($face, $len, $data) = unpack "NNa*", $data;
+   my ($num, $len, $data) = unpack "NNa*", $data;
-   $self->{face}[$face]{image} = $data;
+   $self->{face}[$num]{image} = $data;
-   $self->face_update ($face, $self->{face}[$face]);
+   $self->face_update ($num, $self->{face}[$num]);
+   my @dirty;
    for my $x (0..$self->{mapw} - 1) {
       for my $y (0..$self->{maph} - 1) {
          push @dirty, [$x, $y]
             if grep $_ == $num, @{$self->{map}[$x][$y] || []};
 =cut
 sub face_update { }
+=item $conn->face_find ($facenum, $face) [OVERWRITE]
+Find and return the png image for the given face, or the empty list if no
+face could be found, in which case it will be requested from the server.
+=cut
+sub face_find { }
 =item $conn->send ($data)
 Send a single packet/line to the server.
 =cut

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