… | |
… | |
422 | } |
422 | } |
423 | |
423 | |
424 | sub face_update { |
424 | sub face_update { |
425 | my ($self, $facenum, $face) = @_; |
425 | my ($self, $facenum, $face) = @_; |
426 | |
426 | |
427 | $self->{tilecache}->put ($face->{id} => $face->{image}); #TODO: try to avoid duplicate writes |
427 | $self->{tilecache}->put ($face->{id} => $face->{image}) |
|
|
428 | if $self->{tilecache}->get ($face->{id}) ne $face->{image}; |
428 | |
429 | |
429 | $self->set_texture ($face->{id} => delete $face->{image}); |
430 | $self->set_texture ($face->{id} => delete $face->{image}); |
430 | } |
431 | } |
431 | |
432 | |
432 | sub set_texture { |
433 | sub set_texture { |
… | |
… | |
651 | |
652 | |
652 | sub update_containers { |
653 | sub update_containers { |
653 | my ($self) = @_; |
654 | my ($self) = @_; |
654 | |
655 | |
655 | $CFClient::UI::ROOT->on_refresh ("update_containers_$self" => sub { |
656 | $CFClient::UI::ROOT->on_refresh ("update_containers_$self" => sub { |
656 | for my $tag (keys %{ delete $self->{update_container} }) { |
657 | my $todo = delete $self->{update_container} |
|
|
658 | or return; |
|
|
659 | |
|
|
660 | for my $tag (keys %$todo) { |
657 | if ($tag == 0) { |
661 | if ($tag == 0) { |
658 | update_floorbox; |
662 | update_floorbox; |
659 | $::INVR->set_items ($self->{container}{0}) |
663 | $::INVR->set_items ($self->{container}{0}) |
660 | if $tag == $self->{open_container}; |
664 | if $tag == $self->{open_container}; |
661 | } elsif ($tag == $self->{player}{tag}) { |
665 | } elsif ($tag == $self->{player}{tag}) { |
… | |
… | |
705 | set_opencont ($::CONN, $item->{tag}, CFClient::Item::desc_string $item); |
709 | set_opencont ($::CONN, $item->{tag}, CFClient::Item::desc_string $item); |
706 | |
710 | |
707 | } else { |
711 | } else { |
708 | $self->{update_container}{$item->{container}}++; |
712 | $self->{update_container}{$item->{container}}++; |
709 | $self->update_containers; |
713 | $self->update_containers; |
710 | # if ($item->{container} == 0) { |
|
|
711 | # update_floorbox; |
|
|
712 | # update_container (0); |
|
|
713 | # } elsif ($item->{container} == $self->{player}{tag}) { |
|
|
714 | # $::INV->set_items ($self->{container}{$item->{container}}) |
|
|
715 | # } |
|
|
716 | } |
714 | } |
717 | } |
715 | } |
718 | |
716 | |
719 | sub player_update { |
717 | sub player_update { |
720 | my ($self, $player) = @_; |
718 | my ($self, $player) = @_; |
… | |
… | |
922 | sub destroy { |
920 | sub destroy { |
923 | my ($self) = @_; |
921 | my ($self) = @_; |
924 | |
922 | |
925 | #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1 |
923 | #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1 |
926 | |
924 | |
|
|
925 | $self->{conn}->send ("ext npc_dialog_end $self->{token}") if $self->{token}; |
927 | delete $self->{conn}{npc_dialog}; |
926 | delete $self->{conn}{npc_dialog}; |
928 | $self->{conn}->disconnect_ext ($self->{token}); |
927 | $self->{conn}->disconnect_ext ($self->{token}); |
929 | |
928 | |
930 | $self->SUPER::destroy; |
929 | $self->SUPER::destroy; |
931 | } |
930 | } |