Start implementing sticky grenades

src/Dodge/WorldEvent/Sound.hs

@@ -1,6 +1,6 @@
 module Dodge.WorldEvent.Sound (
-    originIDsAt,
-    originsIDsAt,
+    soundOriginIDsAt,
+    soundOriginsIDsAt,
 ) where
 
 import Control.Lens
@@ -10,12 +10,12 @@ import Geometry.Data
 import RandomHelp
 import Sound.Data
 
-originsIDsAt :: [SoundOrigin] -> [SoundID] -> Point2 -> World -> World
-originsIDsAt sos sids p w = soundMultiFrom sos p sid Nothing $ set randGen g w
+soundOriginsIDsAt :: [SoundOrigin] -> [SoundID] -> Point2 -> World -> World
+soundOriginsIDsAt sos sids p w = soundMultiFrom sos p sid Nothing $ set randGen g w
   where
     (sid, g) = _randGen w & runState (takeOne sids)
 
-originIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
-originIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w
+soundOriginIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
+soundOriginIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w
   where
     (sid, g) = _randGen w & runState (takeOne sids)