Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -9,7 +9,7 @@ cloudPoisonDamage c w = w & dodamagesto (filter f $ crsNearPoint clpos w)
  where 
    dodamagesto :: [Creature] -> World -> World
    dodamagesto scrs mcrs = foldl' (flip doDam) mcrs scrs
-    doDam cr = creatures . ix (_crID cr) . crState . csDamage 
+    doDam cr = cWorld . creatures . ix (_crID cr) . crState . csDamage 
        .:~ Damage POISONDAM 1 clpos clpos clpos NoDamageEffect
    f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
    clpos = stripZ $ _clPos c