Allow for different item drops on creature death

src/Dodge/Default.hs

@@ -24,6 +24,9 @@ import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
 
+{-
+Indestructible wall.
+-}
 defaultWall = Wall 
     { _wlLine = [(0,0),(50,0)]
     , _wlID = 0
@@ -32,6 +35,10 @@ defaultWall = Wall
     , _wlSeen = False
     , _wlIsSeeThrough = False
     }
+{-
+Door that opens on approach.
+Pathable.
+-}
 defaultAutoDoor = Door 
     { _wlLine = [(0,0),(50,0)]
     , _wlID = 0
@@ -42,6 +49,9 @@ defaultAutoDoor = Door
     , _wlIsSeeThrough = False
     , _doorPathable = True
     }
+{-
+Non-pathable door.
+ -}
 defaultDoor = Door 
     { _wlLine = [(0,0),(50,0)]
     , _wlID = 0
@@ -79,6 +89,7 @@ defaultState = CrSt
     , _crPastDamage = 0
     , _crSpState = GenCr
     , _crApplyDamage = defaultApplyDamage
+    , _crDropsOnDeath = DropAmount 1
     }
 defaultEquipment = Equipment
     { _itIdentity = Generic