Refactor wall zoning, remove streaming

2022-07-23 12:29:29 +01:00
parent 39f4555697
commit 39778f46fb
30 changed files with 396 additions and 163 deletions
@@ -14,7 +14,8 @@ damageCircle r sp dt da w = w
    & wallDamages %~ addwalldamages
    & creatures %~ addcreaturedamages
  where
-    addwalldamages wlds = runIdentity $ S.fold_ (damageWlCircle wldam) wlds id wlstodam
+    --addwalldamages wlds = runIdentity $ S.fold_ (damageWlCircle wldam) wlds id wlstodam
+    addwalldamages wlds = foldl' (damageWlCircle wldam) wlds wlstodam
    wlstodam = wlsHitRadial sp r w
    wldam p = Damage dt da sp p (sp +.+ r *.* normalizeV (p -.- sp)) NoDamageEffect
    addcreaturedamages crs = foldl' (damageCrCircle crdam) crs crstodam