Improve item location code

2024-09-22 14:29:02 +01:00
parent 236f7c7750
commit 4f6431968c
25 changed files with 218 additions and 186 deletions
@@ -17,7 +17,7 @@ createProjectile mmagid muz itm cr = fromMaybe failsound $ do
    ammoitem <- cr ^? crInv . ix magid
    matype <- ammoitem ^? itUse . amagType
    guard $ matype == ProjectileAmmo
-    j <- ammoitem ^? itLocation . ipInvID
+    j <- ammoitem ^? itLocation . ilInvID
    pt <- ammoitem ^? itUse . amagParams . ampPjCreation
    return $ case pt of
        CreateShell -> fireShell ammoitem muz itm cr . extrafuncs j