pioneers/src/PioneerTypes.hs

54 lines
1.3 KiB
Haskell
Raw Normal View History

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