justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Update default config, general cleanup

Browse Source
This commit is contained in:
justin
2025-10-08 13:48:53 +01:00
parent 031f07f14c
commit f1ddcaa497
8 changed files with 29 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/ThingsHit.hs
+8 -6
View File
@@ -40,11 +40,11 @@ thingsHit sp ep w =
(map (second Right) (wlsHit sp ep w))
{- Does not hit corpses -}
thingsHitZ :: Point2 -> Point2 -> World -> [(Point2, Either Creature Wall)]
thingsHitZ sp ep w =
thingsHitZ :: Float -> Point2 -> Point2 -> World -> [(Point2, Either Creature Wall)]
thingsHitZ z sp ep w =
List.mergeOn
(dist sp . fst)
(map (second Left) (crsHitZ sp ep w))
(map (second Left) (crsHitZ z sp ep w))
(map (second Right) (wlsHit sp ep w))
crWlPbHit :: Point2 -> Point2 -> World -> [(Point2, Object)]
@@ -68,8 +68,8 @@ crsHit sp ep w
. crixsNearSeg sp ep
$ w
crsHitZ :: Point2 -> Point2 -> World -> [(Point2, Creature)]
crsHitZ sp ep w
crsHitZ :: Float -> Point2 -> Point2 -> World -> [(Point2, Creature)]
crsHitZ z sp ep w
| sp == ep = mempty
| otherwise =
sortOn (dist sp . fst)
@@ -79,8 +79,10 @@ crsHitZ sp ep w
. crixsNearSeg sp ep
$ w
where
f cr
f cr
| HP{} <- cr ^. crHP = Just cr
| CrIsCorpse{} <- cr ^. crHP
, z < 5 = Just cr
| otherwise = Nothing
pbsHit :: Point2 -> Point2 -> World -> [(Point2, PulseBall)]