| … | |
… | |
| 133 | |
133 | |
| 134 | my $face = $self->{face}[$num] = { name => $name, chksum => $chksum }; |
134 | my $face = $self->{face}[$num] = { name => $name, chksum => $chksum }; |
| 135 | |
135 | |
| 136 | if (my $data = $self->face_find ($face)) { |
136 | if (my $data = $self->face_find ($face)) { |
| 137 | $face->{image} = $data; |
137 | $face->{image} = $data; |
| 138 | $self->face_update ($face); |
138 | $self->face_update ($num, $face); |
| 139 | } else { |
139 | } else { |
| 140 | $self->send_queue ("askface $num"); |
140 | $self->send_queue ("askface $num"); |
| 141 | } |
141 | } |
| 142 | } |
142 | } |
| 143 | |
143 | |
| … | |
… | |
| 455 | $self->send_queue; |
455 | $self->send_queue; |
| 456 | |
456 | |
| 457 | my ($num, $len, $data) = unpack "NNa*", $data; |
457 | my ($num, $len, $data) = unpack "NNa*", $data; |
| 458 | |
458 | |
| 459 | $self->{face}[$num]{image} = $data; |
459 | $self->{face}[$num]{image} = $data; |
| 460 | $self->face_update ($self->{face}[$num]); |
460 | $self->face_update ($num, $self->{face}[$num]); |
| 461 | |
461 | |
| 462 | my @dirty; |
462 | my @dirty; |
| 463 | |
463 | |
| 464 | for my $x (0..$self->{mapw} - 1) { |
464 | for my $x (0..$self->{mapw} - 1) { |
| 465 | for my $y (0..$self->{maph} - 1) { |
465 | for my $y (0..$self->{maph} - 1) { |
| … | |
… | |
| 494 | |
494 | |
| 495 | =cut |
495 | =cut |
| 496 | |
496 | |
| 497 | sub map_scroll { } |
497 | sub map_scroll { } |
| 498 | |
498 | |
| 499 | =item $conn->face_update ($face) [OVERWRITE] |
499 | =item $conn->face_update ($facenum, $facedata) [OVERWRITE] |
| 500 | |
500 | |
| 501 | Called with the face number of face structure whenever a face image has |
501 | Called with the face number of face structure whenever a face image has |
| 502 | changed. |
502 | changed. |
| 503 | |
503 | |
| 504 | =cut |
504 | =cut |
