29 lines
926 B
Haskell
29 lines
926 B
Haskell
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
|
|
]
|