Implement targeting launcher shells using separate item

src/Dodge/Data/Item/Combine.hs

@@ -77,7 +77,7 @@ data CraftType
     | TIMEMODULE
     | SIZEMODULE
     | GRAVITYMODULE
-    | TARGETMODULE TargetType
+    | TARGETMODULE TargetingType
     deriving (Eq, Ord, Show, Read)
 
 --deriving (Eq, Ord, Show, Enum, Read) --Generic, Flat)
@@ -90,13 +90,13 @@ data ItemBaseType
     | CRAFT CraftType
     | ATTACH {_ibtAttach :: AttachType}
     | AMMOMAG {_ibtAmmoMag :: AmmoMagType}
+    | TARGETING {_ibtTargeting :: TargetingType}
     deriving (Eq, Ord, Show, Read)
 
 --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data AttachType
     = ZOOMSCOPE
-    | TARGETATTACH {_ibtAttachTarget :: TargetType}
     | BULLETSYNTHESIZER
     | REMOTESCREEN
     | HOMINGMODULE
@@ -130,7 +130,7 @@ data EquipItemType
     | INVISIBILITYEQUIPMENT EquipSite
     | BRAINHAT
     | HAT
-    | TARGETINGHAT TargetType
+    | TARGETINGHAT TargetingType
     | HEADLAMP
     | POWERLEGS
     | SPEEDLEGS
@@ -208,7 +208,7 @@ data ItemModuleType
     | BULPAY BulletSpawn
     | BULBODY BulletEffect
     | BULTRAJ {_imtBulletTrajectoryType :: BulletTrajectoryType}
-    | TARGET {_imtTargetType :: TargetType}
+    | TARGET {_imtTargetType :: TargetingType}
     | INCENDLAS
     | SPLITLAS
     | STATICLAS

src/Dodge/Data/Item/Targeting.hs

@@ -8,7 +8,7 @@ module Dodge.Data.Item.Targeting where
 import Data.Aeson
 import Data.Aeson.TH
 
-data TargetType
+data TargetingType
     = TARGETLASER
     | TargetRBPress
     | TargetRBLine
@@ -16,4 +16,4 @@ data TargetType
     | TargetCursor
     deriving (Eq, Ord, Show, Read, Enum, Bounded) --Generic, Flat)
 
-deriveJSON defaultOptions ''TargetType
+deriveJSON defaultOptions ''TargetingType

src/Dodge/Data/Item/Use.hs

@@ -57,7 +57,7 @@ data ItemUse
         }
     | EquipUse
         { _equipEffect :: EquipEffect
-        , _equipTargeting :: Maybe TargetType
+        , _equipTargeting :: Maybe TargetingType
         }
     | CraftUse
     | --        {_useAmount :: ItAmount}

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -20,10 +20,16 @@ import Dodge.Data.Payload
 data ProjectileDraw = DrawShell | DrawRemoteShell | DrawDrone | DrawBlankProjectile
     deriving (Show, Eq, Ord, Enum, Bounded, Read) --Generic, Flat)
 
+data ProjectileHoming 
+    = NoHoming 
+    | HomeUsingRemoteScreen {_phRemoteID :: NewInt ItmInt}
+    | HomeUsingTargeting {_phTargetingID :: NewInt ItmInt}
+    deriving (Show, Eq, Ord, Read) --Generic, Flat)
+
 data ProjectileUpdate
     = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
     | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
-    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: Maybe (NewInt ItmInt)}
+    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int, _pjuControllerID :: ProjectileHoming}
     | ReduceSpinPU {_pjuReduceSpin :: Float}
     | DestroyPU {_pjuScreenID :: Maybe (NewInt ItmInt), _pjuTimer :: Int}
     | TimePU
@@ -50,7 +56,9 @@ data GasCreate = CreatePoisonGas | CreateFlame
 
 makeLenses ''ProjectileUpdate
 makeLenses ''AmmoType
+makeLenses ''ProjectileHoming
 deriveJSON defaultOptions ''GasFuel
+deriveJSON defaultOptions ''ProjectileHoming
 deriveJSON defaultOptions ''ProjectileDraw
 deriveJSON defaultOptions ''ProjectileUpdate
 deriveJSON defaultOptions ''GasCreate