This commit is contained in:
2022-07-19 20:48:43 +01:00
parent 29e25f61d3
commit 6b398b4bb6
4 changed files with 1 additions and 34 deletions
-4
View File
@@ -40,10 +40,6 @@ applyDamageEffect dm de cr w = case de of
& creatures . ix (_crID cr) . crPos .+.+~ (pback/_crMass cr) *.* (_dmTo dm -.- fromDir)
TorqueDamage rot -> w
& creatures . ix (_crID cr) . crDir +~ rot
-- DamageSpawn f -> w & instantParticles .:~ thepart
-- & randGen .~ g
-- where
-- (thepart,g) = runState (f (Left cr) dm) $ _randGen w
NoDamageEffect -> w
where
fromDir = _dmFrom dm