Cleanup, remove records, stop unecessary Aeson compile

2025-06-06 20:43:49 +01:00
parent d3de40d432
commit d2d4642380
22 changed files with 311 additions and 340 deletions
@@ -35,10 +35,11 @@ makeShrapnelAt p v w =
    drags = replicateM 75 (state $ randomR (0.85,0.9)) & evalState $ _randGen w
    buls = zipWith f vs drags
    f v' drag = defaultBullet
+        & buPayload .~ BulPlain 10
        & buEffect .~ BounceBullet
        & buVel .~ v + v'
        & buDrag .~ drag
        & buPos .~ (p - v)
        & buOldPos .~ (p - v)
-        & buDamages .~ [Damage PIERCING 10 0 0 0 $ PushBackDamage 2]
+--        & buDamages .~ [Damage PIERCING 10 0 0 0 $ PushBackDamage 2]
        & buWidth .~ 1