sub RandomTeleport {
my $Index;
if ($config{'RandomTeleport'}) {
$Index = findIndexString(\@{$chars[$config{'char'}]{'inventory'}}, "name", "ハエの羽");
if ($Index ne "") {
sendItemUse(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$Index]{'index'}, $accountID);
}
}else{
sendTeleport(\$remote_socket, "Random");
}
}
こんなもの作ってみました。当然ハエ消費します（＾＾；
sendTeleport(\$remote_socket, "Random");をRandomTeleport()に変えて、
config.txtにRandomTeleport 1を加えてください。