module Dodge.Particle.Damage where
import Dodge.Data
import Geometry

--simpleDam :: DamageType -> Int -> Particle -> Point2 -> [Damage]
--simpleDam dt amount bt p = [ Damage dt amount sp p ep NoDamageEffect ]
--  where
--    sp = _ptPos bt
--    bulVel = _ptVel bt
--    ep = sp +.+ bulVel
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 NoDamageEffect
    , Damage PIERCING  25 0 0 0 NoDamageEffect
    , Damage TORQUEDAM  1 0 0 0 $ TorqueDamage 0.7
    , Damage PUSHDAM    1 0 0 0 $ PushBackDamage 3
    ]