… | |
… | |
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 | |
… | |
… | |
658 | } |
655 | } |
659 | |
656 | |
660 | sub player_update { |
657 | sub player_update { |
661 | my ($self, $player) = @_; |
658 | my ($self, $player) = @_; |
662 | $::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}"); |
663 | } |
664 | } |
664 | |
665 | |
665 | 1; |
666 | 1; |