Make buttons have shape, expose multiple bugs

2021-09-27 12:28:53 +01:00
parent d9ad55ec50
commit 743c1c878d
19 changed files with 157 additions and 71 deletions
@@ -246,7 +246,7 @@ centerVaultRoom n w h d = do
    col = dim $ dim $ bright red
    theDoor i = 
        [ sPS (V2 0  (d-10)) 0 $ PutDoubleDoor col (cond i) (V2 (-19) 0) (V2 19 0) 2
-        , sPS (V2 35 (d+4)) 0 $ PutButton $ makeSwitch col 
+        , sPS (V2 35 (d+4)) 0 $ PutButton $ makeSwitch col red
                           (over worldState (M.insert (DoorNumOpen i) True))
                           (over worldState (M.insert (DoorNumOpen i) False))
        ]