対象の場所に移動させる

荒らしとかを移動などができない場所に移動させるなどに便利。
まあ管理者メニュー使えば簡単に対処できるんだけど。

system.cgiに以下を追加して終了。

push @actions, ('移動させる');
$actions{'移動させる'} = sub{ &idousaseru };

#===================================
# ＠移動させる
#===================================
sub idousaseru{

my $target = shift;
my $p = '';
my $count = 0;
for my $i (0 .. $#places) {
	if ($places[$i][0] eq $target) {
		if ($m{lib} eq $places[$i][1]) {
			$mes = "ここが$places[$i][0]です";
		}
		else {
			$m{lib} = $places[$i][1];
			$mes = "$places[$i][0]に移動します";
			&auto_reload;
			&leave_member($m);
		}
		return;
	}
	$p .= qq|<span onclick="text_set('＠移動させる>$places[$i][0] ')">$places[$i][0] </span>/ |;
	$p .= qq|<br />| if ++$count % 7 == 0;
}
$mes = qq|どこに移動しますか？<br />$p|;
$act_time = 0

}

お疲れ様でした。