Cleanup, remove spawngun

src/Dodge/Bullet.hs

@@ -1,17 +1,12 @@
 module Dodge.Bullet (
     updateBullet,
---    shootBullet,
 ) where
 
---import Dodge.Data.ComposedItem
---import Dodge.Data.DoubleTree
 import Linear
 import Dodge.Item.Weapon.Bullet
 import System.Random
 import Data.Foldable
 import Data.Maybe
---import Dodge.Base.Coordinate
---import Dodge.Creature.HandPos
 import Dodge.Creature.Test
 import Dodge.Data.World
 import Dodge.EnergyBall
@@ -50,7 +45,8 @@ applyMagnetsToBul bu =
 updateBulVel :: Bullet -> Bullet
 updateBulVel bt = case _buTrajectory bt of
     BasicBulletTrajectory -> bt & buVel .*.*~ _buDrag bt
-    MagnetTrajectory tpos -> bt & buVel %~ (clipV 20 . (+.+ 5 *.* normalizeV (tpos -.- _buPos bt)))
+    MagnetTrajectory tpos -> bt 
+        & buVel %~ (clipV 20 . (+.+ 5 *.* normalizeV (tpos -.- _buPos bt)))
     FlechetteTrajectory tpos -> bt & buVel %~ vecTurnTo 0.2 (_buPos bt) tpos
     BezierTrajectory spos tpos xpos ->
         let bf tm = bQuadToF (spos, xpos, tpos) $ (100 - tm) * 0.05