メルチャ♪氏のリメイクで、プレイヤーのIDを変更する機能を追加する。

	function check_ID_CHANGE(){if(confirm('選択されたプレイヤーのIDを入力されたものに変更します') == true){return true;}else{return false}}

	<tr>
	<form action=$SCRIPT_NAME method=POST>
	<input type=hidden name=password value=$FORM{'password'}>
	<input type=hidden name=cmd value=ID_CHANGE>
	<td bgcolor=$TABLE_COLOR2>
	ID変更</td>
	<td bgcolor=$TABLE_COLOR1>
	<select name=hito $STYLE_B1>$hito</select>
	<input type=text name=new_id $STYLE_B1>
	</td>
	<td bgcolor=$TABLE_COLOR1>
	<input type=submit value=決定 $STYLE_B1 onClick=\"return check_ID_CHANGE()\">
	</td>
	<td bgcolor=$TABLE_COLOR1>
	←プレイヤーのID（名前）の変更を行います。要注意。
	</td>
	</form>
	</tr>

sub ID_CHANGE{
	if($MASTER_PWD ne $FORM{'password'}){&ERROR("パスワードが違います。");}
	if(!$FORM{'new_id'}){&ERROR("変更後のIDが入力されていません");}

	&DBM_INPORT(P);
	if($P{"$FORM{'new_id'}"}){&ERROR("そのIDに変更することはできません"); }
	&DBM_CONVERT('P',"$FORM{'hito'}");

	&LOCK;
		dbmopen (%PL,"$DBM_P",0666);
			$PL{"$FORM{'new_id'}"} = "@PL_VALUES";
		dbmclose (%PL);
		dbmopen (%P,"$DBM_P",0666);
			delete $P{"$FORM{'hito'}"};
		dbmclose %P;
	&UNLOCK;
}