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