Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

moar minor changes

Browse Source
This commit is contained in:
Jonas Betzendahl 2014-02-10 16:25:56 +01:00
parent 542e2810b3
commit c76e03126b
1 changed files with 34 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/PioneerTypes.hs
View File

@ -2,9 +2,38 @@ module PioneerTypes
where where
data Structure = Flag -- Flag data Structure = Flag -- Flag
| Barrack -- Small | Woodcutter -- Huts
| Sawmill -- Medium | Forester
| Castle -- Large | 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
data Amount = Infinite -- Neverending supply data Amount = Infinite -- Neverending supply
| Finite Int -- Finite supply | Finite Int -- Finite supply
@ -13,6 +42,7 @@ data Amount = Infinite -- Neverending supply
data Commodity = WoodPlank data Commodity = WoodPlank
| Sword | Sword
| Fish | Fish
deriving Eq
data Resource = Coal data Resource = Coal
| Iron | Iron