罪罰改造板２/556

sub syogo{
	if($sogo>0 && !$sogo2){
		$syogo="$nm [$sogo_p[sogo]]";
	}elsif(!$sogo && $sogo2>0){
		$syogo="$nm [$sogo_p[$sogo2]]";
	}elsif($sogo>0 && $sogo2>0){
		$syogo="$nm [$sogo_p[$sogo]][$sogo_p[$sogo2]]";
	}else{
		$syogo="$nm";
	}
}