| … | |
… | |
| 861 | } |
861 | } |
| 862 | |
862 | |
| 863 | $self->map_update (\@dirty); |
863 | $self->map_update (\@dirty); |
| 864 | } |
864 | } |
| 865 | |
865 | |
|
|
866 | =item $conn->image_info ($numfaces, $chksum, [...image-sets]) |
|
|
867 | |
|
|
868 | =cut |
|
|
869 | |
|
|
870 | sub image_info { } |
|
|
871 | |
| 866 | sub feed_replyinfo { |
872 | sub feed_replyinfo { |
| 867 | my ($self, $data) = @_; |
873 | my ($self, $data) = @_; |
| 868 | |
874 | |
| 869 | if ($data =~ s/^image_sums \d+ \d+ //) { |
875 | if ($data =~ s/^image_sums \d+ \d+ //) { |
| 870 | my ($num, $chksum, $faceset, $name) = unpack "n N C C/Z*", $data; |
876 | my ($num, $chksum, $faceset, $name) = unpack "n N C C/Z*", $data; |
| 871 | |
877 | |
| 872 | $self->need_face ($num, $name, $chksum); |
878 | $self->need_face ($num, $name, $chksum); |
|
|
879 | |
|
|
880 | } elsif ($data =~ s/^image_info\s+//) { |
|
|
881 | $self->image_info (split /\n/, $data); |
|
|
882 | |
| 873 | } elsif ($data =~ s/^skill_info\s+//) { |
883 | } elsif ($data =~ s/^skill_info\s+//) { |
| 874 | for (split /\012/, $data) { |
884 | for (split /\012/, $data) { |
| 875 | my ($id, $name) = split /:/, $_, 2; |
885 | my ($id, $name) = split /:/, $_, 2; |
| 876 | $self->{skill_info}{$id} = $name; |
886 | $self->{skill_info}{$id} = $name; |
| 877 | } |
887 | } |
|
|
888 | |
| 878 | } elsif ($data =~ s/^spell_paths\s+//) { |
889 | } elsif ($data =~ s/^spell_paths\s+//) { |
| 879 | for (split /\012/, $data) { |
890 | for (split /\012/, $data) { |
| 880 | my ($id, $name) = split /:/, $_, 2; |
891 | my ($id, $name) = split /:/, $_, 2; |
| 881 | $self->{spell_paths}{$id} = $name; |
892 | $self->{spell_paths}{$id} = $name; |
| 882 | } |
893 | } |
