module Dodge.Particle.Damage where

import Dodge.Data.Bullet
import Geometry

simpleDam' :: DamageType -> Int -> Bullet -> Point2 -> [Damage]
simpleDam' dt amount bt p = [Damage dt amount sp p ep NoDamageEffect]
  where
    sp = _buPos bt
    bulVel = _buVel bt
    ep = sp +.+ bulVel

hvBulDams :: [Damage]
hvBulDams =
    [ Damage PIERCING 25 0 0 0 NoDamageEffect
    , Damage PIERCING 25 0 0 0 NoDamageEffect
    , Damage PIERCING 25 0 0 0 NoDamageEffect
    , Damage PIERCING 25 0 0 0 NoDamageEffect
    , Damage PIERCING 25 0 0 0 $ TorqueDamage 0.7
    , Damage PIERCING 25 0 0 0 $ PushBackDamage 3
    ]