Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Item/Scope.hs

@@ -10,14 +10,14 @@ module Dodge.Item.Scope (
     joystick,
     remoteDetonator,
     homingModule,
---    bulletTargetingModule,
-    augmentedHUD,
+    arHUD,
     bulletModule,
     bulletPayloadModule,
     smokeReducer,
     itemScan,
     introScan,
     mapper,
+    dropper,
 ) where
 
 import Dodge.Item.Attach
@@ -68,6 +68,12 @@ mapper =
         & itType .~ MAPPER
         & itUse .~ UseMapper mempty mempty
 
+dropper :: InventoryPathing -> Item
+dropper x =
+    defaultHeldItem
+        & itType .~ DROPPER x
+        & itUse .~ UseInt 0
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
     defaultHeldItem
@@ -85,8 +91,10 @@ shellModule p = defaultHeldItem
 bulletPayloadModule :: BulletPayload -> Item
 bulletPayloadModule = bulletModule . BulletModPayload
 
-augmentedHUD :: Item
-augmentedHUD = makeAttach AUGMENTEDHUD
+arHUD :: Item
+arHUD = defaultHeldItem
+    & itType .~ ARHUD
+    & itUse .~ UseNothing
 
 remoteScreen :: Item
 remoteScreen = makeAttach REMOTESCREEN