Improve rooms, make consumable use type

src/Dodge/Item/Consumable.hs

@@ -3,23 +3,20 @@ import Dodge.Data
 --import Dodge.Picture.Layer
 import Dodge.Default
 import Dodge.SoundLogic
-import Dodge.Inventory
 import Shape
 --import ShapePicture
 import Dodge.Item.Draw
 import Picture
 
-import Data.Maybe
+--import Data.Maybe
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
 
 medkit :: Int -> Item
 medkit i = defaultConsumable
     { _itName = "MEDKIT" ++ show i
-    , _itUse = LeftUse 
-        {_lUse = \cr invid w -> fromMaybe w (heal 25 (_crID cr) $ rmInvItem (_crID cr) invid w)
-        ,_useDelay = NoDelay
-        ,_useHammer = HasHammer HammerUp
+    , _itUse = ConsumeUse 
+        {_cUse = \_ cr w -> w & creatures . ix (_crID cr) . crHP +~ i
         }
     , _itEquipPict = pictureItem $ (,) emptySH $ color blue $ circleSolid 3
     , _itID = Nothing