Add attached/aiming checks on item usage

2025-01-01 11:36:33 +00:00
parent 99114c7351
commit 91111fc89c
10 changed files with 393 additions and 423 deletions
@@ -72,8 +72,10 @@ createShell mdetonator mscreen stab pjtype payload muz cr w = w
    updatescreen = fromMaybe id $ do
        screenid <- mscreen
        return $ pointerToItemID screenid . itUse . uaParams
-                . apLinkedProjectile
-                ?~ i
+                . apProjectiles
+                .:~ i
+--                . apLinkedProjectile
+--                ?~ i
    i = IM.newKey $ w ^. cWorld . lWorld . projectiles
    dir = _crDir cr + _mzRot muz
    pos = _crPos cr +.+ rotateV dir (_mzPos muz)