Allow for ordering of in placements, not fully tested yet

2025-09-24 23:01:22 +01:00
parent eab27fea8b
commit f51868c84c
10 changed files with 87 additions and 76 deletions
@@ -107,7 +107,7 @@ data Room = Room
    , _rmPos :: [RoomPos]
    , _rmPath :: S.Set (Point2, Point2)
    , _rmPmnts :: [Placement]
-    , _rmInPmnt :: [GenWorld -> Placement]
+    , _rmInPmnt :: [(Int,GenWorld -> Placement)]
    , _rmBound :: [[Point2]]
    , _rmFloor :: Floor
    , _rmName :: String