… | |
… | |
607 | $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity"); |
607 | $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Intensity"); |
608 | $table->add (1, $row++, new CFPlus::UI::Slider |
608 | $table->add (1, $row++, new CFPlus::UI::Slider |
609 | range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256], |
609 | range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256], |
610 | tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.", |
610 | tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.", |
611 | on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 } |
611 | on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 } |
612 | ); |
|
|
613 | |
|
|
614 | $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "FoW Smoothing"); |
|
|
615 | $table->add (1, $row++, new CFPlus::UI::CheckBox |
|
|
616 | state => $CFG->{fow_smooth}, |
|
|
617 | tooltip => "Smooth the Fog-of-War a bit to make it more realistic. Changes are instant.", |
|
|
618 | on_changed => sub { |
|
|
619 | my ($self, $value) = @_; |
|
|
620 | $CFG->{fow_smooth} = $value; |
|
|
621 | 0 |
|
|
622 | } |
|
|
623 | ); |
612 | ); |
624 | |
613 | |
625 | $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize"); |
614 | $table->add (0, $row, new CFPlus::UI::Label valign => 0, align => 1, text => "Message Fontsize"); |
626 | $table->add (1, $row++, new CFPlus::UI::Slider |
615 | $table->add (1, $row++, new CFPlus::UI::Slider |
627 | range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1], |
616 | range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1], |
… | |
… | |
2251 | fullscreen => 0, |
2240 | fullscreen => 0, |
2252 | fast => 0, |
2241 | fast => 0, |
2253 | map_scale => 1, |
2242 | map_scale => 1, |
2254 | fow_enable => 1, |
2243 | fow_enable => 1, |
2255 | fow_intensity => 0, |
2244 | fow_intensity => 0, |
2256 | fow_smooth => 1, |
|
|
2257 | map_smoothing => 1, |
2245 | map_smoothing => 1, |
2258 | gui_fontsize => 1, |
2246 | gui_fontsize => 1, |
2259 | log_fontsize => 0.7, |
2247 | log_fontsize => 0.7, |
2260 | gauge_fontsize => 1, |
2248 | gauge_fontsize => 1, |
2261 | gauge_size => 0.35, |
2249 | gauge_size => 0.35, |
… | |
… | |
2299 | |
2287 | |
2300 | @SDL_MODES = CFPlus::SDL_ListModes 8, 8; |
2288 | @SDL_MODES = CFPlus::SDL_ListModes 8, 8; |
2301 | @SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES; |
2289 | @SDL_MODES = CFPlus::SDL_ListModes 5, 0 unless @SDL_MODES; |
2302 | @SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
2290 | @SDL_MODES or CFPlus::fatal "Unable to find a usable video mode\n(hardware accelerated opengl fullscreen)"; |
2303 | |
2291 | |
|
|
2292 | @SDL_MODES = sort { $a->[0] * $a->[1] <=> $b->[0] * $b->[1] } @SDL_MODES; |
|
|
2293 | |
2304 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES; |
2294 | $CFG->{sdl_mode} = 0 if $CFG->{sdl_mode} > @SDL_MODES; |
2305 | |
2295 | |
2306 | { |
2296 | { |
2307 | my @fonts = map CFPlus::find_rcfile "fonts/$_", qw( |
2297 | my @fonts = map CFPlus::find_rcfile "fonts/$_", qw( |
2308 | DejaVuSans.ttf |
2298 | DejaVuSans.ttf |