Add force field gun

src/Dodge/Inventory.hs

@@ -57,6 +57,7 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
         & creatures . ix cid . crLeftInvSel %~ g'
         & removeAnySlotEquipment
         & dounequipfunction
+        & doanyitemeffect
         & creatures . ix cid . crInvEquipped %~ IM.delete invid
         & creatures . ix cid . crInvEquipped %~ IM.mapKeys g
                 -- TODO check whether this can be mapKeysMonotonic
@@ -66,6 +67,9 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
     dounequipfunction = fromMaybe id $ do
         rmf <- itm ^? itUse . eqOnRemove
         return $ rmf itm cr
+    doanyitemeffect = fromMaybe id $ do
+        rmf <- itm ^? itEffect . itEffectDrop
+        return $ rmf itm cr
     removeAnySlotEquipment = case w ^? creatures . ix cid . crInvEquipped . ix invid of
         Just epos   -> creatures . ix cid . crEquipment . at epos .~ Nothing
         Nothing     -> id