罪罰改造板２/563

foreach(0 .. $#tdat){
	%DAT = '';
	my @prats = split(/,/,$tdat[$_]);
	foreach $prats (@prats){
		my($key,$v) = split(/;/,$prats);
		$DAT{$key} = $v;
	}
	# 現在のプレイヤー抽出
	if($player_now>=$time-$DAT{'la'}){
		if($mv_mode eq 'pc'){
			# 略
		}
		$now_nm_cnt++;
		if($DAT{'camp'}==0){
			$now_0++;
		}elsif($DAT{'camp'}==1){
			$now_1++;
		}elsif($DAT{'camp'}==2){
			$now_2++;
		}elsif($DAT{'camp'}==3){
			$now_3++;
		}elsif($DAT{'camp'}==4){
			$now_4++;
		}elsif($DAT{'camp'}==5){
			$now_5++;
		}
	}
}
$now_0=0 if(!$now_0);
$now_1=0 if(!$now_1);
$now_2=0 if(!$now_2);
$now_3=0 if(!$now_3);
$now_4=0 if(!$now_4);
$now_5=0 if(!$now_5);