Tweak clouds

src/Dodge/Update.hs

@@ -732,7 +732,6 @@ cloudEffect cl = case _clType cl of
     GasCloud -> cloudPoisonDamage cl
     RocketCloud -> id
     CryoReleaseCloud -> id
-    SmokeCloud -> id
     _ -> id
 
 updateCloud :: World -> Cloud -> (World, Maybe Cloud)
@@ -756,8 +755,9 @@ updateCloud w c
     newPos@(V3 _ _ npz) = oldPos +.+.+ newVel
     newPos2 = stripZ newPos
     hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
-    finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
+    --finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
     -- allowing clouds at/above height 75 causes graphical glitches 22.05.23
+    finalPos = addZ (min 90 npz) $ maybe newPos2 fst hitWl
     finalVel = addZ nvz $ maybe newVel2 snd hitWl
 
 clClSpringVel :: Cloud -> Point3 -> Cloud -> Point3