yay for more tables!

This commit is contained in:
nek0 2018-04-03 22:21:07 +02:00
parent f28f06adf3
commit 092fbe6ab9

View file

@ -11,6 +11,8 @@ import Types.UserData
data Cluster
= ClusterBox1
| ClusterTable1
| ClusterTable2
| ClusterCornerTable
| ClusterTableGroup
deriving (Enum, Bounded)
@ -22,6 +24,14 @@ clusterMat ClusterBox1 =
[ [Just ImgMiscBox1]
-- , [Nothing, Nothing, Nothing]
]
clusterMat ClusterTable1 =
M.fromLists
[[Just ImgEmpty, Just ImgMiscTable1]]
clusterMat ClusterTable2 =
M.fromLists
[ [Just ImgMiscTable2]
, [Just ImgEmpty]
]
clusterMat ClusterCornerTable =
M.fromLists
[ [Just ImgMiscTable2, Just ImgMiscTableCorner]
@ -48,11 +58,17 @@ clusterMat ClusterTableGroup =
clusterRoom :: Cluster -> TileState
clusterRoom ClusterBox1 = Offi
clusterRoom ClusterTable1 = Offi
clusterRoom ClusterTable2 = Offi
clusterRoom ClusterCornerTable = Offi
clusterRoom ClusterTableGroup = Offi
clusterPoints :: Cluster -> [ReachPoint]
clusterPoints ClusterBox1 = []
clusterPoints ClusterTable1 =
[ ReachPoint Table (V2 1 1) ]
clusterPoints ClusterTable2 =
[ ReachPoint Table (V2 2 1) ]
clusterPoints ClusterCornerTable =
[ ReachPoint Table (V2 2 1)
]