2014-02-08 12:01:40 +01:00
|
|
|
module PioneerTypes
|
|
|
|
where
|
|
|
|
|
2014-02-10 16:25:56 +01:00
|
|
|
data Structure = Flag -- Flag
|
|
|
|
| Woodcutter -- Huts
|
|
|
|
| Forester
|
|
|
|
| Stonemason
|
|
|
|
| Fisher
|
|
|
|
| Hunter
|
|
|
|
| Barracks
|
|
|
|
| Guardhouse
|
|
|
|
| LookoutTower
|
|
|
|
| Well
|
|
|
|
| Sawmill -- Houses
|
|
|
|
| Slaughterhouse
|
|
|
|
| Mill
|
|
|
|
| Bakery
|
|
|
|
| IronSmelter
|
|
|
|
| Metalworks
|
|
|
|
| Armory
|
|
|
|
| Mint
|
|
|
|
| Shipyard
|
|
|
|
| Brewery
|
|
|
|
| Storehouse
|
|
|
|
| Watchtower
|
|
|
|
| Catapult
|
|
|
|
| GoldMine -- Mines
|
|
|
|
| IronMine
|
|
|
|
| GraniteMine
|
|
|
|
| CoalMine
|
|
|
|
| Farm -- Castles
|
|
|
|
| PigFarm
|
|
|
|
| DonkeyBreeder
|
|
|
|
| Harbor
|
|
|
|
| Fortress
|
|
|
|
deriving Eq
|
2014-02-08 12:01:40 +01:00
|
|
|
|
|
|
|
data Amount = Infinite -- Neverending supply
|
|
|
|
| Finite Int -- Finite supply
|
|
|
|
|
|
|
|
-- Extremely preliminary, expand when needed
|
|
|
|
data Commodity = WoodPlank
|
|
|
|
| Sword
|
|
|
|
| Fish
|
2014-02-10 16:25:56 +01:00
|
|
|
deriving Eq
|
2014-02-08 12:01:40 +01:00
|
|
|
|
|
|
|
data Resource = Coal
|
|
|
|
| Iron
|
|
|
|
| Gold
|
|
|
|
| Granite
|
|
|
|
| Water
|
|
|
|
| Fishes
|
|
|
|
deriving Eq
|