Continue tweaking sound

2021-09-12 20:33:33 +01:00
parent 51a85bd1ec
commit 72657294d1
89 changed files with 373 additions and 517 deletions
@@ -198,7 +198,7 @@ youDropItem w = case yourItem w of
    NoItem -> w
    _ -> rmSelectedInvItem (_yourID w) 
        . copyItemToFloor (you w) (_crInvSel cr)
-        $ soundFrom (CrSound (_crID cr)) (_crPos cr) whiteNoiseFadeOutS Nothing
+        $ soundStart (CrSound (_crID cr)) (_crPos cr) whiteNoiseFadeOutS Nothing
        w
  where
    cr = you w
@@ -233,7 +233,7 @@ pickUpItem
 pickUpItem cid flit w = case maybeInvSlot of
    Nothing -> w
    Just i  -> w
-        & soundFrom (CrSound cid) (_flItPos flit) pickUpS Nothing
+        & soundStart (CrSound cid) (_flItPos flit) pickUpS Nothing
        & updateItLocation i
        & floorItems                      %~ IM.delete (_flItID flit)
        & creatures . ix cid . crInv . ix i %~ addItem it