罪罰改造板２/270

$cmp[$camp] $cl[$rank]<br>
部隊$g_p[$rank] 訓練度$sol_lv<br>
EOM
my $next_rank = int(($rank*$rank)*3);   # この行を追加
$log1.="$next_rank<br>";                #
$log1.="称号[$sogo_p[$sogo]]<br>" if($sogo);
$log1.="[$dg_data[$dg_a][1]]/$dg_cnt<br>" if($dg_a && $dg_cnt);