罪と罰++二律背反
↑
# 指定した国の関係を返す
# 引数１と２が同一の場合は０を返す
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]) ];
}

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS