11 lines
308 B
Haskell
11 lines
308 B
Haskell
module Dodge.Machine.Damage where
|
|
|
|
import Dodge.Data.World
|
|
import LensHelp
|
|
|
|
basicMachineApplyDamage :: Machine -> World -> World
|
|
basicMachineApplyDamage mc = cWorld . lWorld . machines . ix mcid %~ ((mcDamage .~ []) . (mcHP -~ dams))
|
|
where
|
|
dams = sum $ map _dmAmount $ _mcDamage mc
|
|
mcid = _mcID mc
|