diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs index 1871602..20b8f9d 100644 --- a/src/Types/Interior.hs +++ b/src/Types/Interior.hs @@ -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) ]