Use placement as continutation

2021-11-13 09:26:20 +00:00
parent b243479759
commit 17c1a2152d
8 changed files with 35 additions and 21 deletions
@@ -237,7 +237,7 @@ centerVaultRoom w h d = do
  where
    col = dim $ dim $ bright red
    theDoor = 
-        [ Placement (PS (V2 35 (d+4)) 0) (PutButton $ makeSwitch col red id id) Nothing
+        [ pContID (PS (V2 35 (d+4)) 0) (PutButton $ makeSwitch col red id id)
            $ \btid -> jspsJ (V2 0 (d-10)) 0 (PutSlideDoor False col (cond' btid) (V2 (-21) 0) (V2 0 0) 2)
            $          sPS   (V2 0 (d-10)) 0 (PutSlideDoor False col (cond' btid) (V2   21  0) (V2 0 0) 2)
        ]