罪罰/仕官履歴

	$log .= "$cmp[$camp] の国家\予\算が $zy 上昇した。<br>\n";
}
# 移籍履歴
$ch[2]=$ch[1];        # 前々回の仕官先
$ch[1]=$camp;         # 前回の仕官先
$camp = $cmd;
#ﾚﾍﾞﾙによる仕官時のマイナス値

}elsif(($cmd==$ch[1] && $cmd>0) || ($cmd==$ch[2] && $cmd>0)){
	$log .= qq|前回(<span style="color:$color[$ch[1]]">$cmp[$ch[1]]</span>)、前々回(<span style="color:$color[$ch[2]]">$cmp[$ch[2]]</span>)に所属した国には仕官できません<br>|;
	$tm = $cmd = 0;
	$type='';
	&call_main_st;
}elsif($lv < $clv){
	$log .= "仕官はレベル $clv からです。<br>まずは修行で己を鍛えてください。<br>\n";