Cleanup
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user