罪と罰++二律背反


# 指定した国の関係を返す
# 引数1と2が同一の場合は0を返す
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);


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2014-08-10 (日) 22:08:48 (2185d)