Refactor clouds

src/Shader/Poke/Cloud.hs

@@ -34,11 +34,13 @@ pokeCloudVerx ptr cl nv i (dx, dy) =
 clColor :: CloudType -> Color
 clColor = \case
     SmokeCloud -> white
-    FlamerSmokeCloud -> black
+    FlamerSmokeCloud -> greyN 0.7
     RocketCloud -> greyN 0.5
-    CryoReleaseCloud -> blue
+    CryoReleaseCloud -> mixColorsFrac blue cyan 0.5
     GasCloud -> green
     StoneDust -> white
+    DirtDust -> dark orange
+    BloodCloud -> red
 
 pokeCloudFloat :: Ptr Float -> Int -> Int -> Float -> IO ()
 {-# INLINE pokeCloudFloat #-}