Redo collision changes

src/Dodge/Item/Weapon/Launcher.hs

@@ -28,6 +28,7 @@ import qualified IntMapHelp as IM
 import ShapePicture
 import Shape
 
+import qualified Streaming.Prelude as S
 --import qualified Data.Set as S
 import qualified Data.Map.Strict as M
 import qualified SDL
@@ -332,9 +333,9 @@ moveRemoteShell cid itid pj w
     doExplosion = explodeRemoteRocket itid i $ stopSoundFrom (ShellSound i) w
 
 anythingHitCirc :: Float -> Point2 -> Point2 -> World -> Bool
-anythingHitCirc rad sp ep w = isJust hitCr || isJust (sequence hitWl)
+anythingHitCirc rad sp ep w = hitCr || isJust (sequence hitWl)
   where
-    hitCr    = collideCircCrsPoint sp ep rad (_creatures w)
+    hitCr    = runIdentity $ S.any_ (const True) $ overlap1SegCrs sp ep $ crsNearSeg sp ep w
     hitWl    = collideCircWallsStream sp ep rad $ wlsNearPoint ep w
                                                     -- this should probably be wallsOnLine or something