ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra/Protocol.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.21 by root, Thu Apr 13 23:56:14 2006 UTC vs.
Revision 1.22 by root, Sat Apr 15 23:58:18 2006 UTC

64 map1acmd => 1, 64 map1acmd => 1,
65 itemcmd => 2, 65 itemcmd => 2,
66 darkness => 1, 66 darkness => 1,
67 facecache => 1, 67 facecache => 1,
68 newmapcmd => 1, 68 newmapcmd => 1,
69 mapinfocmd => 1,
70 plugincmd => 1,
69 extendedTextInfos => 1, 71 extendedTextInfos => 1,
70 }; 72 };
71 73
72 $self->send ("version 1023 1027 perlclient"); 74 $self->send ("version 1023 1027 perlclient");
73 $self->send_setup; 75 $self->send_setup;
445 delete $self->{delayed_scroll_y}; 447 delete $self->{delayed_scroll_y};
446 448
447 $self->map_clear; 449 $self->map_clear;
448} 450}
449 451
452sub feed_mapinfo {
453 my ($self, $data) = @_;
454
455 $self->map_info (split / /, $data, 7);
456}
457
450sub feed_image { 458sub feed_image {
451 my ($self, $data) = @_; 459 my ($self, $data) = @_;
452 460
461
462 my ($num, $len, $data) = unpack "NNa*", $data;
463
453 $self->send_queue; 464 $self->send_queue;
454
455 my ($num, $len, $data) = unpack "NNa*", $data;
456
457 $self->{face}[$num]{image} = $data; 465 $self->{face}[$num]{image} = $data;
458 $self->face_update ($num, $self->{face}[$num]); 466 $self->face_update ($num, $self->{face}[$num]);
459 467
460 my @dirty; 468 my @dirty;
461 469
467 } 475 }
468 476
469 $self->map_update (\@dirty); 477 $self->map_update (\@dirty);
470} 478}
471 479
480=item $conn->map_info ($mode, ...) [OVERWRITE]
481
482 current <flags> <x> <y> <width> <height> <hashstring>
483
484=cut
485
486sub map_info { }
487
472=item $conn->map_clear [OVERWRITE] 488=item $conn->map_clear [OVERWRITE]
473 489
474Called whenever the map is to be erased completely. 490Called whenever the map is to be erased completely.
475 491
476=cut 492=cut

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines