罪罰/修行リスト番号対応

	# 参加者ステータス取得
	$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);