Split gasses and clouds

2025-12-02 21:47:17 +00:00
parent 984a114310
commit b2cb8cfe11
11 changed files with 262 additions and 192 deletions
@@ -15,14 +15,11 @@ makeGasCloud ::
    Point2 ->
    World ->
    World
-makeGasCloud pos vel = cWorld . lWorld . clouds .:~ theCloud
-  where
-    theCloud =
-        Cloud
-            { _clPos = addZ 20 pos
-            , _clVel = addZ 0 vel
-            , _clTimer = 400
-            , _clType = GasCloud
+makeGasCloud pos vel = cWorld . lWorld . gasses .:~ Gas
+            { _gsPos = addZ 20 pos
+            , _gsVel = addZ 0 vel
+            , _gsTimer = 400
+            , _gsType = PoisonGas
            }

 {- Attach poison cloud damage to creatures near cloud.  -}