Add force field gun

src/Dodge/Data.hs

@@ -136,10 +136,10 @@ data World = World
     , _doubleMouseHammer    :: HammerPosition
     }
 
-data HUDElement = DisplayInventory {_subInventory :: SubInventory}
+data HUDElement 
+    = DisplayInventory {_subInventory :: SubInventory}
     | DisplayCarte
 --  deriving (Eq,Ord,Show)
-
 data RightButtonOptions
     = NoRightButtonOptions
     | EquipOptions 
@@ -149,13 +149,11 @@ data RightButtonOptions
         ,_opAllocateEquipment :: AllocateEquipment
         ,_opActivateEquipment :: ActivateEquipment
         }
-
 data ActivateEquipment
     = ActivateEquipment {_activateEquipment :: Int }
     | DeactivateEquipment {_deactivateEquipment :: Int}
     | ActivateDeactivateEquipment {_activateEquipment :: Int ,_deactivateEquipment :: Int}
     | NoChangeActivateEquipment
-
 data AllocateEquipment 
     = DoNotMoveEquipment
     | PutOnEquipment
@@ -487,18 +485,17 @@ data Item = Item
     , _itTargeting  :: Targeting
     , _itDimension  :: ItemDimension
     , _itCurseStatus :: CurseStatus
-    , _itParams     :: ItemParams
     , _itTweaks     :: ItemTweaks
     , _itModules    :: M.Map ModuleSlot ItemModule
     , _itScope      :: Scope
     , _itValue      :: ItemValue
+    , _itParams     :: ItemParams
     }
 data ItemValue = ItemValue
     { _ivInt :: Int
     , _ivType :: ItemValueType
     }
 data ItemValueType = MundaneItem | ArtefactItem
-
 data Targeting
     = NoTargeting
     | Targeting
@@ -570,6 +567,11 @@ data ItEffect
         {_itInvEffect       :: Item -> Creature -> World -> World
         ,_itEffectID   :: Maybe Int
         }
+    | ItInvEffectDrop
+        { _itInvEffect  :: Item -> Creature -> World -> World
+        , _itEffectDrop    :: Item -> Creature -> World -> World
+        , _itEffectMID     :: Maybe Int
+        }
 data IntID a = IntID Int a
 
 data WorldBeams = WorldBeams
@@ -780,6 +782,7 @@ data ItemParams
             -> State StdGen (Maybe ArcStep)
         , _previousArcEffect :: PreviousArcEffect
         }
+    | ParamMID {_paramMID :: Maybe Int}
 data ArcStep = ArcStep
     { _asPos :: Point2
     , _asDir :: Float