kojim

============================
IRONCLAD
data count: 437
Bash: 99%
  Battle Trance: 100% (1) 
  Spot Weakness: 100% (1) 
  Anger: 100% (1) 
  Feed: 98% (-1) 
  Disarm: 100% (1) 
  Clothesline: 99% (0) 

kojim

ターン数,指導者,都市名,金銭,研究,文化,スパイ,生産,維持費
0,kojim,TXT_KEY_CITY_NAME_ATHENS,0.000000,10.000000,4.000000,4.000000,1.000000,0.000000
0,TXT_KEY_LEADER_WANGKON,TXT_KEY_CITY_NAME_SEOUL,0.000000,9.000000,2.000000,4.000000,2.000000,0.000000
0,TXT_KEY_LEADER_HAMMURABI,TXT_KEY_CITY_NAME_BABYLON,0.000000,9.000000,2.000000,4.000000,1.000000,0.000000
0,TXT_KEY_LEADER_PACAL,TXT_KEY_CITY_NAME_MUTAL,0.000000,9.000000,2.000000,4.000000,1.000000,0.000000
0,TXT_KEY_LEADER_SITTING_BULL,TXT_KEY_CITY_NAME_CAHOKIA,0.000000,11.000000,2.000000,4.000000,1.000000,0.000000
0,TXT_KEY_LEADER_GILGAMESH,TXT_KEY_CITY_NAME_URUK,0.000000,10.000000,4.000000,4.000000,1.000000,0.000000
0,TXT_KEY_LEADER_RAGNAR,TXT_KEY_CITY_NAME_NIDAROS,0.000000,12.000000,2.000000,4.000000,1.000000,0.000000
1,kojim,TXT_KEY_CITY_NAME_ATHENS,0.000000,10.000000,4.000000,4.000000,1.000000,0.000000
1,TXT_KEY_LEADER_WANGKON,TXT_KEY_CITY_NAME_SEOUL,0.000000,9.000000,2.000000,4.000000,2.000000,0.000000

kojim

import System.Random
import Control.Concurrent
import Control.Applicative
import Control.Monad

gen :: [[Int]]
gen = do
  a <- [0..1]
  b <- [0..1]
  c <- [0..1]

kojim

-- 実行環境: Windows, GHCi version 7.10.2.

import Control.Exception

f n = 2*((f n+1) + (f n+2))

main = main_stackoferflow

-- 実行すると

kojim

data Ancient = Ancient String (Float -> Float) (Float -> Float)

siyalatas = Ancient "Siyalatas" id rate
  where rate 0  = 1
        rate lv = rate (lv-1) + ((25 - minus_rate) * 0.01)
          where minus_rate = min 10 $ realToFrac $ floor $ (lv/10)

mammon = Ancient    "Mammon   " id rate
  where rate lv = 1 + (lv*0.05)

kojim

import Graphics.Input as Input
import Graphics.Input.Field as Field
import Dict as Dict
import Text

-- ------------------------------------------
-- データ型定義
-- ------------------------------------------
data Resource = Resource
  { name : String

kojim

import Graphics.Input as Input
import Mouse

data Event
  = Command Command
  | Fps Float

data Command
  = ClickCookie
  | Buy

kojim

var _updateHappiness = updateHappiness;
updateHappiness = function() {
	_updateHappiness();
	var elem =  document.getElementById('happiness');
	elem.innerHTML = elem.innerHTML + '(' + efficiency.happiness + ')';
}
updateHappiness();

kojim

/* --------------------- */
/* 対応バージョン 1.0453 */
/* --------------------- */

/* -------------------------------------- */
/* 表示改善系                             */
/* -------------------------------------- */

/* ニュースの代わりに以下を表示
 *   - 黄金クッキー/トナカイ クールダウン期間

kojim

◆ インストール

  - 茶色のディスクを使い、civ4の無印をインストールする。
    最初にこれを行わないと拡張パックのインストールができない。

  - 赤色のディスクを使い、拡張パック civ4 btsをインストールする。

  - サイバーフロントのページから最新パッチをダウンロードし、適用する
    http://www.cyberfront.co.jp/support/support.html#civ4_bts