| … | |
… | |
| 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; |
