Start work on clouds, damage, sensors

2025-06-06 22:53:41 +01:00
parent d2d4642380
commit 7bee1549bf
25 changed files with 325 additions and 312 deletions
@@ -734,7 +734,10 @@ mvGust _ gu
 cloudEffect :: Cloud -> World -> World
 cloudEffect cl = case _clType cl of
    GasCloud -> cloudPoisonDamage cl
+    RocketCloud -> id
+    CryoReleaseCloud -> id
    SmokeCloud -> id
+    _ -> id

 updateCloud :: World -> Cloud -> (World, Maybe Cloud)
 updateCloud w c