Implement bullet trajectories using attachable items

src/Dodge/Item/Scope.hs

@@ -3,6 +3,8 @@ module Dodge.Item.Scope (
     targetingScope,
     remoteScreen,
     homingModule,
+    fletchingModule,
+    bulletTargetingModule,
 ) where
 
 import Control.Lens
@@ -28,6 +30,15 @@ homingModule =
         & itType . iyBase .~ ATTACH HOMINGMODULE
         & itUse .~ AttachUse Nothing
 
+fletchingModule :: Item
+fletchingModule = bulletTargetingModule FlechetteTrajectoryType
+
+bulletTargetingModule :: BulletTrajectoryType -> Item
+bulletTargetingModule btt =
+    defaultHeldItem
+        & itType . iyBase .~ HOMING btt
+        & itUse .~ BulletTrajectoryUse btt
+
 remoteScreen :: Item
 remoteScreen =
     defaultHeldItem