Tweak explosions

2024-12-24 14:54:32 +00:00
parent a79dfa1bb3
commit c4b9142d0f
8 changed files with 19 additions and 14 deletions
@@ -22,7 +22,7 @@ selectUse itm _ w = fromMaybe w $ do
            & cWorld . lWorld . projectiles . ix pjid . prjDraw .~ DrawBlankProjectile
            --        & itPoint . itUse . heldUse .~ HeldDoNothing
            --        & itPoint . itUse . heldMods .~ DoNothingMod
-            & usePayload (_prjPayload thepj) (_prjPos thepj)
+            & usePayload (_prjPayload thepj) (_prjPos thepj) (_prjVel thepj)
  where
    notdestroyed DestroyPU{} = False
    notdestroyed _ = True