#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# 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.1 #
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
#-----------------------------------------------------------#
#-------------------------------------------------------------------------------
# 情報
sub infomation_com{
$log .= qq|現在の $cmp[$camp] に所属する将兵一覧
\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;
}
# 称号
if($sogo_lv[$sogo_sel]>0){
$sogo_txt="$sogo_p[$sogo_sel] lv.$sogo_lv[$sogo_sel]";
}
local(@usrfile,@tdat);
# 参加者データファイル一覧取得/読み込み
&usrdata_read;
&usrdata_open;
require './inc/ore_sub-members-p1.cgi';&member_list;
if($camp eq'' || $camp < 1 || $camp > 5){
$log .= "
\n順位 | LV | 名前 | 体力/精神 | 攻撃/防御/指揮/敏捷 | 武具 | 防具 | 階級 | 行動 |
";
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 | $TM_V | |;
# 称号
$log .= ($SOGO_V > 0) ? "$NM_V [$sogo_p[$SOGO_V]]" : "$NM_V";
$log .=" | $HP_MAX_V/$MP_MAX_V | $UA_V/$UD_V/$LR_V/$AG_V | $dg_data[$DG_A_V][1] | $df_data[$DF_A_V][1] | $cl[$LV_V] | $TYPE_V |
\n";
$log .=qq|>> 備考: $seibetu[$SEI_V] 格言: $MES_V |
\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|\n順位 | LV | 名前 | 体力/精神 | 攻撃/防御/指揮/敏捷 | 武具 | 防具 | 階級 | 行動 |
|;
$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 | $TM_V{$nm} | ";
#称号
$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} [$sogo_p[$SOGO_V{$nm}]]" : "$NM_V{$nm}";
$log .=" | $HP_MAX_V{$nm}/$MP_MAX_V{$nm} | $UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm} | $dg_data[$DG_A{$nm}][1] | $df_data[$DF_A{$nm}][1] | $cl[$lv_v] | $TYPE_V{$nm} |
\n";
$log .=qq|>> 備考: $seibetu[$SEI_V{$nm}] 格言: $MES_V{$nm} |
\n|;
$prv_lv = $lv_v;
$l++;
}
}
$log .="
\n";
$log.=<
EOM
&sogo_list;
$log .= qq||;
$log .="
\n";
$tm = $cmd = 0;
$layout_flag=1;
&call_main_st;
}
sub sogo_list{
$sogo_no = 0;
$log .= qq| 称 号:|;
}
1;#削除不可