Cleanup inventory management, arbitrary limit on cloud height

2022-05-24 17:25:39 +01:00
parent 0349443853
commit 28e9adaea3
4 changed files with 24 additions and 10 deletions
@@ -307,7 +307,8 @@ updateCloud w c
    newPos2 = stripZ newPos
    -- the following only tests for the first collision with a wall
    hitWl = collidePointAnyWallsReflect oldPos2 newPos2 $ wallsNearPoint newPos2 w
-    finalPos = addZ npz $ maybe newPos2 fst hitWl
+    finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
+        -- allowing clouds to height 75 causes graphical glitches 22.05.23
    finalVel = addZ nvz $ maybe newVel2 snd hitWl

 --updateCloud :: World -> Cloud -> Maybe Cloud