| … | |
… | |
| 492 | $LOGIN_BUTTON->set_text ("Login"); |
492 | $LOGIN_BUTTON->set_text ("Login"); |
| 493 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
493 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
| 494 | $SETUP_DIALOG->show; |
494 | $SETUP_DIALOG->show; |
| 495 | $PL_WINDOW->hide; |
495 | $PL_WINDOW->hide; |
| 496 | $SPELL_LIST->clear_spells; |
496 | $SPELL_LIST->clear_spells; |
|
|
497 | $MESSAGE_WINDOW->clear_channels; |
| 497 | $CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN); |
498 | $CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN); |
| 498 | |
499 | |
| 499 | &audio_music_set ([]); |
500 | &audio_music_set ([]); |
| 500 | |
501 | |
| 501 | return unless $CONN; |
502 | return unless $CONN; |
| … | |
… | |
| 1183 | |
1184 | |
| 1184 | sub client_setup { |
1185 | sub client_setup { |
| 1185 | my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]; |
1186 | my $table = new CFPlus::UI::Table expand => 1, col_expand => [0, 1]; |
| 1186 | |
1187 | |
| 1187 | my $row = 0; |
1188 | my $row = 0; |
| 1188 | |
|
|
| 1189 | $table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Chat Command"); |
|
|
| 1190 | $table->add_at (1, $row++, my $saycmd = new CFPlus::UI::Entry |
|
|
| 1191 | text => $CFG->{say_command}, |
|
|
| 1192 | tooltip => "This is the command that will be used if you write a line in the message window entry or press <b>\"</b> in the map window. " |
|
|
| 1193 | . "Usually you want to enter something like 'say' or 'shout' or 'gsay' here. " |
|
|
| 1194 | . "But you could also set it to <b>tell <i>playername</i></b> to only chat with that user.", |
|
|
| 1195 | on_changed => sub { |
|
|
| 1196 | my ($self, $value) = @_; |
|
|
| 1197 | $CFG->{say_command} = $value; |
|
|
| 1198 | 0 |
|
|
| 1199 | } |
|
|
| 1200 | ); |
|
|
| 1201 | |
1189 | |
| 1202 | $table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day"); |
1190 | $table->add_at (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Tip of the day"); |
| 1203 | $table->add_at (1, $row++, new CFPlus::UI::CheckBox |
1191 | $table->add_at (1, $row++, new CFPlus::UI::CheckBox |
| 1204 | state => $CFG->{show_tips}, |
1192 | state => $CFG->{show_tips}, |
| 1205 | tooltip => "Show the <b>Tip of the day</b> window at startup?", |
1193 | tooltip => "Show the <b>Tip of the day</b> window at startup?", |
| … | |
… | |
| 2200 | log_fontsize => 0.7, |
2188 | log_fontsize => 0.7, |
| 2201 | gauge_fontsize => 1, |
2189 | gauge_fontsize => 1, |
| 2202 | gauge_size => 0.35, |
2190 | gauge_size => 0.35, |
| 2203 | stat_fontsize => 0.7, |
2191 | stat_fontsize => 0.7, |
| 2204 | mapsize => 100, |
2192 | mapsize => 100, |
| 2205 | say_command => 'chat', |
|
|
| 2206 | audio_enable => 1, |
2193 | audio_enable => 1, |
| 2207 | bgm_enable => 1, |
2194 | bgm_enable => 1, |
| 2208 | bgm_volume => 0.25, |
2195 | bgm_volume => 0.25, |
| 2209 | face_prefetch => 0, |
2196 | face_prefetch => 0, |
| 2210 | output_sync => 1, |
2197 | output_sync => 1, |
