#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # 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"; 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|\n"; $log .=qq|\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|
順位LV名前体力/精神攻撃/防御/指揮/敏捷武具防具階級行動
$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
>> 備考: $seibetu[$SEI_V]    格言: $MES_V
\n|; $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 .="\n"; $log .=qq|\n|; $prv_lv = $lv_v; $l++; } } $log .="
順位LV名前体力/精神攻撃/防御/指揮/敏捷武具防具階級行動
$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}
>> 備考: $seibetu[$SEI_V{$nm}]    格言: $MES_V{$nm}
\n"; $log.=<

コメントは全角40文字まで。
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;#削除不可