Start unifying heldUse and heldMods

src/Dodge/WorldEffect.hs

@@ -15,7 +15,7 @@ import Dodge.Creature.Impulse.UseItem
 import Dodge.Data.World
 import Dodge.Default
 import Dodge.Inventory.Lock
-import Dodge.Item.Location
+--import Dodge.Item.Location
 import Dodge.SoundLogic
 import Dodge.Terminal
 import Dodge.WorldEvent.Cloud
@@ -35,7 +35,8 @@ doWdWd we = case we of
     TorqueCr x cid -> torqueCr x cid
     SoundStart so p sid mi -> soundStart so p sid mi
     WdWdNegateTrig trid -> cWorld . lWorld . triggers . ix trid %~ not
-    WdWdFromItixCrixWdWd itid crid f -> \w -> fromMaybe w $ do
+    --WdWdFromItixCrixWdWd itid crid f -> \w -> fromMaybe w $ do
+    WdWdFromItixCrixWdWd _ crid f -> \w -> fromMaybe w $ do
         cr <- w ^? cWorld . lWorld . creatures . ix crid
         --it <- getItem itid w
         itRef <- cr ^? crManipulation . manObject . inInventory . ispItem