| … | … | ||
|---|---|---|---|
| 766 | } | 766 | } |
| 767 | 767 | ||
| 768 | sub dc_connect { | 768 | sub dc_connect { |
| 769 | my ($host, $port) = @_; | 769 | my ($host, $port) = @_; |
| 770 | 770 | ||
| 771 | my $mapw = List::Util::min 48, 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 $HEIGHT * $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; |
| 773 | 773 | ||
| 774 | $CONN = | 774 | $CONN = |
| 775 | new DC::Protocol | 775 | new DC::Protocol |
| 776 | host => $host, | 776 | host => $host, |
| 777 | port => $port, | 777 | port => $port, |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |