… | |
… | |
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 | |
|
|
452 | sub feed_mapinfo { |
|
|
453 | my ($self, $data) = @_; |
|
|
454 | |
|
|
455 | $self->map_info (split / /, $data, 7); |
|
|
456 | } |
|
|
457 | |
450 | sub feed_image { |
458 | sub 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 | |
|
|
486 | sub map_info { } |
|
|
487 | |
472 | =item $conn->map_clear [OVERWRITE] |
488 | =item $conn->map_clear [OVERWRITE] |
473 | |
489 | |
474 | Called whenever the map is to be erased completely. |
490 | Called whenever the map is to be erased completely. |
475 | |
491 | |
476 | =cut |
492 | =cut |