Tweak sound positions

src/Dodge/Item/Weapon.hs

@@ -879,8 +879,7 @@ tractorBeamAt colID i pos dir = Projectile
 
 aGasCloud :: Int -> World -> World
 aGasCloud cid w
-    = -- soundFrom Flame fireSound 2 500 
-          insertCloud $ set randGen g $
+    = insertCloud $ set randGen g $
             w
         where 
             (a,g) = randomR (-0.1,0.1) (_randGen w)
@@ -896,7 +895,6 @@ aGasCloud cid w
 aFlame :: Float -> Int -> World -> World
 aFlame a cid w
     = shakeCr cid 2
---          $ soundFrom Flame fireSound 2 500 
           $ insertFlame $ resetAngle $ set randGen g $
             w
         where 
@@ -1381,7 +1379,7 @@ moveRemoteShell time i cid itid dir w
                                   $ set (projectiles . ix i . pjUpdate) 
                                             (moveRemoteShell (time-1) i cid itid newdir)
                                   $ over (projectiles . ix i . pjVel) (\v -> accel +.+ frict *.* v)
-                                  $ soundFrom (ShellSound i) (fromIntegral smokeTrailSound) (1) 250
+                                  $ soundFromPos (ShellSound i) newPos (fromIntegral smokeTrailSound) (1) 250
                                   $ smokeGen
                                   $ makeFlameletTimed oldPos 
                                         (0.5 *.* rotateV (pi+sparkD) accel) Nothing 3 10