nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

yay for more tables!

Browse source
This commit is contained in:
nek0 2018-04-03 22:21:07 +02:00
parent f28f06adf3
commit 092fbe6ab9
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Types/Interior.hs
View file

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