Allow turrets to fire bullets, only good for testing for now

2024-12-24 12:24:27 +00:00
parent fb1553bf3c
commit d739a95197
6 changed files with 130 additions and 96 deletions
@@ -39,7 +39,7 @@ applyMagnetsToBul bu =
 doMagnetBuBu :: Magnet -> Bullet -> Bullet
 doMagnetBuBu mg bu = case _mgField mg of
    MagnetAlign | isclose -> bu
-    MagnetDeflect | isclose -> bu & buVel %~ vecTurnTo (50 * pi / d) bpos mgdeflectpos
+    MagnetDeflect | isclose -> bu & buVel %~ vecTurnTo (4 * pi / (d+16)) bpos mgdeflectpos
    _ -> bu
  where
    bvel = bu ^. buVel