Move to using RoomLink datatype

2021-11-23 20:45:39 +00:00
parent a66ea1d922
commit 1f2d767d5e
18 changed files with 160 additions and 122 deletions
@@ -1,5 +1,6 @@
 module Dodge.Room.RunPast where
 import Dodge.LevelGen.Data
+import Dodge.RoomLink
 import Dodge.Data
 import Dodge.Default
 --import Dodge.Layout.Tree.Either
@@ -70,7 +71,7 @@ runPastRoom i = do
            ,_rmPmnts = []
            }
        switchdoor = switchDoorRoom & rmTakeFrom ?~ i
-        n = length $ filter theedgetest $ _rmOutLinks cenroom
+        n = length $ filter theedgetest $ map lnkPosDir $ _rmOutLinks cenroom
        controom = treeFromPost [PassDown switchdoor,PassDown linkcor] (UseAll door)
        critrooms :: [SubCompTree Room]
        critrooms = treeFromPost [PassDown switchdoor] (PassDown critroom) :