| … | |
… | |
| 766 | } |
766 | } |
| 767 | |
767 | |
| 768 | sub dc_connect { |
768 | sub dc_connect { |
| 769 | my ($host, $port) = @_; |
769 | my ($host, $port) = @_; |
| 770 | |
770 | |
| 771 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
771 | my $mapw = List::Util::min 48, List::Util::max 11, int 1.5 + $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
|
|
772 | my $maph = List::Util::min 48, List::Util::max 11, int 1.5 + $HEIGHT * $CFG->{mapsize} * 0.01 / 32; |
| 772 | |
773 | |
| 773 | $CONN = |
774 | $CONN = |
| 774 | new DC::Protocol |
775 | new DC::Protocol |
| 775 | host => $host, |
776 | host => $host, |
| 776 | port => $port, |
777 | port => $port, |
| 777 | user => $PROFILE->{user}, |
778 | user => $PROFILE->{user}, |
| 778 | pass => $PROFILE->{password}, |
779 | pass => $PROFILE->{password}, |
| 779 | mapw => $mapsize, |
780 | mapw => $mapw, |
| 780 | maph => $mapsize, |
781 | maph => $maph, |
| 781 | |
782 | |
| 782 | client => "$DC::VERSION $] $^O", |
783 | client => "$DC::VERSION $] $^O", |
| 783 | |
784 | |
| 784 | map_widget => $MAPWIDGET, |
785 | map_widget => $MAPWIDGET, |
| 785 | statusbox => $STATUSBOX, |
786 | statusbox => $STATUSBOX, |
| … | |
… | |
| 933 | ); |
934 | ); |
| 934 | |
935 | |
| 935 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Forbid Alpha"); |
936 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Forbid Alpha"); |
| 936 | $table->add_at (1, $row++, new DC::UI::CheckBox |
937 | $table->add_at (1, $row++, new DC::UI::CheckBox |
| 937 | state => $CFG->{disable_alpha}, |
938 | state => $CFG->{disable_alpha}, |
| 938 | tooltip => "Forbid off the use of the alpha channel. This makes Deliantra look a lot worse " |
939 | tooltip => "Forbid the use of the alpha channel. This makes Deliantra look a lot worse " |
| 939 | . "by disabling a number of textures and transparency effects. Normally, these " |
940 | . "by disabling a number of textures and transparency effects. Normally, these " |
| 940 | . "effects do not cost a lot of resources, but some graphics cards might fall " |
941 | . "effects do not cost a lot of resources, but some graphics cards might fall " |
| 941 | . "back to extremely slow rendering if this is enabled. If disabling this option " |
942 | . "back to extremely slow rendering if this is enabled. If disabling this option " |
| 942 | . "noticably improves the framerate of the client please report this! " |
943 | . "noticably improves the framerate of the client please report this! " |
| 943 | . "<b>If you experience extremely low framerates and your card should do better, try this option.</b>", |
944 | . "<b>If you experience extremely low framerates and your card should do better, try this option.</b>", |
