Steps towards making clouds list based

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -264,19 +264,19 @@ makeGasCloud
     -> World 
     -> World
 makeGasCloud pos vel w = w
-    & clouds    %~ IM.insert i theCloud
+    & clouds    %~ (theCloud :)
     & randGen   .~ g
   where 
-    i = IM.newKey $ _clouds w
-    theCloud = Cloud { _clID = i
-                     , _clPos = pos
-                     , _clVel = vel
-                     , _clPict = \_ -> onLayer CrLayer $ color (withAlpha 0.1 col) 
-                                                       $ circleSolid 20
-                     , _clRad = 10
-                     , _clTimer = 400
-                     , _clEffect = cloudPoisonDamage
-                     }
+    theCloud = Cloud 
+        {  _clPos = pos
+        , _clVel = vel
+        , _clPict = \_ -> onLayer CrLayer $ color (withAlpha 0.1 col) 
+                                          $ circleSolid 20
+        , _clRad = 10
+        , _clTimer = 400
+        , _clType = GasCloud
+        -- , _clEffect = cloudPoisonDamage
+        }
     (col, g) = runState (takeOne [green,yellow]) $ _randGen w
 
 {-