| … | |
… | |
| 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, |
