Implement targeting launcher shells using separate item

src/Dodge/Item.hs

@@ -25,6 +25,7 @@ itemFromBase ibt = case ibt of
     CRAFT cr -> makeTypeCraft cr
     ATTACH at -> itemFromAttachType at
     AMMOMAG t -> itemFromAmmoMag t
+    TARGETING tt -> targetingScope tt
 
 itemFromAmmoMag :: AmmoMagType -> Item
 itemFromAmmoMag at = case at of
@@ -39,7 +40,6 @@ itemFromAmmoMag at = case at of
 itemFromAttachType :: AttachType -> Item
 itemFromAttachType at = case at of
     ZOOMSCOPE -> zoomScope
-    TARGETATTACH tt -> targetingScope tt
     BULLETSYNTHESIZER -> bulletSynthesizer
     REMOTESCREEN -> remoteScreen
 --    ROCKETHOMER -> rocketHomer