Cleanup

src/Dodge/LockAndKey.hs

@@ -25,8 +25,8 @@ lockRoomMultiItems =
 lockRoomKeyItems :: RandomGen g => [(Int -> State g (MetaTree Room String), State g ItemBaseType)]
 lockRoomKeyItems =
     [ (lasCenSensEdge, takeOne [HELD LAUNCHER, HELD LASGUN, HELD SPARKGUN, HELD FLATSHIELD, HELD FORCEFIELDGUN])
-    , (sensorRoomRunPast ELECTRICAL, takeOne [CRAFT (ENERGYBALLCRAFT TeslaBall), HELD SPARKGUN])
-    , (sensorRoomRunPast FLAMING, takeOne [HELD FLAMESPITTER, CRAFT (ENERGYBALLCRAFT IncBall)])
+--    , (sensorRoomRunPast ELECTRICAL, takeOne [CRAFT (ENERGYBALLCRAFT TeslaBall), HELD SPARKGUN])
+--    , (sensorRoomRunPast FLAMING, takeOne [HELD FLAMESPITTER, CRAFT (ENERGYBALLCRAFT IncBall)])
     , (sensorRoomRunPast LASERING, return $ HELD LASGUN)
     , (const slowDoorRoomRunPast, return $ HELD (MINIGUNX 3))
     , (const longRoomRunPast, takeOne [HELD SNIPERRIFLE, HELD FLATSHIELD])
@@ -106,20 +106,20 @@ itemRooms =
                 [ rc [keyCard 0]
                 ]
         )
-    ,
-        ( CRAFT (ENERGYBALLCRAFT IncBall)
-        , join $
-            takeOne
-                [ rc [incendiaryModule]
-                ]
-        )
-    ,
-        ( CRAFT (ENERGYBALLCRAFT TeslaBall)
-        , join $
-            takeOne
-                [ rc [makeTypeCraft (ENERGYBALLCRAFT TeslaBall)]
-                ]
-        )
+--    ,
+--        ( CRAFT (ENERGYBALLCRAFT IncBall)
+--        , join $
+--            takeOne
+--                [ rc [incendiaryModule]
+--                ]
+--        )
+--    ,
+--        ( CRAFT (ENERGYBALLCRAFT TeslaBall)
+--        , join $
+--            takeOne
+--                [ rc [makeTypeCraft (ENERGYBALLCRAFT TeslaBall)]
+--                ]
+--        )
     ]
   where
     rc its = do