$log .= qq|アイコンの変更が出来ます。<br><br>|; 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){ 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||; # 称号 $log .=qq||; $log .=qq||; $log .=qq||; } } }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||; $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 .=qq||; #称号 $log .=qq||; $log .=qq||; $log .=qq||; $prv_lv = $lv_v; $l++; } } $log .="\n";
$no0 = sprintf('%03.d',$no); if("$no0" eq $icon){ # $icon変数と同じなら選択する $select_icon .= qq|<option value="$no0" selected>$no0</option>|; } else { $select_icon .= qq|<option value="$no0">$no0</option>|; }
$log.=<<EOM;
|