| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
| 2 | |
|
|
| 3 | { |
|
|
| 4 | package Deliantra::Client; # work around CPAN breakage |
|
|
| 5 | } |
|
|
| 6 | |
2 | |
| 7 | if ($ENV{DELIANTRA_CORO_DEBUG}) { |
3 | if ($ENV{DELIANTRA_CORO_DEBUG}) { |
| 8 | eval ' |
4 | eval ' |
| 9 | use Coro; |
5 | use Coro; |
| 10 | use Coro::EV; |
6 | use Coro::EV; |
| … | |
… | |
| 740 | 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; |
| 741 | |
737 | |
| 742 | $CONN = |
738 | $CONN = |
| 743 | new DC::Protocol |
739 | new DC::Protocol |
| 744 | host => $host, |
740 | host => $host, |
| 745 | port => $port || 13327, |
741 | port => $port || "deliantra=13327", |
| 746 | user => $PROFILE->{user}, |
742 | user => $PROFILE->{user}, |
| 747 | pass => $PROFILE->{password}, |
743 | pass => $PROFILE->{password}, |
| 748 | mapw => $mapsize, |
744 | mapw => $mapsize, |
| 749 | maph => $mapsize, |
745 | maph => $mapsize, |
| 750 | |
746 | |
