Move button data

2022-07-21 18:22:08 +01:00
parent aabd8a2cb8
commit b58444f931
16 changed files with 185 additions and 89 deletions
@@ -266,7 +266,7 @@ centerVaultRoom w h d = return $ defaultRoom
  where
    col = dim $ dim $ bright red
    theDoor = 
-        [ pContID (PS (V2 35 (d+4)) 0) (PutButton $ makeSwitch col red id id)
+        [ pContID (PS (V2 35 (d+4)) 0) (PutButton $ makeSwitch col red NoWorldEffect NoWorldEffect)
            $ \btid -> jspsJ (V2 0 (d-10)) 0 (PutSlideDr (thedoor btid) thewall DoorObstacle 1 (V2 (-21) 0) (V2 0 0))
            $          sPS   (V2 0 (d-10)) 0 (PutSlideDr (thedoor btid) thewall DoorObstacle 1 (V2   21  0) (V2 0 0))
        ]