Move button data

2022-07-21 18:22:08 +01:00
parent aabd8a2cb8
commit b58444f931
16 changed files with 185 additions and 89 deletions
@@ -63,7 +63,8 @@ putAutoDoor a b = PlacementUsingPos (addZ 0 a)
        . IM.filter isAnimate . _creatures

 switchDoor :: Point2 -> Float -> Point2 -> Point2 -> Color -> Placement
-switchDoor btpos btrot dra drb col = pContID (PS btpos btrot) (PutButton $ makeSwitch col red id id)
+switchDoor btpos btrot dra drb col = pContID (PS btpos btrot) 
+    (PutButton $ makeSwitch col red NoWorldEffect NoWorldEffect)
    $ \btid -> jsps0J (doorbetween btid dra drc)
    $          sps0   (doorbetween btid drb drc)
  where