Add fix bug in terminal destruction effects

2022-06-07 01:25:36 +01:00
parent 1fe41889fe
commit d42538e3c0
13 changed files with 111 additions and 93 deletions
@@ -85,17 +85,11 @@ keyCardRoomRunPast keyid rmid = do

 keyCardAnalyserByDoor :: Int -> Int -> Room -> Room
 keyCardAnalyserByDoor keyid = analyserByDoor 
-    (machineAddSound fridgeHumS $ testYouHave (KEYCARD 0))
-  where
-    hic = "SECURITY CHECK"
-    bar = replicate 18 '-'
+    (machineAddSound fridgeHumS $ testYouHave (KEYCARD keyid))

 healthAnalyserByDoor :: Int -> Room -> Room
 healthAnalyserByDoor = analyserByDoor 
    (machineAddSound fridgeHumS $ testYourHealth 1100)
-  where
-    hic = "HEALTH INTEGRITY CHECK"
-    bar = replicate (length hic) '-'

 analyserByDoor :: (Machine -> World -> World) -> Int -> Room -> Room
 analyserByDoor mcf outplid rm = rm