罪罰改造掲示板/25

• # sub cdat_open
  $ct1=$CP{'ct1'}=="" ? int(rand(20))+40:$CP{'ct1'};# 民統治

if($camp==1){
    # 民忠誠＋
    $ct1 = $ct1 + int(rand($cf1/($v+$cf1))/10);
    $ct1 = 100 if($ct1>99);
    # 農業＋
    $cf1 += $v;
}elsif($camp==2){
    # 民忠誠＋
    $ct2 = $ct2 + int(rand($cf2/($v+$cf2))/10);
    $ct2 = 100 if($ct2>99);
    # 農業＋
    $cf2 += $v;
}elsif($camp==3){
    # 民忠誠＋
    $ct3 = $ct3 + int(rand($cf3/($v+$cf3))/10);
    $ct3 = 100 if($ct3>99);
    # 農業＋
    $cf3 += $v;
}elsif($camp==4){
    # 民忠誠＋
    $ct4 = $ct4 + int(rand($cf4/($v+$cf4))/10);
    $ct4 = 100 if($ct4>99);
    # 農業＋
    $cf4 += $v;
}elsif($camp==5){
    # 民忠誠＋
    $ct5 = $ct5 + int(rand($cf5/($v+$cf5))/10);
    $ct5 = 100 if($ct5>99);
    # 農業＋
    $cf5 += $v;
}