- full ruleset
This commit is contained in:
weiss
2020-04-10 10:11:45 +02:00
parent 3e8a95a6b1
commit 149e4173d0
4 changed files with 91 additions and 47 deletions

View File

@@ -23,7 +23,9 @@ type SiteInfo =
type ProtoSite =
{ id :: Int
, structureType :: Int -- -1 No structure, 2 Barracks
, gold :: Int -- The total number of gold remaining to be mined from this site (-1 if unknown)
, maxMineSize :: Int -- The maximum rate that a mine can extract gold from this site (-1 if unknown)
, structureType :: Int -- -1 No structure, 0 Goldmine, 1 Tower, 2 Barracks
, owner :: Int -- -1 No structure, 0 friendly, 1 enemy
, param1 :: Int -- -1 No structure, else turns till training
, param2 :: Int -- -1 No structure, barracks: 0 knight 1 archer
@@ -34,6 +36,8 @@ type Site =
, x :: Int
, y :: Int
, radius :: Int
, gold :: Int
, maxMineSize :: Int
, structureType :: Int
, owner :: Int
, param1 :: Int