diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs index f10f9b779..295fd5b20 100644 --- a/src/Dodge/Update.hs +++ b/src/Dodge/Update.hs @@ -808,10 +808,8 @@ updateCloud w c oldPos2 = stripZ oldPos newPos@(V3 _ _ npz) = oldPos + newVel newPos2 = stripZ newPos - hitWl = bouncePoint (const True) 1 (oldPos ^. _xy) (newPos ^. _xy) w --- finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl - finalPos = newPos & _xy %~ maybe id (const . fst) hitWl - & _z %~ min 90 + hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w + finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl finalVel = newVel & _xy %~ maybe id (const . snd) hitWl updateDust :: World -> Dust -> Maybe Dust