Implement modules changing shell payloads

src/Dodge/Item/Scope.hs

@@ -1,4 +1,5 @@
 module Dodge.Item.Scope (
+    shellModule,
     zoomScope,
     targetingScope,
     remoteScreen,
@@ -38,6 +39,11 @@ bulletModule bm =
         & itType .~ BULLETMOD bm
         & itUse .~ UseBulletMod {_ubMod = bm}
 
+shellModule :: Payload -> Item
+shellModule p = defaultHeldItem
+        & itType .~ ATTACH (SHELLPAYLOAD p)
+        & itUse .~ UseNothing
+
 --bulletTargetingModule :: BulletTrajectoryType -> Item
 --bulletTargetingModule = bulletModule . BulletModTrajectory