Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -12,7 +12,13 @@ import Control.Lens

 data GenWorld = GenWorld
    { _gWorld       :: World
-    , _gPlacements  :: IM.IntMap [Placement]
+    , _gPlacements  :: IM.IntMap [(Placement,Int)]
+    , _gRooms       :: IM.IntMap Room
+    }
+worldToGenWorld :: IM.IntMap Room -> World -> GenWorld
+worldToGenWorld rms w = GenWorld 
+    { _gWorld = w
+    , _gPlacements = IM.empty
+    , _gRooms = rms
    }
-worldToGenWorld w = GenWorld w IM.empty
 makeLenses ''GenWorld