Half add explicit death event for machines

2022-06-05 10:37:40 +01:00
parent 7398791194
commit fcc6d3952c
9 changed files with 26 additions and 10 deletions
@@ -42,6 +42,7 @@ import System.Random
 initialAnoTree :: Tree [Annotation]
 initialAnoTree = padSucWithDoors $ treeFromPost 
    [[AnoApplyInt 0 startRoom]
+    , [PassthroughLockKeyLists 2 keyCardRunPastRand itemRooms]
    , [SpecificRoom $ warningRooms 7]
    , [SpecificRoom $ return (return . UseAll $ roomRectAutoLinks 400 400
        & rmPmnts .++~ [spNoID anyUnusedSpot (PutCrit invisibleChaseCrit)