Refactor text rendering

src/Dodge/SoundLogic/LoadSound.hs

@@ -50,6 +50,7 @@ loadSounds = do
     foamSprayFadeOut <- Mix.load "./data/sound/foamSprayFadeOut.wav" 
     sineRaisePitchOneSec <- Mix.load "./data/sound/sineRaisePitchOneSec.wav" 
     sineRaisePitchTwoSec <- Mix.load "./data/sound/sineRaisePitchTwoSec.wav" 
+    skwareFadeTwoSec <- Mix.load "./data/sound/skwareFadeTwoSec.wav" 
     return $ IM.fromList $ zip [0..]
         [ pFireSound
         , click
@@ -96,6 +97,7 @@ loadSounds = do
         , foamSprayFadeOut
         , sineRaisePitchOneSec
         , sineRaisePitchTwoSec
+        , skwareFadeTwoSec
         ]
 
 loadMusic :: IO (IM.IntMap Mix.Music)

src/Dodge/SoundLogic/Synonyms.hs

@@ -30,6 +30,8 @@ sineRaisePitchOneSecSound :: Int
 sineRaisePitchOneSecSound = 43
 sineRaisePitchTwoSecSound :: Int
 sineRaisePitchTwoSecSound = 44
+skwareFadeTwoSecSound :: Int
+skwareFadeTwoSecSound = 45
 
 drawWeaponSound = 4
 holsterWeaponSound = 5