Refactor inventory management, add tweak, combine and inspect modes

src/Dodge/Render/Picture.hs

@@ -45,11 +45,12 @@ customMouseCursor w =
     $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]
 
 testPic :: World -> [Picture]
-testPic w = 
-    [ setDepth (-1) . translate 0 0.8
-        . scale 0.001 0.001 . text . show . length . IM.elems 
-        . IM.filter ( (== 3) . _crRad ) $ _creatures w
-    ]
+testPic _ = []
+--testPic w = 
+--    [ setDepth (-1) . translate 0 0.8
+--        . scale 0.001 0.001 . text . show . length . IM.elems 
+--        . IM.filter ( (== 3) . _crRad ) $ _creatures w
+--    ]
 
 crDraw :: World -> Creature -> Picture
 crDraw w c = (_crPict c c w)