justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2023-05-01 10:30:33 +01:00
parent 1a746adad2
commit b34a9f5b09
2 changed files with 0 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Damage.hs
-2
View File
@@ -14,8 +14,6 @@ damageMaterial dm mt = case mt of
Stone -> damageStone dm
_ -> defDamageMaterial dm
-- Glass -> damageGlass dm
defDamageMaterial :: Damage -> Float -> World -> (Int, World)
defDamageMaterial dm _ w = (_dmAmount dm, w)
src/Dodge/Particle/Damage.hs
-21
View File
@@ -1,21 +0,0 @@
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
]