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