Cleanup, allow more general magShield deflection

2024-12-24 12:54:28 +00:00
parent 75958c1e2c
commit 15317882e6
5 changed files with 85 additions and 89 deletions
@@ -32,6 +32,7 @@ updateBullet w bu
        return $ partspawn p
    p = _buPos bu

+-- do we want this to drain energy from the deflection source?
 applyMagnetsToBul :: Bullet -> World -> Bullet
 applyMagnetsToBul bu =
    foldl' (flip doMagnetBuBu) bu . _oldMagnets . _lWorld . _cWorld