ore/inc/ore_sub-infomation_pc.cgi

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

#-------------------------------------------------------------------------------
# 情報
sub infomation_com{
	$log .= qq|<b style="color:$color[$camp]">現在の $cmp[$camp] に所属する将兵一覧</b><br><br>\n|;

	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){

		$log .= "<table border=0 cellpadding=2 cellspacing=2 width=100%>\n<tr align=center bgcolor=#ccccee><td>順位</td><td>LV</td><td>名前</td><td>体力/精神</td><td>攻撃/防御/指揮/敏捷</td><td>武具</td><td>防具</td><td>階級</td><td>行動</td></tr>";

		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|<tr align="center" bgcolor="#ccccee"><td>$cnt</td><td>$TM_V</td><td>|;

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

				$log .="</td><td>$HP_MAX_V/$MP_MAX_V</td><td align=center>$UA_V/$UD_V/$LR_V/$AG_V</td><td>$dg_data[$DG_A_V][1]</td><td>$df_data[$DF_A_V][1]</td><td>$cl[$LV_V]</td><td></td>$TYPE_V</tr>\n";

				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="8">&gt;&gt; 備考: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;格言: $MES_V</td></tr>\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'}}		= $_;
			}
		}

		$log .=qq|<table border="0" cellpadding="2" cellspacing="2" width="100%">\n<tr align="center" bgcolor="#ccccee"><td style="font-size:12px">順位</td><td style="font-size:12px">LV</td><td style="font-size:12px">名前</td><td style="font-size:12px">体力/精神</td><td style="font-size:12px">攻撃/防御/指揮/敏捷</td><td style="font-size:12px">武具</td><td style="font-size:12px">防具</td><td style="font-size:12px">階級</td><td style="font-size:12px">行動</td></tr>|;

		$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 .="<tr align=center bgcolor=#ccccee><td>$rk</td><td>$TM_V{$nm}</td><td>";

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

			$log .="</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td align=center>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$dg_data[$DG_A{$nm}][1]</td><td>$df_data[$DF_A{$nm}][1]</td><td>$cl[$lv_v]</td><td>$TYPE_V{$nm}</td></tr>\n";

			$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 備考: $seibetu[$SEI_V{$nm}]&nbsp;&nbsp;&nbsp;&nbsp;格言: $MES_V{$nm}</td></tr>\n|;

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

	$log .="</table>\n";

	$log.=<<EOM;
<br><br>
<div align="center" class="moji2">
<form method="$method" action="$script" name="ore_">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="cmd" value="6">
<input type=text name="com" class="button2" style="width:360px">
<input type=submit value="ﾎﾟﾁｯ/更新" class="button2" style="width:100px">
<input type=reset value="ｸﾘｱ"  class="button2" style="width:40px">
<br>
コメントは全角40文字まで。
</form>
</div>
EOM

	$log .="</table>\n";

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





1;#削除不可