Stop weapon fire after using up consumables

2022-03-22 11:38:30 +00:00
parent 0d5182e8db
commit 873abea79f
5 changed files with 27 additions and 17 deletions
@@ -74,14 +74,16 @@ lightSensByDoor outplid rm = rm

 healthAnalyserByDoor :: Int -> Room -> Room
 healthAnalyserByDoor = analyserByDoor 
-    [ replicate 20 '-'
-    , "HEALTH INTEGRITY CHECK"
-    , replicate 20 '-'
-    ] 
+    [ bar
+    , hic
+    , bar ] 
    "PASSED" 
-    "REQUIRES HEALTH AT LEAST 1100" 
-    (replicate 3 "")
+    "REQUIRES HEALTH 1100" 
+    (bar : replicate 2 "")
    (machineAddSound fridgeHumS $ testYourHealth 1100)
+  where
+    hic = "HEALTH INTEGRITY CHECK"
+    bar = replicate (length hic) '-'

 analyserByDoor :: [String] -> String -> String -> [String]
    -> (Machine -> World -> World) -> Int -> Room -> Room