罪罰改造板２/202

$buta = $DAT{'buta'};
$buta= "未設定部隊" if($buta eq '');

buta;$buta

		if($cmd<=-1 || $cmd>$#cmp){
			$log .= "やめておきます<br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;
#########
#ここに追加してます。
#########
		}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >= $c2a && $cmd == 2)||($c3 >= $c3a && $cmd == 3)||($c4 >= $c4a && $cmd == 4)||($c5 >= $c5a && $cmd == 5))){
			for($i=1,$j=1;$i<=$#cmp;$i++,$j++){
				if($cmd==$j){
					$log .= "$cmp[$i] は定員一杯で入国できません<br>\n";
				}
			}
			$tm = $cmd = 0;
			$type='';
			&call_main_st;