Make blunderbusses take bullet modules, make flamelets damage walls

2022-03-22 19:29:15 +00:00
parent 27025b6605
commit bda65968b0
4 changed files with 23 additions and 7 deletions
@@ -58,7 +58,7 @@ useAmmoParams vfact it cr w = w & particles .:~ aBulAt
            return $ \pt -> pt & ptVel .+.+~ 5 *.* normalizeV (tpos -.- head (_ptTrail pt))
        FlechetteTrajectory -> fromMaybe id $ do
            tpos <- it ^? itTargeting . tgPos . _Just
-            return $ \pt -> pt & ptVel %~ vecTurnTo 0.1 (head $ _ptTrail pt) tpos
+            return $ \pt -> pt & ptVel %~ vecTurnTo 0.2 (head $ _ptTrail pt) tpos
        BezierTrajectory -> fromMaybe id $ do
            tpos <- it ^? itTargeting . tgPos . _Just
            let bf t = bQuadToF (sp,mouseWorldPos w,tpos) $ (100 - t) * 0.05