Add first compo

src/Dodge/Data.hs

@@ -4,14 +4,16 @@
 module Dodge.Data 
     ( module Dodge.Data
     , module Dodge.Data.Menu
+    , module Dodge.Data.SoundOrigin
     , Point2 (..)
     , Sound (..)
     , soundTime
     )
   where
 import Dodge.Data.Menu
+import Dodge.Data.SoundOrigin
 import Dodge.Config.Data
-import Dodge.LoadConfig.KeyConfig
+import Dodge.Config.KeyConfig
 import Preload.Data
 import Picture.Data
 import Geometry.Data
@@ -574,24 +576,6 @@ data ForceField = FF
     }
 data FFState = FFDestroyable { _ffsHP :: Int }
 
-data SoundOrigin = InventorySound 
-    | BackgroundSound
-    | OnceSound
-    | CrSound Int
-    | CrWeaponSound Int
-    | WallSound Int
-    | CrReloadSound Int
-    | Flamer
-    | ShellSound Int
-    | Flame
-    | LasSound
-    | FootstepSound Int
-    | BlockDegradeSound Int
-    | CrHitSound Int
-    | BarrelHiss Int
-    | GlassBreakSound Int
-  deriving (Eq,Ord,Show)
-
 
 makeLenses ''World
 makeLenses ''Cloud