Fix wall bug, refactor placements

2021-09-30 15:35:35 +01:00
parent eb393708c4
commit c88f88004d
17 changed files with 54 additions and 80 deletions
@@ -141,11 +141,11 @@ airlockCrystal n = defaultRoom
    , _rmPS    = 
        [sPS (V2 0 0) 0 $ PutDoor col (not . cond) pss
        ,sPS (V2 145 70) (pi/2) $ PutButton $ makeSwitch col red
-            (over worldState (M.insert (DoorNumOpen n) True))
            (over worldState (M.insert (DoorNumOpen n) False))
+            (over worldState (M.insert (DoorNumOpen n) True))
        ,crystalLine (V2 0 70) (V2 40 70)
-        ,sPS (V2 20  40) 0 putLamp
-        ,sPS (V2 20  100) 0 putLamp
+        --,sPS (V2 20  40) 0 putLamp
+        --,sPS (V2 20  100) 0 putLamp
        ]
    , _rmBound = 
        [         ]