Add sounds, move data types out into separate folders

src/Dodge/Block/Debris.hs

@@ -1,5 +1,5 @@
 module Dodge.Block.Debris where
-import Dodge.Material
+import Dodge.Material.Sound
 import Dodge.Prop.Moving
 import Dodge.WorldEvent.Sound
 --import Dodge.Zone
@@ -106,6 +106,8 @@ debrisSize mt = case mt of
     Dirt    -> 20
     Wood    -> 10
     Metal   -> 10
+    Electronics -> 10
+    Flesh -> 10
 
 baseDebris :: Material -> State StdGen Prop
 baseDebris mt = case mt of
@@ -118,6 +120,8 @@ baseDebris mt = case mt of
         sh <- jaggedShape
         return $ metalDebris
             & prDraw .~ (`drawMovingShapeCol` sh)
+    Electronics -> baseDebris Metal
+    Flesh   -> baseDebris Dirt <&> pjColor .~ red
 
 stoneDebris :: Prop
 stoneDebris = PropZ