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

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.23 by root, Sun Apr 16 17:03:16 2006 UTC vs.
Revision 1.24 by root, Mon Apr 17 06:50:45 2006 UTC

    my $class = shift;
    my $self = bless {
       mapw            => 13,
       maph            => 13,
       max_outstanding => 2,
+      token           => "a0",
       @_
    }, $class;
    $self->{fh} = new IO::Socket::INET PeerHost => $self->{host}, PeerPort => $self->{port}
       or die "$self->{host}:$self->{port}: $!";
    my ($dx, $dy) = split / /, $data;
    $self->{delayed_scroll_x} += $dx;
    $self->{delayed_scroll_y} += $dy;
+   $self->map_scroll ($dx, $dy);
 }
 sub feed_newmap {
    my ($self) = @_;
    $self->map_clear;
 }
 sub feed_mapinfo {
    my ($self, $data) = @_;
+   my ($token, @data) = split / /, $data;
-   $self->map_info (split / /, $data, 7);
+   (delete $self->{mapinfo_cb}{$token})->(@data)
+      if $self->{mapinfo_cb}{$token};
+   $self->map_change (@data) if $token eq "-";
+}
+sub send_mapinfo {
+   my ($self, $data, $cb) = @_;
+   my $token = ++$self->{token};
+   $self->{mapinfo_cb}{$token} = $cb;
+   $self->send ("mapinfo $token $data");
 }
 sub feed_image {
    my ($self, $data) = @_;
    my ($num, $len, $data) = unpack "NNa*", $data;
    $self->send_queue;
    $self->{face}[$num]{image} = $data;
    }
    $self->map_update (\@dirty);
 }
-=item $conn->map_info ($mode, ...) [OVERWRITE]
+=item $conn->map_change ($mode, ...) [OVERWRITE]
    current <flags> <x> <y> <width> <height> <hashstring>
 =cut

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