Add more positional sound

2021-04-06 20:42:53 +02:00
parent be3c3339ec
commit 9a86d03fae
4 changed files with 20 additions and 13 deletions
@@ -42,11 +42,10 @@ killBlock bl w =  f bl .
    where
        f bl@(Block {_blDegrades = (x:xs)}) = degradeBlock bl . hitSound bl
        f bl          = hitSound' bl
-        hitSound bl | _wlIsSeeThrough bl = mkSoundBreakGlass
--        hitSound bl | _wlIsSeeThrough bl = soundMultiFrom sos (soundid+8) 25 0 
+        pos = _wlLine bl !! 0
+        hitSound bl | _wlIsSeeThrough bl = mkSoundBreakGlass pos
                    | otherwise = soundMultiFrom sos soundid 25 0 
-        hitSound' bl | _wlIsSeeThrough bl = mkSoundSplinterGlass
--        hitSound' bl | _wlIsSeeThrough bl = soundMultiFrom sos (soundid+4) 25 0 
+        hitSound' bl | _wlIsSeeThrough bl = mkSoundSplinterGlass pos
                     | otherwise = soundMultiFrom sos soundid 25 0 
        sos = [BlockDegradeSound 0,BlockDegradeSound 1]
        (soundid,_) = randomR (29,32) $ _randGen w