罪罰内政

if($camp==1){
 # 民忠誠＋
 $ct1 = $ct1 + int(rand($cf1/($v+$cf1))/10);
 $ct1 = 100 if($ct1>99);
 # 農業＋
 $cf1 += $v;

if($camp==1){
 # 民忠誠＋
 $ct1 = $ct1 + int(rand($cg1/($v+$cg1))/10);
 $ct1 = 100 if($ct1>99);
 # 商業＋
 $cg1 += $v;

if($camp==1){
 # 訓練度−
 $sol_lv = int($sol_lv*($cs1/($S+$cs1)));
 # 民忠誠−
 $ct1-=int(rand(5)+2);
 $ct1 = 0 if($ct1<1);
 # 徴兵＋
 $cs1+=$S;

# 商業
$pr=$GMT
# 商業回数
$sho_kai = 0 if($sho_kai<1);
$sho_kai++;