Work on AttachUse -> UseAttach

2024-10-01 14:21:40 +01:00
parent 36238669f5
commit f90bbc1cd0
15 changed files with 436 additions and 374 deletions
@@ -47,8 +47,8 @@ createShell homing payload muz cr w = w
    thrustdelay = 20
    updatescreen = fromMaybe id $ do
        screenid <- homing ^? phRemoteID
-        return $ pointerToItemID screenid . itUse
-                . atLinkedProjectile
+        return $ pointerToItemID screenid . itUse . uaParams
+                . apLinkedProjectile
                ?~ i
    i = IM.newKey $ w ^. cWorld . lWorld . projectiles
    dir = _crDir cr + _mzRot muz