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
@@ -32,6 +32,10 @@ lockRoomKeyItems =
    ,(const $ lasTunnelRunPast 400, takeOne [FLATSHIELD,FORCEFIELDGUN])
    ,(keyCardRoomRunPast 0, return (KEYCARD 0))
    ]
+keyCardRunPastRand :: RandomGen g => [ (Int -> State g (LabSubCompTree Room) , State g CombineType ) ]
+keyCardRunPastRand = 
+    [(keyCardRoomRunPast 0, return (KEYCARD 0))
+    ]

 itemRooms :: RandomGen g => [(CombineType, State g (LabSubCompTree Room))]
 itemRooms =