Fix bug not adding last positioned room to list

2021-11-23 12:50:15 +00:00
parent 05bb1961c0
commit f51a6a7216
6 changed files with 33 additions and 21 deletions
@@ -16,11 +16,14 @@ import Control.Monad.State
 lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State g ItemIdentity ) ]
 lockRoomKeyItems = 
    [ (lasCenSensEdge, takeOne [Launcher] )
+--    , (const $ fmap singleUseAll slowDoorRoom, return MiniGun)
    ]

 itemRooms :: RandomGen g => [(ItemIdentity, State g (SubCompTree Room))]
 itemRooms = 
-    [ (Launcher , corridorBoss launcherCrit ) ]
+    [ (Launcher , corridorBoss launcherCrit ) 
+ --   , (MiniGun  , join $ takeOne [roomMiniIntro, minigunFakeout] )
+    ]

 corridorBoss :: RandomGen g => Creature -> State g (SubCompTree Room)
 corridorBoss cr = do