Initial commit of original files
This commit is contained in:
sanjeok77
@@ -0,0 +1,164 @@
|
||||
#-----------------------------------------------------------#
|
||||
# 罪と罰++ 二律背反 #
|
||||
# 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">>> 備考: $seibetu[$SEI_V] 格言: $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">>> 備考: $seibetu[$SEI_V{$nm}] 格言: $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;#削除不可
|
||||
Reference in New Issue
Block a user