Tweak projectile wall collision position
This commit is contained in:
@@ -67,7 +67,7 @@ shellHitWall p n wl pj
|
|||||||
(topj . pjVel %~ reflectInNormal n)
|
(topj . pjVel %~ reflectInNormal n)
|
||||||
. (topj . pjPos .~ p + normalize n)
|
. (topj . pjPos .~ p + normalize n)
|
||||||
. bounceSound pj
|
. bounceSound pj
|
||||||
| otherwise = topj %~ ((pjPos .~ p) . (pjTimer .~ 0))
|
| otherwise = topj %~ ((pjPos .~ p - normalize (pj ^. pjVel)) . (pjTimer .~ 0))
|
||||||
where
|
where
|
||||||
topj = cWorld . lWorld . projectiles . ix (_pjID pj)
|
topj = cWorld . lWorld . projectiles . ix (_pjID pj)
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user