Add destroyable lighting

src/Dodge/Room/Placement.hs

@@ -2,11 +2,14 @@ module Dodge.Room.Placement
   where
 import Dodge.Data
 import Picture
+import Dodge.Creature.Inanimate
 
 import Geometry
 
 -- module defining helper placements for rooms
 
+putLamp = PutCrit lamp
+
 singleBlock :: Point2 -> [PlacementSpot]
 singleBlock a = [PS a 0 $ PutBlock [5,20,20] (greyN 0.5)
                                         $ reverse $ rectNSWE 10 (-10) (-10) 10]