Refactor clouds

2025-06-24 13:28:17 +01:00
parent b1041d1eb0
commit 444be7b49c
12 changed files with 80 additions and 140 deletions
@@ -18,7 +18,7 @@ import RandomHelp

 updateFlame :: World -> Flame -> (World, Maybe Flame)
 updateFlame w pt
-    | _flTimer pt <= 0 = (makeFlamerSmokeAt (addZ 20 ep) w, Nothing)
+    | _flTimer pt <= 0 = (makeCloudAt FlamerSmokeCloud 200 (addZ 20 ep) w, Nothing)
    | Just (_, Right wl) <- thit = (doupdate, Just $ reflame wl)
    -- might want to move differently if we hit a creature?
    | otherwise = (flFlicker pt doupdate, Just mvflame)