hooray for even more tables

This commit is contained in:
nek0 2018-04-03 22:27:41 +02:00
parent 092fbe6ab9
commit 3cb70b53d5

View file

@ -13,6 +13,8 @@ data Cluster
= ClusterBox1 = ClusterBox1
| ClusterTable1 | ClusterTable1
| ClusterTable2 | ClusterTable2
| ClusterTable3
| ClusterTable4
| ClusterCornerTable | ClusterCornerTable
| ClusterTableGroup | ClusterTableGroup
deriving (Enum, Bounded) deriving (Enum, Bounded)
@ -32,6 +34,14 @@ clusterMat ClusterTable2 =
[ [Just ImgMiscTable2] [ [Just ImgMiscTable2]
, [Just ImgEmpty] , [Just ImgEmpty]
] ]
clusterMat ClusterTable3 =
M.fromLists
[[Just ImgMiscTable1, Just ImgEmpty]]
clusterMat ClusterTable4 =
M.fromLists
[ [Just ImgEmpty]
, [Just ImgMiscTable2]
]
clusterMat ClusterCornerTable = clusterMat ClusterCornerTable =
M.fromLists M.fromLists
[ [Just ImgMiscTable2, Just ImgMiscTableCorner] [ [Just ImgMiscTable2, Just ImgMiscTableCorner]
@ -60,6 +70,8 @@ clusterRoom :: Cluster -> TileState
clusterRoom ClusterBox1 = Offi clusterRoom ClusterBox1 = Offi
clusterRoom ClusterTable1 = Offi clusterRoom ClusterTable1 = Offi
clusterRoom ClusterTable2 = Offi clusterRoom ClusterTable2 = Offi
clusterRoom ClusterTable3 = Offi
clusterRoom ClusterTable4 = Offi
clusterRoom ClusterCornerTable = Offi clusterRoom ClusterCornerTable = Offi
clusterRoom ClusterTableGroup = Offi clusterRoom ClusterTableGroup = Offi
@ -69,6 +81,10 @@ clusterPoints ClusterTable1 =
[ ReachPoint Table (V2 1 1) ] [ ReachPoint Table (V2 1 1) ]
clusterPoints ClusterTable2 = clusterPoints ClusterTable2 =
[ ReachPoint Table (V2 2 1) ] [ ReachPoint Table (V2 2 1) ]
clusterPoints ClusterTable3 =
[ ReachPoint Table (V2 1 2) ]
clusterPoints ClusterTable4 =
[ ReachPoint Table (V2 1 1) ]
clusterPoints ClusterCornerTable = clusterPoints ClusterCornerTable =
[ ReachPoint Table (V2 2 1) [ ReachPoint Table (V2 2 1)
] ]