| … | |
… | |
| 263 | |
263 | |
| 264 | if (($ev->{mod} & CFClient::KMOD_SHIFT) && $ev->{button} == 1) { |
264 | if (($ev->{mod} & CFClient::KMOD_SHIFT) && $ev->{button} == 1) { |
| 265 | my $targ = $::CONN->{player}{tag}; |
265 | my $targ = $::CONN->{player}{tag}; |
| 266 | |
266 | |
| 267 | if ($self->{container} == $::CONN->{player}{tag}) { |
267 | if ($self->{container} == $::CONN->{player}{tag}) { |
| 268 | $targ = $main::OPENCONT; |
268 | $targ = $::CONN->{open_container}; |
| 269 | } |
269 | } |
| 270 | |
270 | |
| 271 | $::CONN->send ("move $targ $self->{tag} 0"); |
271 | $::CONN->send ("move $targ $self->{tag} 0"); |
| 272 | } elsif ($ev->{button} == 1) { |
272 | } elsif ($ev->{button} == 1) { |
| 273 | $::CONN->send ("examine $self->{tag}"); |
273 | $::CONN->send ("examine $self->{tag}"); |
| … | |
… | |
| 283 | ? ( |
283 | ? ( |
| 284 | ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], |
284 | ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $self->{tag}) }], |
| 285 | ) |
285 | ) |
| 286 | : ( |
286 | : ( |
| 287 | ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], |
287 | ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $self->{tag}) }], |
| 288 | ["drop", sub { $::CONN->send ("move $main::OPENCONT $self->{tag} 0") }], |
288 | ["drop", sub { $::CONN->send ("move $::CONN->{open_container} $self->{tag} 0") }], |
| 289 | ) |
289 | ) |
| 290 | ), |
290 | ), |
| 291 | ); |
291 | ); |
| 292 | |
292 | |
| 293 | CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev); |
293 | CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev); |
