19 lines
646 B
Haskell
19 lines
646 B
Haskell
module Dodge.Update.Cloud where
|
|
|
|
import Data.Foldable
|
|
import Dodge.Data.World
|
|
import Dodge.Zoning.Creature
|
|
import Geometry.Vector3D
|
|
import LensHelp
|
|
|
|
cloudPoisonDamage :: Cloud -> World -> World
|
|
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 =
|
|
cWorld . lWorld . 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
|