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.24 by root, Tue Jun 6 03:05:16 2006 UTC vs.
Revision 1.26 by root, Wed Jun 7 05:54:09 2006 UTC

486 486
487 $::FLOORBOX->clear; 487 $::FLOORBOX->clear;
488 488
489 my $row; 489 my $row;
490 for (@{ $::CONN->{container}{0} }) { 490 for (@{ $::CONN->{container}{0} }) {
491 if ($row < 7) { 491 if ($row < 6) {
492 local $_->{face_widget}; # hack to force recreation of widget 492 local $_->{face_widget}; # hack to force recreation of widget
493 local $_->{desc_widget}; # hack to force recreation of widget 493 local $_->{desc_widget}; # hack to force recreation of widget
494 CFClient::Item::update_widgets $_; 494 CFClient::Item::update_widgets $_;
495 495
496 $::FLOORBOX->add (0, $row, $_->{face_widget}); 496 $::FLOORBOX->add (0, $row, $_->{face_widget});
497 $::FLOORBOX->add (1, $row, $_->{desc_widget}); 497 $::FLOORBOX->add (1, $row, $_->{desc_widget});
498 498
499 $row++; 499 $row++;
500 } else { 500 } else {
501 $::FLOORBOX->add (1, $row, new CFClient::UI::Label text => "More..."); 501 $::FLOORBOX->add (1, $row, new CFClient::UI::Button
502 text => "More...",
503 on_activate => sub { $::INV_WINDOW->toggle_visibility },
504 );
502 last; 505 last;
503 } 506 }
504 } 507 }
505 }); 508 });
506 509
615 } 618 }
616} 619}
617 620
618sub player_update { 621sub player_update {
619 my ($self, $player) = @_; 622 my ($self, $player) = @_;
623
620 $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000); 624 $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000);
621 625
622 # do it here because it is ignored earlier, and there is no "login" event 626 # do it here because it is ignored earlier, and there is no "login" event
623 $self->send_command ("output-sync $::CFG->{output_sync}"); 627 $self->send_command ("output-sync $::CFG->{output_sync}");
624 $self->send_command ("output-count $::CFG->{output_count}"); 628 $self->send_command ("output-count $::CFG->{output_count}");
629 $self->send_command ("pickup $::CFG->{pickup}")
625} 630}
626 631
6271; 6321;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines