| … | |
… | |
| 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 | |
| … | |
… | |
| 3049 | glClearColor +($::CFG->{fow_intensity}) x 3, 1; |
3054 | glClearColor +($::CFG->{fow_intensity}) x 3, 1; |
| 3050 | glClear GL_COLOR_BUFFER_BIT; |
3055 | glClear GL_COLOR_BUFFER_BIT; |
| 3051 | |
3056 | |
| 3052 | glMatrixMode GL_PROJECTION; |
3057 | glMatrixMode GL_PROJECTION; |
| 3053 | glLoadIdentity; |
3058 | glLoadIdentity; |
| 3054 | glOrtho 0, $::WIDTH, $::HEIGHT, 0, -10000 , 10000; |
3059 | glOrtho 0, $::WIDTH, $::HEIGHT, 0, -10000, 10000; |
| 3055 | glMatrixMode GL_MODELVIEW; |
3060 | glMatrixMode GL_MODELVIEW; |
| 3056 | glLoadIdentity; |
3061 | glLoadIdentity; |
| 3057 | |
3062 | |
| 3058 | $self->_draw; |
3063 | $self->_draw; |
| 3059 | } |
3064 | } |
