飛ばされまくり…

ポタル回避
} elsif ($switch eq "011F") {
$coords{'x'} = unpack("S1",substr($msg, 10, 2));
$coords{'y'} = unpack("S1",substr($msg, 12, 2));
print "Portal opened at $coords{'x'}, $coords{'y'}\n";

sendTeleport(\$remote_socket, "Random") if $config{'PortalAvoid'}; ＜＝追加

$msg_size = 16;

で、config.txtにPortalAvoid追加