Refactor sound

src/Dodge/Creature/State/WalkCycle.hs

@@ -4,7 +4,9 @@ import Dodge.Data
 import Dodge.Data.SoundOrigin
 import Dodge.Creature.Stance.Data
 import Dodge.SoundLogic
+import Dodge.SoundLogic.LoadSound
 import Geometry.Data
+import Sound.Data
 
 import Control.Lens
 
@@ -36,6 +38,6 @@ makeFootstepSound currentStride maxStride ff p
   where
     footor = [FootstepSound 0,FootstepSound 1]
 
-chooseFootSound :: FootForward -> Int
-chooseFootSound LeftForward = 22
-chooseFootSound _ = 23
+chooseFootSound :: FootForward -> SoundID
+chooseFootSound LeftForward = foot1S
+chooseFootSound _ = foot2S