Refactor doors

2022-07-24 20:36:27 +01:00
parent 2c1bc67a51
commit d6a94ec4bc
25 changed files with 186 additions and 135 deletions
@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.DrWdWd
 import Dodge.TractorBeam.Update
 import Dodge.Prop.Update
 import Dodge.LinearShockwave.Update
@@ -86,7 +87,7 @@ functionalUpdate w = checkEndGame
    . colCrsWalls
    . over uvWorld simpleCrSprings 
    . over uvWorld zoneCreatures
-    . over uvWorld (updateIMl _doors _drMech                )
+    . over uvWorld (updateIMl _doors (doDrWdWd . _drMech)                )
    . over uvWorld doWorldEvents
    . over uvWorld updateDelayedEvents
    . over uvWorld (updateIMl _modifications (doModificationEffect . _mdUpdate)      )