Cleanup

2024-09-27 21:55:17 +01:00
parent dd6cbc0bfb
commit 6c3d0d5def
21 changed files with 232 additions and 333 deletions
@@ -505,7 +505,8 @@ createProjectile magtree muz itm cr = fromMaybe failsound $ do
    ammoitem <- cr ^? crInv . ix magid
    let mscreen = lookup RemoteScreenLink (magtree ^. ldtLeft)
    j <- ammoitem ^? itLocation . ilInvID
-    return $ fireTrackingShell (mscreen ^? _Just . ldtValue) ammoitem muz itm cr 
+    aparams <- ammoitem ^? itUse . amagParams
+    return $ fireTrackingShell (mscreen ^? _Just . ldtValue) aparams muz itm cr 
        . startthesound
        . useammo j
  where