対象の場所に移動させる

「対象の場所に移動させる」の編集履歴(バックアップ)一覧はこちら

対象の場所に移動させる」(2013/03/13 (水) 17:33:28) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

荒らしとかを移動などができない場所に移動させるなどに便利。 まあ管理者メニュー使えば簡単に対処できるんだけど。 system.cgiに以下を追加して終了。 push @actions, ('移動させる'); $actions{'移動させる'} = sub{ &idousaseru }; #=================================== # @移動させる #=================================== sub idousaseru{ if($aiueo){ $basyo = $shift; $com.="$yを$basyoに移動させました。"; }else{ $mes="移動させる場所を選択してください。"; } } お疲れ様でした。
荒らしとかを移動などができない場所に移動させるなどに便利。 まあ管理者メニュー使えば簡単に対処できるんだけど。 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 } お疲れ様でした。

表示オプション

横に並べて表示:
変化行の前後のみ表示: