… | |
… | |
821 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h}); |
821 | $ALT_ENTER_MESSAGE->move (0, $HEIGHT - $ALT_ENTER_MESSAGE->{h}); |
822 | |
822 | |
823 | CFClient::UI::FancyFrame->new ( |
823 | CFClient::UI::FancyFrame->new ( |
824 | border_bg => [1, 1, 1, 192/255], |
824 | border_bg => [1, 1, 1, 192/255], |
825 | bg => [1, 1, 1, 0], |
825 | bg => [1, 1, 1, 0], |
826 | child => $MAPMAP = new CFClient::MapWidget::MapMap |
826 | child => ($MAPMAP = new CFClient::MapWidget::MapMap), |
827 | )->show; |
827 | )->show; |
828 | |
828 | |
829 | $MAPWIDGET = new CFClient::MapWidget; |
829 | $MAPWIDGET = new CFClient::MapWidget; |
830 | $MAPWIDGET->connect (activate_console => sub { |
830 | $MAPWIDGET->connect (activate_console => sub { |
831 | my ($mapwidget, $preset) = @_; |
831 | my ($mapwidget, $preset) = @_; |
… | |
… | |
1333 | if ($ev->{button} == 1) { |
1333 | if ($ev->{button} == 1) { |
1334 | $CONN->send ("move $CONN->{player}{tag} $item->{tag} 0"); |
1334 | $CONN->send ("move $CONN->{player}{tag} $item->{tag} 0"); |
1335 | } elsif ($ev->{button} == 2) { |
1335 | } elsif ($ev->{button} == 2) { |
1336 | $CONN->send ("apply $item->{tag}"); |
1336 | $CONN->send ("apply $item->{tag}"); |
1337 | } elsif ($ev->{button} == 3) { |
1337 | } elsif ($ev->{button} == 3) { |
1338 | # examine, lock, mark, maybe other things |
1338 | CFClient::UI::Menu->new ( |
1339 | warn "MENU not implemented yet\n"; |
1339 | items => [ |
|
|
1340 | ["examine", sub { $CONN->send ("examine $item->{tag}") }], |
|
|
1341 | [ |
|
|
1342 | $item->{flags} & Crossfire::Protocol::F_LOCKED ? "lock" : "unlock", |
|
|
1343 | sub { $CONN->send ("lock $item->{tag}") }, |
|
|
1344 | ], |
|
|
1345 | ["mark", sub { $CONN->send ("mark $item->{tag}") }], |
|
|
1346 | ["apply", sub { $CONN->send ("apply $item->{tag}") }], |
|
|
1347 | ], |
|
|
1348 | )->popup ($ev); |
1340 | } |
1349 | } |
1341 | |
1350 | |
1342 | 1 |
1351 | 1 |
1343 | }, |
1352 | }, |
1344 | ); |
1353 | ); |