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

Cleanup, remove records, stop unecessary Aeson compile

Browse Source
This commit is contained in:
justin
2025-06-06 20:43:49 +01:00
parent d3de40d432
commit d2d4642380
22 changed files with 311 additions and 340 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Spark.hs
+4 -3
View File
@@ -22,21 +22,22 @@ updateSpark w sk
| otherwise = case thingHit sp ep w of
Nothing -> (w, Just $ sk & skPos .~ ep & skVel .*.*~ 0.9 & skOldPos .~ sp)
Just (hp, hthing) ->
( sparkDam sk sp ep (hp, hthing) w
--( sparkDam sk sp ep (hp, hthing) w
( sparkDam' sk sp ep (hp, hthing) w
, Just $ sk & skPos .~ hp & skOldPos .~ sp & skVel .~ 0
)
where
sp = _skPos sk
ep = sp +.+ _skVel sk
sparkDam ::
sparkDam' ::
Spark ->
Point2 ->
Point2 ->
(Point2, Either Creature Wall) ->
World ->
World
sparkDam sk sp ep mayEiCrWl = case mayEiCrWl of
sparkDam' sk sp ep mayEiCrWl = case mayEiCrWl of
(hitp, eicrwl) -> damageCrWl (thedam hitp) eicrwl
where
thedam hitp = Damage (_skDamageType sk) 1 sp hitp ep NoDamageEffect