| … | |
… | |
| 736 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
736 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
| 737 | |
737 | |
| 738 | $CONN = |
738 | $CONN = |
| 739 | new DC::Protocol |
739 | new DC::Protocol |
| 740 | host => $host, |
740 | host => $host, |
| 741 | port => $port || 13327, |
741 | port => $port || "deliantra=13327", |
| 742 | user => $PROFILE->{user}, |
742 | user => $PROFILE->{user}, |
| 743 | pass => $PROFILE->{password}, |
743 | pass => $PROFILE->{password}, |
| 744 | mapw => $mapsize, |
744 | mapw => $mapsize, |
| 745 | maph => $mapsize, |
745 | maph => $mapsize, |
| 746 | |
746 | |
