罪罰改造板２/63

   }elsif($camp==6){
		$my_cn=$cn6;
		$my_cg=$cg6;
		$my_cf=$cf6;
		$my_cs=$cs6;
		$my_ce=$ce6;
		$my_ct=$ct6;

       for ($self=1; $self<7;$self++){
         for ($other=1; $other<7;$other++){
           $cfs[$self.$other] = $CP{'cfs'.$self.$other};
           if ($other<$self){
           # 友好度
           $cfs[$self.$other] = int(rand(30)+40) if ($cfs[$self.$other]=="");
           } elsif ($other>$self) {
           # 条約
           # $cfs[$self.$other] = 0;
           }
           # 設定値をクリア
           # $cfs[$self.$other] = "";
         }
       }
    }

}