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