罪罰改造板３/8

# 指定した国の関係を返す
# 引数１と２が同一の場合は０を返す
sub get_rel {
  return 0 if($_[0]==$_[1]);
  return $cfs[ (($_[0]<$_[1])?$_[0].$_[1]:$_[1].$_[0]) ];
}
# 友好度を返す
sub get_yuko {
  return 0 if($_[0]==$_[1]);
  return $cfs[ (($_[0]>$_[1])?$_[0].$_[1]:$_[1].$_[0]) ];
}

$N = 1000 if( &get_rel($camp,$nation) == 2);