diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs index 4a6e4cf..b07eff6 100644 --- a/src/Types/Interior.hs +++ b/src/Types/Interior.hs @@ -10,6 +10,7 @@ import Types.UserData data Cluster = ClusterBox1 | ClusterCornerTable + | ClusterTableGroup deriving (Enum, Bounded) clusterMat :: Cluster -> Matrix (Maybe ImgId) @@ -22,13 +23,32 @@ clusterMat ClusterBox1 = clusterMat ClusterCornerTable = M.fromLists [ [Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner] - , [Just ImgEmpty, Just ImgEmpty , Just ImgMiscTable1] - , [Just ImgEmpty, Just ImgEmpty , Just ImgEmpty] + , [Just ImgEmpty, Just ImgEmpty , Just ImgMiscTable1] + , [Just ImgEmpty, Just ImgEmpty , Just ImgEmpty] + ] +clusterMat ClusterTableGroup = + M.fromLists + [ [ Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner + , Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner + ] + , [ Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1 + , Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1 + ] + , [ Just ImgEmpty, Just ImgEmpty, Just ImgEmpty + , Just ImgEmpty, Just ImgEmpty, Just ImgEmpty + ] + , [ Nothing, Nothing, Nothing + , Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner + ] + , [ Nothing, Nothing, Nothing + , Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1 + ] ] clusterRoom :: Cluster -> TileState clusterRoom ClusterBox1 = Offi clusterRoom ClusterCornerTable = Offi +clusterRoom ClusterTableGroup = Offi instance Size Cluster where size c =