| … | |
… | |
| 311 | expand => 1, align => 0, text => "Apply", |
311 | expand => 1, align => 0, text => "Apply", |
| 312 | tooltip => "Apply the audio settings", |
312 | tooltip => "Apply the audio settings", |
| 313 | connect_activate => sub { |
313 | connect_activate => sub { |
| 314 | audio_shutdown (); |
314 | audio_shutdown (); |
| 315 | audio_init (); |
315 | audio_init (); |
|
|
316 | } |
|
|
317 | ); |
|
|
318 | |
|
|
319 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Communication cmd"); |
|
|
320 | $table->add (1, $row++, my $saycmd = new CFClient::UI::Entry |
|
|
321 | text => $CFG->{say_command}, |
|
|
322 | tooltip => "This is the command that will be used if you write a line in the message window entry. " |
|
|
323 | ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
|
|
324 | ."But you could also set it to 'tell <playername>' to only chat with that user.", |
|
|
325 | connect_changed => sub { |
|
|
326 | my ($self, $value) = @_; |
|
|
327 | $CFG->{say_command} = $value; |
| 316 | } |
328 | } |
| 317 | ); |
329 | ); |
| 318 | |
330 | |
| 319 | $dialog |
331 | $dialog |
| 320 | } |
332 | } |
| … | |
… | |
| 692 | my ($self, $value) = @_; |
704 | my ($self, $value) = @_; |
| 693 | $CFG->{password} = $value; |
705 | $CFG->{password} = $value; |
| 694 | } |
706 | } |
| 695 | ); |
707 | ); |
| 696 | |
708 | |
| 697 | $table->add (0, 6, new CFClient::UI::Label valign => 0, align => 1, text => "Def. say cmd"); |
|
|
| 698 | $table->add (1, 6, my $saycmd = new CFClient::UI::Entry |
|
|
| 699 | text => $CFG->{say_command}, |
|
|
| 700 | tooltip => "This is the command that will be used if you write a line in the message window entry. " |
|
|
| 701 | ."Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
|
|
| 702 | ."But you could also set it to 'tell <playername>' to only chat with that user.", |
|
|
| 703 | connect_changed => sub { |
|
|
| 704 | my ($self, $value) = @_; |
|
|
| 705 | $CFG->{say_command} = $value; |
|
|
| 706 | } |
|
|
| 707 | ); |
|
|
| 708 | |
|
|
| 709 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
709 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
| 710 | $table->add (1, 7, new CFClient::UI::Slider |
710 | $table->add (1, 7, new CFClient::UI::Slider |
| 711 | req_w => 100, |
711 | req_w => 100, |
| 712 | range => [$CFG->{mapsize}, 10, 100 + 1, 1], |
712 | range => [$CFG->{mapsize}, 10, 100 + 1, 1], |
| 713 | tooltip => "This is the size of the portion of the map update the server sends you. " |
713 | tooltip => "This is the size of the portion of the map update the server sends you. " |
| … | |
… | |
| 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 | ); |
