#-----------------------------------------------------------#
#  罪と罰++ 二律背反										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 情報 ﾓﾊﾞｲﾙ用サブルーチン	Version 1.0						#
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 情報
sub infomation_com{
	$log .= qq|現在の $cmp[$camp] の将兵一覧<br>\n|;

	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|$cnt位 Lv$TM_V|;

				# 称号
				$log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V";

				$log .=qq|HP$HP_MAX_V/MP$MP_MAX_V/UA$UA_V/UD$UD_V/LR$LR_V/AG$AG_V $cl[$LV_V]<hr color="white">\n|;

			}
		}

	}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'}}		= $_;
			}
		}

		$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 .="$rk位 Lv$TM_V{$nm} ";

			#称号
			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SOGO_V{$nm}]]" : "$NM_V{$nm}";

			$log .=qq| HP$HP_MAX_V{$nm}/MP$MP_MAX_V{$nm}/UA$UA_V{$nm}/UD$UD_V{$nm}/LR$LR_V{$nm}/AG$AG_V{$nm} $cl[$lv_v]<hr color="white">\n|;

			$prv_lv = $lv_v;
			$l++;
		}
	}

	$tm = $cmd = 0;
	$layout_flag=1;
	&call_main_st;
}





1;#削除不可