Broken commit (removed loadKeyConfig)

src/Dodge/Item/Weapon.hs

@@ -275,7 +275,7 @@ hvAutoGun = defaultAutoGun
     , _wpAmmo = hvBullet
     }
   where 
-    mkHvBul it = withSound (fromIntegral longGunSound)
+    mkHvBul it = withSound longGunSound
         . withThinSmoke
         . withMuzFlare
         $ useAmmoParams it
@@ -322,21 +322,24 @@ miniGun = defaultAutoGun
     , _wpReloadTime = 200
     , _wpReloadState = 0
     , _wpMaxWarmUp = 100
-    , _itUseRate = 2
+    , _itUseRate = 1
     , _itUseTime = 0
-    , _itUse = \_ -> withWarmUp 50 
+    , _itUse = \it -> withWarmUp 26
         . shootWithSoundFor 28 2
-        . torqueBefore 0.03 . withSidePush 50 . withRecoil 15
-        . withRandomDir 0.1
+        . torqueBefore 0.1 
+--        . torqueBefore 0.03 
+        . withSidePush 50 
+        . withRecoil 15
+--        . withRandomDir 0.1
         . withRandomOffset 9
         . withMuzFlare
-        . withVelWthHiteff (V2 30 0) 2 
-        $ destroyOnImpact bulBounceArmCr' bulHitWall' bulHitFF'
+        $ useAmmoParams it
     , _wpRange = 20
     , _itFloorPict = onLayer FlItLayer miniGunPict
     , _itAimingSpeed = 0.4
     , _itAimingRange = 1
     , _itEquipPict = pictureWeaponOnAim miniGunPict
+    , _wpAmmo = basicBullet
     }
 miniGunPict :: Picture
 miniGunPict = pictures
@@ -354,7 +357,7 @@ spreadGun = defaultGun
     , _wpReloadState = 0
     , _itUseRate = 20
     , _itUseTime = 0
-    , _itUse = \_ -> shootWithSound (fromIntegral shotgunSound) 
+    , _itUse = \_ -> shootWithSound shotgunSound 
         . withRecoil 100
         . withMuzFlare
         $ spreadNumVelWthHiteff spreadGunSpread 9 (V2 30 0) 2 basicBulletEffect
@@ -375,7 +378,7 @@ multGun = defaultGun
     , _wpReloadState = 0
     , _itUseRate = 20
     , _itUseTime = 0
-    , _itUse = \_ -> shootWithSound (fromIntegral shotgunSound)
+    , _itUse = \_ -> shootWithSound shotgunSound
         . withRecoil 200
         . withMuzFlare
         $ numVelWthHitEff 5 (V2 50 0) 5 basicBulletEffect
@@ -411,7 +414,7 @@ longGun = defaultGun
     , _wpReloadType = PassiveReload skwareFadeTwoSecSound
     , _itUseRate = 100
     , _itUseTime = 0
-    , _itUse = shootWithSound (fromIntegral longGunSound)
+    , _itUse = shootWithSound longGunSound
         . withThickSmoke
         . torqueAfter 0.05
         . withMuzFlare
@@ -640,10 +643,10 @@ moveRemoteBomb itid time pID w
                 $ set (projectiles .ix pID.pjUpdate) (\_ -> moveRemoteBomb itid (f time) pID)
                     w
     | time < 2 = case hitWl of
-            Just _ -> soundOnce (fromIntegral tapQuiet) $ halfV updatedWorld
+            Just _ -> soundOnce tapQuiet $ halfV updatedWorld
             _      -> halfV updatedWorld
     | otherwise = case hitWl of
-            Just _ -> soundOnce (fromIntegral tapQuiet) updatedWorld
+            Just _ -> soundOnce tapQuiet updatedWorld
             _      -> updatedWorld
   where 
     updatedWorld 
@@ -757,7 +760,7 @@ fireRemoteLauncher :: Creature -> World -> World
 fireRemoteLauncher cr w = setLocation 
     $ resetFire 
     $ resetName 
-    $ soundOnce (fromIntegral launcherSound)
+    $ soundOnce launcherSound
     $ over projectiles remRocket w
   where
     i = IM.newKey $ _projectiles w
@@ -805,7 +808,7 @@ moveRemoteShell cid itid pj w
                 ( ( pjVel %~ ( (accel +.+) . (frict *.*) ) )
                 . ( pjDir .~ newdir )
                 )
-            & soundFromPos (ShellSound i) newPos (fromIntegral smokeTrailSound) 1 250
+            & soundFromPos (ShellSound i) newPos smokeTrailSound 1 250
             & smokeGen
             & makeFlameletTimed oldPos 20 (0.5 *.* rotateV (pi+sparkD) accel) Nothing 3 10
     | time > -200 = case thingHit of