| … | |
… | |
| 1036 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Smooth Transitions"); |
1036 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Smooth Transitions"); |
| 1037 | $table->add_at (1, $row++, new DC::UI::CheckBox |
1037 | $table->add_at (1, $row++, new DC::UI::CheckBox |
| 1038 | state => $CFG->{smooth_transitions}, |
1038 | state => $CFG->{smooth_transitions}, |
| 1039 | tooltip => "<b>Smooth Transitions</b> tries to blend the fog of war and lighting smoothly between updates. " |
1039 | tooltip => "<b>Smooth Transitions</b> tries to blend the fog of war and lighting smoothly between updates. " |
| 1040 | . "If you have a very slow system, non-accelerated drivers or plain dislike smooth scrolling, " |
1040 | . "If you have a very slow system, non-accelerated drivers or plain dislike smooth scrolling, " |
| 1041 | . "then disable this option. Requires Smooth Movement and OpenGL 1.4 or up. Changes take effect immdiately.", |
1041 | . "then disable this option. Requires Smooth Movement and OpenGL Multitexturing. Changes take effect immdiately.", |
| 1042 | on_changed => sub { my ($self, $value) = @_; $CFG->{smooth_transitions} = $value; 0 } |
1042 | on_changed => sub { my ($self, $value) = @_; $CFG->{smooth_transitions} = $value; 0 } |
| 1043 | ); |
1043 | ); |
| 1044 | |
1044 | |
| 1045 | |
1045 | |
| 1046 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Map Scale"); |
1046 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Map Scale"); |
| … | |
… | |
| 1075 | tooltip => "<b>Fog of War Pattern.</b> The pattern that is overlaid over areas hidden from view. Click to cycle through various alternatives. Changes are instant.", |
1075 | tooltip => "<b>Fog of War Pattern.</b> The pattern that is overlaid over areas hidden from view. Click to cycle through various alternatives. Changes are instant.", |
| 1076 | on_activate => sub { |
1076 | on_activate => sub { |
| 1077 | my ($self) = @_; |
1077 | my ($self) = @_; |
| 1078 | $CFG->{fow_texture} = ($CFG->{fow_texture} + 1) % @DC::MapWidget::TEX_HIDDEN; |
1078 | $CFG->{fow_texture} = ($CFG->{fow_texture} + 1) % @DC::MapWidget::TEX_HIDDEN; |
| 1079 | $self->set_texture ($DC::MapWidget::TEX_HIDDEN[$CFG->{fow_texture}]); |
1079 | $self->set_texture ($DC::MapWidget::TEX_HIDDEN[$CFG->{fow_texture}]); |
|
|
1080 | $MAPWIDGET->update; |
| 1080 | } |
1081 | } |
| 1081 | ); |
1082 | ); |
| 1082 | |
1083 | |
| 1083 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "FoW Intensity"); |
1084 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "FoW Intensity"); |
| 1084 | $table->add_at (1, $row++, new DC::UI::Slider |
1085 | $table->add_at (1, $row++, new DC::UI::Slider |
