Add in "linear" lWorld to separate time reversable worlds

2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
@@ -121,7 +121,7 @@ addButtonSlowDoor x h rm = do
                ptCont (PutWorldUpdate (const $ setmount dr plls plpr)) $
                    const mpl
    setmount pldr plls plpr =
-        cWorld . doors . ix (fromJust $ _plMID pldr) . drMounts
+        cWorld . lWorld . doors . ix (fromJust $ _plMID pldr) . drMounts
            .++~ [MountedLS (fromJust $ _plMID plls), MountedProp (fromJust $ _plMID plpr)]
    -- TODO make the height of this light source and of other mounted lights
    -- be taken from a single consistent source