Allow creation of items via typed command

src/Dodge/Event.hs

@@ -18,7 +18,8 @@ import Dodge.Combine
 import Dodge.Event.Keyboard
 --import Dodge.Event.Menu
 import Dodge.Base
-import Dodge.Combine.Module
+--import Dodge.Item
+--import Dodge.Combine.Module
 import Dodge.Data
 --import Dodge.Base.Window
 import Dodge.PreloadData
@@ -28,7 +29,7 @@ import Dodge.Inventory.Add
 import Dodge.SoundLogic
 --import Geometry
 --import Preload.Update
-import Dodge.FloorItem
+--import Dodge.FloorItem
 import qualified IntMapHelp           as IM
 import ListHelp
 
@@ -109,12 +110,14 @@ doCombine :: Int -> World -> World
 doCombine i w = case combineItemListYou w !? i of
     Nothing -> w
     Just (is,it) -> enterCombineInv
-        . uncurry (putItemInInvID yid)
-        . copyItemToFloorID (_crPos $ you w) (applyModules it)
+        . createPutItem it
+--        . uncurry (putItemInInvID yid)
+--        . copyItemToFloorID (_crPos $ you w) (applyModules it)
         $ foldr (rmInvItem yid) w (sort is)
   where
     yid = _yourID w
 
+
 handleMouseWheelEvent :: MouseWheelEventData -> Universe -> Maybe Universe
 handleMouseWheelEvent mwev w = case _menuLayers w of
     [] -> case mouseWheelEventPos mwev of