Crush run-past room

2026-03-26 18:24:42 +00:00
parent 9081bdc97f
commit 31d7a00ecf
10 changed files with 125 additions and 64 deletions
@@ -237,6 +237,7 @@ btText :: Button -> String
 btText bt = case _btEvent bt of
    ButtonPress {} -> "BUTTON"
    ButtonSwitch {_btOn = t} -> if t then "SWITCH\\" else "SWITCH/"
+    ButtonDumbSwitch {} -> "SWITCH"
    ButtonAccessTerminal i -> "TERMINAL " ++ show i

 closeItemToTextPictures :: Item -> ([String], Color)