Add tree structure generation

src/Dodge/Data/SoundOrigin.hs

@@ -0,0 +1,20 @@
+module Dodge.Data.SoundOrigin
+    where
+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)
+