| … | |
… | |
| 381 | |
381 | |
| 382 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
382 | my $mapsize = List::Util::min 32, List::Util::max 11, int $WIDTH * $CFG->{mapsize} * 0.01 / 32; |
| 383 | |
383 | |
| 384 | my ($host, $port) = split /:/, $PROFILE->{host}; |
384 | my ($host, $port) = split /:/, $PROFILE->{host}; |
| 385 | |
385 | |
| 386 | $MAP = new CFPlus::Map $mapsize, $mapsize; |
386 | $MAP = new CFPlus::Map; |
| 387 | |
387 | |
| 388 | $CONN = eval { |
388 | $CONN = eval { |
| 389 | new CFPlus::Protocol |
389 | new CFPlus::Protocol |
| 390 | host => $host, |
390 | host => $host, |
| 391 | port => $port || 13327, |
391 | port => $port || 13327, |
