Work on rocket/grenade launcher

src/Dodge/Item/Scope.hs

@@ -3,13 +3,14 @@ module Dodge.Item.Scope (
     zoomScope,
     targetingScope,
     remoteScreen,
-    remoteController,
+    joystick,
     remoteDetonator,
     homingModule,
 --    bulletTargetingModule,
     augmentedHUD,
     bulletModule,
     bulletPayloadModule,
+    smokeReducer,
 ) where
 
 import Dodge.Item.Attach
@@ -61,8 +62,11 @@ remoteScreen = makeAttach REMOTESCREEN
 
 remoteDetonator :: Item
 remoteDetonator = makeAttach REMOTEDETONATOR
-    & itUse . uaParams .~ APLinkProjectile Nothing 
+    & itUse . uaParams .~ APProjectiles [] 
 
-remoteController :: Item
-remoteController = makeAttach REMOTECONTROLLER
-    & itUse . uaParams .~ APLinkProjectile Nothing 
+joystick :: Item
+joystick = makeAttach JOYSTICK
+--    & itUse . uaParams .~ APLinkProjectile Nothing 
+
+smokeReducer :: Item
+smokeReducer = makeAttach SMOKEREDUCER