「対象の場所に移動させる」の編集履歴(バックアップ)一覧はこちら
「対象の場所に移動させる」(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
}
お疲れ様でした。