Tweak rockets, smoke

src/Dodge/HeldUse.hs

@@ -614,7 +614,15 @@ createProjectileR ::
     World ->
     World
 createProjectileR magtree muz itmtree cr =
-    createProjectile (Rocket $ determineProjectileTracking magtree itmtree) magtree muz itmtree cr
+    createProjectile 
+        (Rocket 
+            (determineProjectileTracking magtree itmtree)
+            smoke
+        ) magtree muz itmtree cr
+  where
+    smoke 
+        | isJust $ lookup SmokeReducerLink (magtree ^. ldtLeft) = Just ReducedRocketSmoke
+        | otherwise = Nothing
 
 createProjectile ::
     ProjectileType ->
@@ -632,11 +640,12 @@ createProjectile pjtype magtree muz itmtree cr = fromMaybe failsound $ do
             lookup RemoteDetonatorLink (magtree ^. ldtLeft)
         rscreen = fmap (^. ldtValue . itID) $
             lookup RemoteScreenLink (magtree ^. ldtLeft)
-        issmokeless = isJust $ lookup SmokeReducerLink (magtree ^. ldtLeft)
+--        issmokeless = isJust $ lookup SmokeReducerLink (magtree ^. ldtLeft)
     aparams <- ((magtree ^? ldtLeft) >>= lookup AmmoPayloadLink >>= (^? ldtValue . itType . ibtAttach . shellPayload))
         <|> ammoitem ^? itConsumables . magParams . ampPayload
     return $
-        createShell homing rdetonate rscreen issmokeless pjtype aparams muz cr
+        --createShell homing rdetonate rscreen issmokeless pjtype aparams muz cr
+        createShell homing rdetonate rscreen pjtype aparams muz cr
             . startthesound
   where
     -- the sound should be moved to the projectile firing