Move towards external targeting items

src/Dodge/Data/Item/Combine.hs

@@ -98,8 +98,8 @@ data AttachType
     = ZOOMSCOPE
     | TARGETATTACH {_ibtAttachTarget :: TargetType}
     | BULLETSYNTHESIZER
-    | ROCKETHOMER
     | REMOTESCREEN
+    | HOMINGMODULE
 --    | BULPAYLOADATTACH
 --    | BULTRAJECTORYATTACH
     deriving (Eq, Ord, Show, Read)

src/Dodge/Data/Item/Use.hs

@@ -73,6 +73,11 @@ data ItemUse
         { -- | a camera offset
           _scopeScope :: Scope
         }
+    | TargetingUse
+        { _tgPos :: Maybe Point2
+        , _tgID :: Maybe Int
+        , _tgActive :: Bool
+        }
     deriving (Eq, Show, Read) --Generic, Flat)
 
 data TriggerType