Remove _plGenUpdate field, instead allow Placements to take World arg

2022-06-02 20:00:03 +01:00
parent 7c4a853d70
commit 024f72da20
13 changed files with 54 additions and 53 deletions
@@ -27,6 +27,7 @@ import Dodge.Data
 --import MonadHelp
 import Data.Tree
 import LensHelp
+import Dodge.RandomHelp
 --import Color
 --import Dodge.Wire

@@ -49,6 +50,7 @@ initialAnoTree = padSucWithDoors $ treeFromPost
            , TreeSubLabelling "chaseCrit+armourChaseCrit rectRoom" Nothing)
    ]
 --    , [AnoApplyInt 100 healthTest]
+    , [PassthroughLockKeyLists 23 [(sensorRoomRunPast Electrical, takeOne [STATICMODULE,SPARKGUN] )] itemRooms]
    , [SpecificRoom ((return . UseAll <$> tanksRoom [] []) 
        <&> (, TreeSubLabelling "empty tanksRoom" Nothing))]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]