罪と罰++二律背反

	$log .= qq|アイコンの変更が出来ます。<br><br>|;
	if($com){
		if($com =~ /:/){ &error("名前に不正な文字( : )が含まれています。",1); }
		if($com =~ /;/){ &error("名前に不正な文字( ; )が含まれています。",1); }
		if($com =~ /,/){ &error("名前に不正な文字( , )が含まれています。",1); }
		if($com =~ /"/){ &error("名前に不正な文字( \" )が含まれています。",1); }
		if($com =~ /'/){ &error("名前に不正な文字( ' )が含まれています。",1); }
		if($com =~ /\//){ &error("名前に不正な文字( / )が含まれています。",1); }
		if(length($com)>80){ &error("全角40文字までです。",1); }
		$com =~ s/\n//g;
		$info_mes=$com;
	}
	local(@usrfile,@tdat);
	# 参加者データファイル一覧取得/読み込み
	&usrdata_read;
	&usrdata_open;
	require './inc/ore_sub-members-p1.cgi';&member_list;
	if($camp eq'' || $camp < 1 || $camp > 5){
		foreach (0 .. $#tdat){
			%R = '';
			my @prats = split(/,/,$tdat[$_]);
			foreach $prats (@prats){
				my($y,$x) = split(/;/,$prats);
				$R{$y} = $x;
			}
			$NM_V				= $R{'nm'};
			$HP_MAX_V			= $R{'max_hp'};
			$MP_MAX_V			= $R{'max_mp'};
			$LV_V				= $R{'rank'};
			$TM_V				= $R{'lv'};
			$UA_V				= $R{'ua'};
			$UD_V				= $R{'ud'};
			$LR_V				= $R{'lr'};
			$AG_V				= $R{'ag'};
			$DG_A_V				= $R{'dg_a'};#武具
			$DF_A_V				= $R{'df_a'};#防具
			$SOGO_V				= $R{'sogo'};#称号
			$SEI_V				= $R{'sei'};#性別
			$MES_V				= $R{'info_mes'};
			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "待機中";
			$cnt				= $_+1;
			if($R{'camp'} == 0){
				$log .=qq||;
				# 称号
				$log .=qq||;
				$log .=qq||;
				$log .=qq||;
			}
		}
	}else{
		foreach(0 .. $#tdat){
			%R = '';
			my @prats = split(/,/,$tdat[$_]);
			foreach $prats (@prats){
				my($y,$x) = split(/;/,$prats);
				$R{$y} = $x;
			}
			if($camp == $R{'camp'}){
				$NM_V{$R{'nm'}}		= $R{'nm'};
				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
				$LV_V{$R{'nm'}}		= $R{'rank'};
				$TM_V{$R{'nm'}}		= $R{'lv'};
				$UA_V{$R{'nm'}}		= $R{'ua'};
				$UD_V{$R{'nm'}}		= $R{'ud'};
				$LR_V{$R{'nm'}}		= $R{'lr'};
				$AG_V{$R{'nm'}}		= $R{'ag'};
				$DG_A{$R{'nm'}}		= $R{'dg_a'};#武具
				$DF_A{$R{'nm'}}		= $R{'df_a'};#防具
				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#称号
				$SEI_V{$R{'nm'}}	=$R{'sei'};#性別
				$MES_V{$R{'nm'}}	=$R{'info_mes'};
				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "待機中";
				$N_M{$R{'nm'}}		= $_;
			}
		}
		$log .=qq||;
		$l = $rk = 1;
		foreach $nm (sort sclv keys(%LV_V)){
			$lv_v = $LV_V{$nm};
			next if($lv_v<=0);
			if($lv_v<$prv_lv){ $rk = $l; }
			$log .=qq||;
			#称号
			$log .=qq||;
			$log .=qq||;
			$log .=qq||;
			$prv_lv = $lv_v;
			$l++;
		}
	}
	$log .="\n";

 $no0 = sprintf('%03.d',$no);
 if("$no0" eq $icon){               # $icon変数と同じなら選択する
   $select_icon .= qq|<option value="$no0" selected>$no0</option>|;
 } else {
   $select_icon .= qq|<option value="$no0">$no0</option>|;
 }

	$log.=<<EOM;




トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:29:36 (2737d)