}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] = ""; } } } } |