ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/Protocol.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.11 by root, Tue May 30 07:26:02 2006 UTC vs.
Revision 1.13 by root, Wed May 31 07:40:33 2006 UTC

456} 456}
457 457
458sub addme_success { 458sub 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
631sub item_update { 630sub item_update {
656} 655}
657 656
658sub player_update { 657sub 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
6631; 6661;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines