これは面白い
} elsif ($switch eq "009E") {
$ID = substr($msg, 2, 4);
$type = unpack("S1",substr($msg, 6, 2));
$coords{'x'} = unpack("S1", substr($msg, 9, 2));
$coords{'y'} = unpack("S1", substr($msg, 11, 2));
$dist = distance(\%coords, \%{$chars[$config{'char'}]{'pos_to'}});
　if ($dist < 3) {
　 sendTake(\$remote_socket, $ID);
　}
同時拾い（ｗ