| … | |
… | |
| 2612 | } elsif ($ev->{button} == 2) { |
2612 | } elsif ($ev->{button} == 2) { |
| 2613 | $::CONN->send ("apply $item->{tag}"); |
2613 | $::CONN->send ("apply $item->{tag}"); |
| 2614 | } elsif ($ev->{button} == 3) { |
2614 | } elsif ($ev->{button} == 3) { |
| 2615 | my @menu_items = ( |
2615 | my @menu_items = ( |
| 2616 | ["examine", sub { $::CONN->send ("examine $item->{tag}") }], |
2616 | ["examine", sub { $::CONN->send ("examine $item->{tag}") }], |
| 2617 | ["mark", sub { $::CONN->send ("mark $item->{tag}") }], |
2617 | ["mark", sub { $::CONN->send ("mark ". pack "N", $item->{tag}) }], |
| 2618 | ["apply", sub { $::CONN->send ("apply $item->{tag}") }], |
2618 | ["apply", sub { $::CONN->send ("apply $item->{tag}") }], |
|
|
2619 | ( |
|
|
2620 | $item->{flags} & Crossfire::Protocol::F_LOCKED |
|
|
2621 | ? ( |
|
|
2622 | ["unlock", sub { $::CONN->send ("lock " . pack "CN", 0, $item->{tag}) }], |
|
|
2623 | ) |
|
|
2624 | : ( |
|
|
2625 | ["lock", sub { $::CONN->send ("lock " . pack "CN", 1, $item->{tag}) }], |
| 2619 | ["drop", sub { $::CONN->send ("move $main::OPENCONT $item->{tag} 0") }], |
2626 | ["drop", sub { $::CONN->send ("move $main::OPENCONT $item->{tag} 0") }], |
| 2620 | [ |
2627 | ) |
| 2621 | $item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock", |
|
|
| 2622 | sub { $::CONN->send ("lock $item->{tag}") }, |
|
|
| 2623 | ], |
2628 | ), |
| 2624 | ); |
2629 | ); |
| 2625 | |
2630 | |
| 2626 | CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev); |
2631 | CFClient::UI::Menu->new (items => \@menu_items)->popup ($ev); |
| 2627 | } |
2632 | } |
| 2628 | |
2633 | |
