… | |
… | |
175 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
175 | $vbox->add (my $table = new CFClient::UI::Table expand => 1, col_expand => [0, 1]); |
176 | |
176 | |
177 | $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode"); |
177 | $table->add (0, 0, new CFClient::UI::Label valign => 0, align => 1, text => "Video Mode"); |
178 | $table->add (1, 0, my $hbox = new CFClient::UI::HBox); |
178 | $table->add (1, 0, my $hbox = new CFClient::UI::HBox); |
179 | |
179 | |
180 | $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 1, 1]); |
180 | $hbox->add (my $mode_slider = new CFClient::UI::Slider expand => 1, req_w => 100, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1]); |
181 | $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999"); |
181 | $hbox->add (my $mode_label = new CFClient::UI::Label align => 0, valign => 0, height => 0.8, template => "9999x9999"); |
182 | |
182 | |
183 | $mode_slider->connect (changed => sub { |
183 | $mode_slider->connect (changed => sub { |
184 | my ($self, $value) = @_; |
184 | my ($self, $value) = @_; |
185 | |
185 | |
… | |
… | |
230 | } |
230 | } |
231 | ); |
231 | ); |
232 | |
232 | |
233 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity"); |
233 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "FoW Intensity"); |
234 | $table->add (1, $row++, new CFClient::UI::Slider |
234 | $table->add (1, $row++, new CFClient::UI::Slider |
235 | range => [$CFG->{fow_intensity}, 0, 1 + 0.001, 0.001], |
235 | range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256], |
236 | tooltip => "The higher the intensity, the lighter the Fog-of-War color", |
236 | tooltip => "The higher the intensity, the lighter the Fog-of-War color", |
237 | connect_changed => sub { |
237 | connect_changed => sub { |
238 | my ($self, $value) = @_; |
238 | my ($self, $value) = @_; |
239 | $CFG->{fow_intensity} = $value; |
239 | $CFG->{fow_intensity} = $value; |
240 | } |
240 | } |
… | |
… | |
251 | } |
251 | } |
252 | ); |
252 | ); |
253 | |
253 | |
254 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize"); |
254 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "GUI Fontsize"); |
255 | $table->add (1, $row++, new CFClient::UI::Slider |
255 | $table->add (1, $row++, new CFClient::UI::Slider |
256 | range => [$CFG->{gui_fontsize}, 0.5, 2, 0.1, 0.1], |
256 | range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1], |
257 | tooltip => "The font size used by most GUI elements", |
257 | tooltip => "The font size used by most GUI elements", |
258 | connect_changed => sub { $CFG->{gui_fontsize} = $_[1] }, |
258 | connect_changed => sub { $CFG->{gui_fontsize} = $_[1] }, |
259 | ); |
259 | ); |
260 | |
260 | |
261 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize"); |
261 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Server Log Fontsize"); |
262 | $table->add (1, $row++, new CFClient::UI::Slider |
262 | $table->add (1, $row++, new CFClient::UI::Slider |
263 | range => [$CFG->{log_fontsize}, 0.5, 2, 0.1, 0.1], |
263 | range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1], |
264 | tooltip => "The font size used by the server log window only", |
264 | tooltip => "The font size used by the server log window only", |
265 | connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) }, |
265 | connect_changed => sub { $LOGVIEW->set_fontsize ($CFG->{log_fontsize} = $_[1]) }, |
266 | ); |
266 | ); |
267 | |
267 | |
268 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize"); |
268 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Stats Fontsize"); |
269 | |
269 | |
270 | $table->add (1, $row++, new CFClient::UI::Slider |
270 | $table->add (1, $row++, new CFClient::UI::Slider |
271 | range => [$CFG->{stat_fontsize}, 0.5, 2, 0.1, 0.1], |
271 | range => [$CFG->{stat_fontsize}, 0.5, 2, 0, 0.1], |
272 | tooltip => "The font size used by the statistics window only", |
272 | tooltip => "The font size used by the statistics window only", |
273 | connect_changed => sub { |
273 | connect_changed => sub { |
274 | $CFG->{stat_fontsize} = $_[1]; |
274 | $CFG->{stat_fontsize} = $_[1]; |
275 | &set_stats_window_fontsize; |
275 | &set_stats_window_fontsize; |
276 | } |
276 | } |
277 | ); |
277 | ); |
278 | |
278 | |
279 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size"); |
|
|
280 | $table->add (1, $row++, new CFClient::UI::Slider |
|
|
281 | range => [$CFG->{gauge_size}, 0.2, 0.8, 0.02], |
|
|
282 | tooltip => "Adjust the size of the stats gauges at the bottom right", |
|
|
283 | connect_changed => sub { |
|
|
284 | $CFG->{gauge_size} = $_[1]; |
|
|
285 | $GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size}); |
|
|
286 | } |
|
|
287 | ); |
|
|
288 | |
|
|
289 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize"); |
279 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge fontsize"); |
290 | $table->add (1, $row++, new CFClient::UI::Slider |
280 | $table->add (1, $row++, new CFClient::UI::Slider |
291 | range => [$CFG->{gauge_fontsize}, 0.5, 2.0, 0.1, 0.1], |
281 | range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1], |
292 | tooltip => "Adjusts the fontsize of the gauges at the bottom right", |
282 | tooltip => "Adjusts the fontsize of the gauges at the bottom right", |
293 | connect_changed => sub { |
283 | connect_changed => sub { |
294 | $CFG->{gauge_fontsize} = $_[1]; |
284 | $CFG->{gauge_fontsize} = $_[1]; |
295 | &set_gauge_window_fontsize; |
285 | &set_gauge_window_fontsize; |
|
|
286 | } |
|
|
287 | ); |
|
|
288 | |
|
|
289 | $table->add (0, $row, new CFClient::UI::Label valign => 0, align => 1, text => "Gauge size"); |
|
|
290 | $table->add (1, $row++, new CFClient::UI::Slider |
|
|
291 | range => [$CFG->{gauge_size}, 0.2, 0.8], |
|
|
292 | tooltip => "Adjust the size of the stats gauges at the bottom right", |
|
|
293 | connect_changed => sub { |
|
|
294 | $CFG->{gauge_size} = $_[1]; |
|
|
295 | $GAUGES->{win}->set_size ($WIDTH, int $HEIGHT * $CFG->{gauge_size}); |
296 | } |
296 | } |
297 | ); |
297 | ); |
298 | |
298 | |
299 | $table->add (1, $row++, new CFClient::UI::Button |
299 | $table->add (1, $row++, new CFClient::UI::Button |
300 | expand => 1, align => 0, text => "Apply", |
300 | expand => 1, align => 0, text => "Apply", |
… | |
… | |
325 | connect_changed => sub { |
325 | connect_changed => sub { |
326 | $CFG->{bgm_enable} = $_[1]; |
326 | $CFG->{bgm_enable} = $_[1]; |
327 | } |
327 | } |
328 | ); |
328 | ); |
329 | $hbox->add (new CFClient::UI::Slider |
329 | $hbox->add (new CFClient::UI::Slider |
330 | expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0.1], |
330 | expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128], |
331 | tooltip => "The volume of the background music", |
331 | tooltip => "The volume of the background music", |
332 | connect_changed => sub { |
332 | connect_changed => sub { |
333 | $CFG->{bgm_volume} = $_[1]; |
333 | $CFG->{bgm_volume} = $_[1]; |
334 | CFClient::MixMusic::volume $_[1] * 128; |
334 | CFClient::MixMusic::volume $_[1] * 128; |
335 | } |
335 | } |
… | |
… | |
744 | ); |
744 | ); |
745 | |
745 | |
746 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
746 | $table->add (0, 7, new CFClient::UI::Label valign => 0, align => 1, text => "Map Size"); |
747 | $table->add (1, 7, new CFClient::UI::Slider |
747 | $table->add (1, 7, new CFClient::UI::Slider |
748 | req_w => 100, |
748 | req_w => 100, |
749 | range => [$CFG->{mapsize}, 10, 100 + 1, 1, 1], |
749 | range => [$CFG->{mapsize}, 10, 100, 0, 1], |
750 | tooltip => "This is the size of the portion of the map update the server sends you. " |
750 | tooltip => "This is the size of the portion of the map update the server sends you. " |
751 | ."If you set this to a high value you will be able to see further for example.", |
751 | . "If you set this to a high value you will be able to see further for example.", |
752 | connect_changed => sub { |
752 | connect_changed => sub { |
753 | my ($self, $value) = @_; |
753 | my ($self, $value) = @_; |
754 | |
754 | |
755 | $CFG->{mapsize} = $self->{range}[0] = $value = int $value; |
755 | $CFG->{mapsize} = $self->{range}[0] = $value = int $value; |
756 | }, |
756 | }, |
… | |
… | |
910 | |
910 | |
911 | $viewer->clear; |
911 | $viewer->clear; |
912 | |
912 | |
913 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
913 | $viewer->add_paragraph ([1, 1, 1, 1], $_->[1], $_->[0]) |
914 | for @{ CFClient::pod_to_pango_list $pom }; |
914 | for @{ CFClient::pod_to_pango_list $pom }; |
|
|
915 | |
|
|
916 | $viewer->set_offset (0); |
915 | }, |
917 | }, |
916 | ); |
918 | ); |
917 | } |
919 | } |
918 | |
920 | |
919 | $viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>"); |
921 | $viewer->add_paragraph ([1, 1, 0, 1], "<big>Use one of the buttons above to display a document.</big>"); |