Various improvements, metal debris

src/Dodge/Default/Door.hs

@@ -1,5 +1,25 @@
-module Dodge.Default.Door where
+module Dodge.Default.Door 
+    ( module Dodge.Default.Door
+    , module Dodge.Default.Wall
+    ) where
 import Dodge.Data
+import Dodge.Default.Wall
+import Dodge.Block.Debris
+import Color
+
+import Control.Lens
+
+switchWallCol :: Color -> Wall
+switchWallCol col = defaultSwitchWall & wlColor .~ col
+
+defaultAutoWall :: Wall
+defaultAutoWall = defaultDoorWall'
+    & wlColor .~ dim yellow
+    & wlPathable .~ True
+defaultSwitchWall :: Wall
+defaultSwitchWall = defaultDoorWall'
+    & wlColor .~ red
+    & wlPathable .~ False
 
 defaultDoor :: Door
 defaultDoor = Door
@@ -12,7 +32,7 @@ defaultDoor = Door
     , _drOpenPos = (0,0)
     , _drClosePos = (0,0)
     , _drHP     = 10000
-    , _drDeath  = const id
+    , _drDeath  = makeDoorDebris
     , _drSpeed  = 1
     , _drPushedBy = PushesItself
     , _drPushes  = Nothing

src/Dodge/Default/Wall.hs

@@ -23,6 +23,11 @@ defaultWall = Wall
     , _wlHeight = 100
     , _wlMaterial = Stone
     }
+defaultDoorWall' :: Wall
+defaultDoorWall' = defaultWall
+    { _wlPathable = True
+    , _wlMaterial = Metal
+    }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = defaultWall