… | |
… | |
456 | } |
456 | } |
457 | |
457 | |
458 | sub addme_success { |
458 | sub addme_success { |
459 | my ($self) = @_; |
459 | my ($self) = @_; |
460 | |
460 | |
461 | $self->send ("command output-sync $::CFG->{output_sync}"); |
|
|
462 | $self->send ("command output-count $::CFG->{output_count}"); |
|
|
463 | |
|
|
464 | my $parser = new Pod::POM; |
461 | my $parser = new Pod::POM; |
465 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod"); |
462 | my $pod = $parser->parse_file (CFClient::find_rcfile "pod/skill_help.pod"); |
466 | |
463 | |
467 | my %skill_tooltip; |
464 | my %skill_tooltip; |
468 | |
465 | |
… | |
… | |
604 | if ($tag == 0) { |
601 | if ($tag == 0) { |
605 | update_floorbox; |
602 | update_floorbox; |
606 | update_container (0); |
603 | update_container (0); |
607 | } elsif ($tag == $self->{player}{tag}) { |
604 | } elsif ($tag == $self->{player}{tag}) { |
608 | $::INV->set_items ($self->{container}{$tag}) |
605 | $::INV->set_items ($self->{container}{$tag}) |
|
|
606 | } else { |
|
|
607 | update_container ($tag); |
609 | } |
608 | } |
610 | |
609 | |
611 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
610 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
612 | } |
611 | } |
613 | |
612 | |
… | |
… | |
621 | update_floorbox; |
620 | update_floorbox; |
622 | update_container ($_->{tag}); |
621 | update_container ($_->{tag}); |
623 | } elsif ($_->{container} == $self->{player}{tag}) { |
622 | } elsif ($_->{container} == $self->{player}{tag}) { |
624 | $::INV->set_items ($self->{container}{$self->{player}{tag}}) |
623 | $::INV->set_items ($self->{container}{$self->{player}{tag}}) |
625 | } else { |
624 | } else { |
626 | update_container ($_->{tag}); |
625 | update_container ($_->{container}); |
627 | } |
626 | } |
628 | } |
627 | } |
629 | } |
628 | } |
630 | |
629 | |
631 | sub item_update { |
630 | sub item_update { |
… | |
… | |
656 | } |
655 | } |
657 | |
656 | |
658 | sub player_update { |
657 | sub player_update { |
659 | my ($self, $player) = @_; |
658 | my ($self, $player) = @_; |
660 | $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000); |
659 | $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000); |
|
|
660 | |
|
|
661 | # do it here because it is ignored earlier, and there is no "login" event |
|
|
662 | $self->send_command ("output-sync $::CFG->{output_sync}"); |
|
|
663 | $self->send_command ("output-count $::CFG->{output_count}"); |
661 | } |
664 | } |
662 | |
665 | |
663 | 1; |
666 | 1; |