Make equipment indices point to item indices

2025-08-26 23:57:02 +01:00
parent 49efe62910
commit 06d50ac752
18 changed files with 108 additions and 522 deletions
@@ -175,8 +175,9 @@ dropItem :: Creature -> Int -> World -> World
 dropItem cr invid w' =
    doanyitemdropeffect
        . maybeshiftseldown
-        . rmInvItem (_crID cr) (NInt invid)
        . copyItemToFloor (_crPos cr) itm -- . mayberemoveequip
+        . rmInvItem (_crID cr) (NInt invid) -- it is important 
+            -- to do this before copying the item to the floor!
        . soundStart (CrSound (_crID cr)) (_crPos cr) whiteNoiseFadeOutS Nothing
        $ w'
  where