| … | |
… | |
| 1277 | } |
1277 | } |
| 1278 | |
1278 | |
| 1279 | $self->{noface} = new_from_file CFClient::Texture |
1279 | $self->{noface} = new_from_file CFClient::Texture |
| 1280 | CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1; |
1280 | CFClient::find_rcfile "noface.png", minify => 1, mipmap => 1; |
| 1281 | |
1281 | |
|
|
1282 | $self->{open_container} = 0; |
|
|
1283 | |
| 1282 | $self |
1284 | $self |
| 1283 | } |
1285 | } |
| 1284 | |
1286 | |
| 1285 | sub conn::stats_update { |
1287 | sub conn::stats_update { |
| 1286 | my ($self, $stats) = @_; |
1288 | my ($self, $stats) = @_; |
| … | |
… | |
| 1812 | |
1814 | |
| 1813 | #d# print "container_clear: container $tag ($self->{player}{tag})\n"; |
1815 | #d# print "container_clear: container $tag ($self->{player}{tag})\n"; |
| 1814 | |
1816 | |
| 1815 | if ($tag == 0) { |
1817 | if ($tag == 0) { |
| 1816 | update_floorbox; |
1818 | update_floorbox; |
|
|
1819 | update_container (0); |
| 1817 | } elsif ($tag == $self->{player}{tag}) { |
1820 | } elsif ($tag == $self->{player}{tag}) { |
| 1818 | $INV->set_items ($self->{container}{$tag}) |
1821 | $INV->set_items ($self->{container}{$tag}) |
| 1819 | } |
1822 | } |
| 1820 | |
1823 | |
| 1821 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
1824 | # use PApp::Util; warn PApp::Util::dumpval $self->{container}{0}; |
| … | |
… | |
| 1856 | } elsif ($item->{flags} & Crossfire::Protocol::F_OPEN) { |
1859 | } elsif ($item->{flags} & Crossfire::Protocol::F_OPEN) { |
| 1857 | set_opencont ($CONN, $item->{tag}, CFClient::Item::desc_string $item); |
1860 | set_opencont ($CONN, $item->{tag}, CFClient::Item::desc_string $item); |
| 1858 | } else { |
1861 | } else { |
| 1859 | if ($item->{container} == 0) { |
1862 | if ($item->{container} == 0) { |
| 1860 | update_floorbox; |
1863 | update_floorbox; |
|
|
1864 | update_container (0); |
| 1861 | } elsif ($item->{container} == $self->{player}{tag}) { |
1865 | } elsif ($item->{container} == $self->{player}{tag}) { |
| 1862 | $INV->set_items ($self->{container}{$item->{container}}) |
1866 | $INV->set_items ($self->{container}{$item->{container}}) |
| 1863 | } |
1867 | } |
| 1864 | } |
1868 | } |
| 1865 | } |
1869 | } |
