Move launcher homing to module, add double launcher

src/Dodge/Combine/Combinations.hs

@@ -55,7 +55,7 @@ itemCombinations =
     , po [BANGROD,PLATE,DRUM,MOTOR] machineGun
 
     , p [p 2 TUBE,o HARDWARE] launcher
-    , po [MICROCHIP,TRANSMITTER,LAUNCHER] trackingLauncher
+    , p [p 2 TUBE,o LAUNCHER] doubleLauncher
     , po [TRANSMITTER,MINIDISPLAY,LAUNCHER] remoteLauncher
 
     , po [LIGHTER,PIPE,CAN]  flameStick
@@ -112,7 +112,7 @@ moduleCombinations =
             ]
         )
     ,   ( ModTarget
-        , trackingLauncher : launcher : bulletWeapons
+        , homingLaunchers ++ bulletWeapons
         ,   [amod [MICROCHIP,CREATURESENSOR] "+CREATURETARGETING" (itTargeting .~ targetRBCreature)
             ,amod [MICROCHIP,PRISM] "+LASERTARGETING" (itTargeting .~ targetLaser)
             ,amod [MICROCHIP,TIN] "+POSTIONALTARGETING" (itTargeting .~ targetRBPress)
@@ -131,6 +131,12 @@ moduleCombinations =
                 (itConsumption . aoType . amBulTraj .~ BezierTrajectory)
             ]
         )
+    ,   ( ModLauncherHoming
+        ,   homingLaunchers
+        ,   [ amod [MICROCHIP,TRANSMITTER] "+TARGET HOMING" 
+                (itConsumption . aoType . amPjCreation .~ fireTrackingShell)
+            ]
+        )
     ]
   where
     makeDirectedTele it = it 
@@ -148,6 +154,12 @@ moduleCombinations =
     f ameff = itConsumption . aoType . amBulEff .~ ameff
     amod cts str func = (cts,ItemModule [str] 1 func)
 
+homingLaunchers :: [Item]
+homingLaunchers = 
+    [ launcher
+    , doubleLauncher
+    ]
+
 bulletWeapons :: [Item]
 bulletWeapons = [bangStick i | i <- [1..9] ]
     ++ [bangCaneX i | i <- [1..6] ]