Cleanup damages further

2022-03-25 11:37:16 +00:00
parent af6cdfd048
commit cb9bdf9c55
8 changed files with 102 additions and 70 deletions
@@ -1013,6 +1013,8 @@ data DamageEffect
    | PushBackDamage {_dePushBack :: Point2 }
    | BounceBullet {_bulToBounce :: Particle}
    | SparkBullet {_bulToSpark :: Particle}
+    | DamageSpawn {_spawnFunc 
+        :: Either Creature Wall -> Damage -> State StdGen Particle}
    | NoDamageEffect
 --  deriving (Eq,Ord,Show)