sanjeok77
126 lines
3.2 KiB
Perl
126 lines
3.2 KiB
Perl
#-----------------------------------------------------------#
|
|
# 罪と罰++ 二律背反 #
|
|
# 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;#削除不可
|