Continue tweaking sound

2021-09-12 20:33:33 +01:00
parent 51a85bd1ec
commit 72657294d1
89 changed files with 373 additions and 517 deletions
@@ -43,7 +43,7 @@ launcher = defaultGun
    , _itUseModifiers =
        [ ammoCheckI
        , useTimeCheckI
-        , withSoundI tap4S
+        , withSoundStart tap4S
        , useAmmo 1
        ]
    , _wpSpread = 0.02
@@ -107,7 +107,7 @@ doThrust :: Projectile -> World -> World
 doThrust pj w = w
    & randGen .~ g
    & projectiles . ix i . pjVel    %~ (\v -> accel +.+ frict *.* v)
-    & soundFrom (ShellSound i) newPos missileLaunchS (Just 1)
+    & soundContinue (ShellSound i) newPos missileLaunchS (Just 1)
    & makeFlameletTimed (oldPos -.- vel) 0 (vel +.+ rotateV (pi+sparkD) accel) Nothing 3 10
    & smokeGen
  where