Cleanup, split CWorld into separate file

src/Dodge/Data/WorldEffect.hs

@@ -3,12 +3,20 @@
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE DeriveGeneric #-}
 module Dodge.Data.WorldEffect where
+import Dodge.Data.Item
 import Data.Aeson
 import GHC.Generics
 import Dodge.Data.CreatureEffect
 import Sound.Data
 import Geometry.Data
 import Dodge.Data.SoundOrigin
+data ItCrWdWd = ItCrWdId
+    | ItCrWdItemEffect
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItCrWdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItCrWdWd 
+
 data WdWd = NoWorldEffect
     | SetTrigger Bool Int 
     | WorldEffects [WdWd]
@@ -19,6 +27,8 @@ data WdWd = NoWorldEffect
     | MakeStartCloudAt Point3
     | TorqueCr Float Int
     | WdWdNegateTrig Int
+    | WdWdFromItixCrixWdWd Int Int ItCrWdWd
+    | WdWdFromItCrixWdWd Item Int ItCrWdWd
   deriving (Eq,Ord,Show,Read,Generic)
 instance ToJSON WdWd  where
     toEncoding = genericToEncoding defaultOptions