22 lines
610 B
Haskell
22 lines
610 B
Haskell
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
|
|
]
|