Refactor doors

src/Dodge/Data/WorldEffect.hs

@@ -1,4 +1,5 @@
 module Dodge.Data.WorldEffect where
+import Dodge.Data.CreatureEffect
 import Sound.Data
 import Geometry.Data
 import Dodge.Data.SoundOrigin
@@ -22,7 +23,17 @@ data MdWdWd = MdWdId
   deriving (Eq,Ord,Show,Read)
 data WdBl = WdTrig Int
     | WdBlDoorMoving Int
+    | WdBlConst Bool
+    | WdBlNegate WdBl
+    | WdBlCrFilterNearPoint Float Point2 CrBl
+    | WdBlBtOn Int
+    | WdBlBtNotOff Int
   deriving (Eq,Ord,Show,Read)
 data WdP2f = WdP2f0
     | WdP2fDoorPosition Int
   deriving (Eq,Ord,Show,Read)
+data DrWdWd = DrWdId
+    | DrWdMakeDoorDebris
+    | DrWdMechanismStepwise Int [Int] [(Point2,Point2)]
+    | DoorMechanism
+  deriving (Eq,Ord,Show,Read)