Refactor inventory management, add tweak, combine and inspect modes

src/Dodge/Default/Wall.hs

@@ -0,0 +1,50 @@
+module Dodge.Default.Wall
+    where
+import Dodge.Data
+import Picture
+import qualified DoubleStack as DS
+{- Indestructible wall.  -}
+defaultWall :: Wall
+defaultWall = Wall 
+    { _wlLine = ((0,0),(50,0))
+    , _wlID = 0
+    , _wlColor = greyN 0.6
+    , _wlSeen = False
+    , _wlIsSeeThrough = False
+    }
+{- Indestructible see-through wall.  -}
+defaultCrystalWall :: Wall
+defaultCrystalWall = Wall 
+    { _wlLine = ((0,0),(50,0))
+    , _wlID = 0
+    , _wlColor = withAlpha 0.5 aquamarine
+    , _wlSeen = False
+    , _wlIsSeeThrough = True
+    }
+{- Door that opens on approach.
+Pathable.  -}
+defaultAutoDoor :: Wall
+defaultAutoDoor = Door 
+    { _wlLine = ((0,0),(50,0))
+    , _wlID = 0
+    , _doorMech = id
+    , _wlColor = light $ dim $ dim $ dim yellow
+    , _wlSeen = False
+    , _wlIsSeeThrough = False
+    , _doorPathable = True
+    , _drPositions = DS.singleton ((0,0),(50,0))
+    }
+{-
+Non-pathable door.
+ -}
+defaultDoor :: Wall
+defaultDoor = Door 
+    { _wlLine = ((0,0),(50,0))
+    , _wlID = 0
+    , _doorMech = id
+    , _wlColor = light $ dim $ dim $ dim yellow
+    , _wlSeen = False
+    , _wlIsSeeThrough = False
+    , _doorPathable = False
+    , _drPositions = DS.singleton ((0,0),(50,0))
+    }

src/Dodge/Default/Weapon.hs

@@ -43,3 +43,12 @@ defaultAutoGun = defaultGun
     , _itScrollDown = const id
     , _itInvDisplay = basicWeaponDisplay
     }
+
+defaultShellAmmo :: Ammo
+defaultShellAmmo = ShellAmmo
+    { _amPayload = \_ -> id
+    , _amString = "Shell"
+    , _amPjMove = []
+    , _amPjDraw = \_ -> blank
+    , _amParamSel = 0
+    }