From 3cb70b53d5f2ca9fff81aff83b34b68186f56ac9 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 3 Apr 2018 22:27:41 +0200 Subject: [PATCH] hooray for even more tables --- src/Types/Interior.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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) ]