罪罰改造板２/254

	# 内政の終了(功労金なし)
	elsif($tm==55){
		$tm = $cmd = 0;
		$type="";
		&call_main_st;
	}else{                       # 
		$tm = $cmd = 0;    # ここを追加
		$type="";          # 
		&call_main_st;     # 
	}
	
	&write_data;