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