diff --git a/src/Dodge/Projectile/Update.hs b/src/Dodge/Projectile/Update.hs index e073ef93f..edb15c4e8 100644 --- a/src/Dodge/Projectile/Update.hs +++ b/src/Dodge/Projectile/Update.hs @@ -67,7 +67,7 @@ shellHitWall p n wl pj (topj . pjVel %~ reflectInNormal n) . (topj . pjPos .~ p + normalize n) . bounceSound pj - | otherwise = topj %~ ((pjPos .~ p) . (pjTimer .~ 0)) + | otherwise = topj %~ ((pjPos .~ p - normalize (pj ^. pjVel)) . (pjTimer .~ 0)) where topj = cWorld . lWorld . projectiles . ix (_pjID pj)