Zone creatures

src/Dodge/WorldEvent/Shockwave.hs

@@ -70,7 +70,7 @@ mvShockwave is w pt
             w'
             id
             hitBlocks
-    hitBlocks = S.map snd . overlapCircWalls p rad $ wallsAlongCirc' p rad w 
+    hitBlocks = S.map snd . overlapCircWalls p rad $ wallsInsideCirc p rad w 
         -- this is not expansive enough
     damCr cr 
         | _crID cr `elem` is || dist (_crPos cr) p >= rad + _crRad cr  = cr

src/Dodge/WorldEvent/ThingsHit.hs

@@ -35,8 +35,8 @@ crsHit sp ep
     | otherwise = sortStreamOn (dist sp . fst)
         . S.mapMaybe 
             (\cr -> (, cr) <$> listToMaybe (intersectCircSeg (_crPos cr) (_crRad cr) sp ep))
-        . S.each 
-        . _creatures
+--        . S.each . _creatures
+        . crsNearSeg sp ep
 
 thingHit :: Point2 -> Point2 -> World -> Maybe (Point2, Either Creature Wall)
 thingHit sp ep = runIdentity . S.head_ . thingsHit sp ep