# 参加者ステータス取得 $trlst = '' if(!$tm); # $lp = 0; # foreach(0 ..$#tdat){ %R = '';
$N_M{$R{'nm'}} = $R{'id'}; if($R{'id'} ne '' && !$tm){ # $lp++; # $trlst .= "$R{'id'}"; # $NO_V{$R{'nm'}} = $lp; # } # } } # 修行リスト表示 if(!$tm){
$log .= ($agent !~ /Mac/) ? qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|: qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$NO_V{$nm}" name="com" class="a5">\n|; # qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5" onClick="location.href='#bt_start'">\n|: # qq|<tr bgcolor="#ccccee" align="center"><td><input type="radio" value="$N_M{$nm}" name="com" class="a5">\n|;
$log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$NO_V{$nm}">$rk位 Lv$lv_v |; # $log .=qq|<a href="$script?id=$id&pw=$pw&cmd=-1&com=$N_M{$nm}">$rk位 Lv$lv_v |;
# 対戦相手割り当て elsif($tm){ if($com){ @trlst = split('=',$trlst); # $trlst = ''; # $com = $trlst[$com-1]; # open(IN,"$usrdata$com\.cgi") || &error("Open Error : $usrdata$com\.cgi",1);
$trlst = $DAT{'trlst'};