… | |
… | |
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 $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
|
|
772 | my $maph = List::Util::min 48, List::Util::max 11, int $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, |