… | |
… | |
884 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; |
884 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; |
885 | |
885 | |
886 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
886 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
887 | |
887 | |
888 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
888 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
889 | $vb1->add (my $lbl = new CFClient::UI::Label); |
889 | $vb1->add (my $lbl = new CFClient::UI::Label xalign => 0.5); |
890 | $lbl->set_text ("Player"); |
890 | $lbl->set_text ("Player"); |
891 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
891 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
892 | |
892 | |
893 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
893 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
894 | $vb2->add ($INVR_LBL = new CFClient::UI::Label); |
894 | $vb2->add ($INVR_LBL = new CFClient::UI::Label xalign => 0.5); |
895 | $INVR_LBL->set_text ("Floor"); |
895 | $INVR_LBL->set_text ("Floor"); |
896 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
896 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
897 | |
897 | |
898 | $invwin |
898 | $invwin |
899 | } |
899 | } |
… | |
… | |
1779 | } elsif ($tag == $self->{player}{tag}) { |
1779 | } elsif ($tag == $self->{player}{tag}) { |
1780 | $INVR_LBL->set_text ("Player"); |
1780 | $INVR_LBL->set_text ("Player"); |
1781 | $INV->set_items ($self->{container}{$self->{player}{tag}}) |
1781 | $INV->set_items ($self->{container}{$self->{player}{tag}}) |
1782 | } else { |
1782 | } else { |
1783 | $OPENCONT = $tag; |
1783 | $OPENCONT = $tag; |
1784 | $INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT})); |
1784 | $INVR_LBL->set_text (CFClient::Item::desc_string $self->{item}->{$OPENCONT}); |
1785 | $INVR->set_items ($self->{container}{$tag}); |
1785 | $INVR->set_items ($self->{container}{$tag}); |
1786 | } |
1786 | } |
1787 | |
1787 | |
1788 | # $self-<{player}{tag} => player inv |
1788 | # $self-<{player}{tag} => player inv |
1789 | #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}}; |
1789 | #use PApp::Util; warn PApp::Util::dumpval $self->{container}{$self->{player}{tag}}; |
… | |
… | |
1802 | } elsif ($tag == $self->{player}{tag}) { |
1802 | } elsif ($tag == $self->{player}{tag}) { |
1803 | $INVR_LBL->set_text ("Player"); |
1803 | $INVR_LBL->set_text ("Player"); |
1804 | $INV->set_items ($self->{container}{$tag}) |
1804 | $INV->set_items ($self->{container}{$tag}) |
1805 | } else { |
1805 | } else { |
1806 | $OPENCONT = $tag; |
1806 | $OPENCONT = $tag; |
1807 | $INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT})); |
1807 | $INVR_LBL->set_text (CFClient::Item::desc_string $self->{item}->{$OPENCONT}); |
1808 | $INVR->set_items ($self->{container}{$tag}); |
1808 | $INVR->set_items ($self->{container}{$tag}); |
1809 | } |
1809 | } |
1810 | |
1810 | |
1811 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
1811 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
1812 | } |
1812 | } |
… | |
… | |
1825 | } elsif ($_->{container} == $self->{player}{tag}) { |
1825 | } elsif ($_->{container} == $self->{player}{tag}) { |
1826 | $INVR_LBL->set_text ("Player"); |
1826 | $INVR_LBL->set_text ("Player"); |
1827 | $INV->set_items ($self->{container}{$self->{player}{tag}}) |
1827 | $INV->set_items ($self->{container}{$self->{player}{tag}}) |
1828 | } else { |
1828 | } else { |
1829 | $OPENCONT = $_->{container}; |
1829 | $OPENCONT = $_->{container}; |
1830 | $INVR_LBL->set_text (CFClient::UI::InventoryItem::_item_to_desc ($self->{item}->{$OPENCONT})); |
1830 | $INVR_LBL->set_text (CFClient::Item::desc_string $self->{item}->{$OPENCONT}); |
1831 | $INVR->set_items ($self->{container}{$_->{container}}); |
1831 | $INVR->set_items ($self->{container}{$_->{container}}); |
1832 | } |
1832 | } |
1833 | } |
1833 | } |
1834 | } |
1834 | } |
1835 | |
1835 | |