Improve rooms, make consumable use type

src/Dodge/Room/Door.hs

@@ -20,6 +20,7 @@ door = defaultRoom
     , _rmPath  = [(V2 20 35,V2 20 5)]
 -- door extends into side walls (for shadows as rendered 12/03)
     , _rmPmnts = [putAutoDoor (V2 0 20) (V2 40 20)]
+    , _rmName = "autoDoor"
 -- note no bounds
     }
   where