Broken: refactor terminals

src/Dodge/Data/WorldEffect.hs

@@ -3,15 +3,16 @@ import Dodge.Data.CreatureEffect
 import Sound.Data
 import Geometry.Data
 import Dodge.Data.SoundOrigin
-data WorldEffect = NoWorldEffect
+data WdWd = NoWorldEffect
     | SetTrigger Bool Int 
-    | WorldEffects [WorldEffect]
+    | WorldEffects [WdWd]
     | SetLSCol Point3 Int
     | AccessTerminal (Maybe Int)
     | UnlockInv Int
     | SoundStart SoundOrigin Point2 SoundID (Maybe Int)
     | MakeStartCloudAt Point3
     | TorqueCr Float Int
+    | WdWdNegateTrig Int
   deriving (Eq,Ord,Show,Read)
 data WdP2 = WdP2Const Point2
     | WdYouPos
@@ -37,3 +38,9 @@ data DrWdWd = DrWdId
     | DrWdMechanismStepwise Int [Int] [(Point2,Point2)]
     | DoorMechanism
   deriving (Eq,Ord,Show,Read)
+data TmWdWd = TmWdId
+    | TmWdWdDisconnectTerminal
+    | TmWdWdfromWdWd WdWd
+    | TmWdWdTermSound SoundID
+    | TmWdWdDoDeathTriggers
+  deriving (Eq,Ord,Show,Read)