Move GenWorld update of placements into product type

2022-03-16 09:39:07 +00:00
parent 5aeb04ba05
commit 2dc94b85da
8 changed files with 32 additions and 35 deletions
@@ -15,10 +15,10 @@ import Control.Monad.State
 lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State g CombineType ) ]
 lockRoomKeyItems = 
    --[(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )
-    --,(sensorRoomRunPast Electrical, return SPARKGUN )
+    [(sensorRoomRunPast Electrical, return SPARKGUN )
    --,(sensorRoomRunPast Flaming, return FLAMESPITTER )
    --,(sensorRoomRunPast Lasering, return LASGUN )
-    [(const slowDoorRoomRunPast, return MINIGUN)
+    --,(const slowDoorRoomRunPast, return MINIGUN)
    --,(const longRoomRunPast, takeOne [SNIPERRIFLE,FLATSHIELD])
    --,(const glassLessonRunPast, takeOne [LASGUN])
    --,(const $ lasTunnelRunPast 400, return FLATSHIELD)