From b34a9f5b09239435a3f596ff2e9d199f24428331 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 1 May 2023 10:30:33 +0100 Subject: [PATCH] Cleanup --- src/Dodge/Material/Damage.hs | 2 -- src/Dodge/Particle/Damage.hs | 21 --------------------- 2 files changed, 23 deletions(-) delete mode 100644 src/Dodge/Particle/Damage.hs diff --git a/src/Dodge/Material/Damage.hs b/src/Dodge/Material/Damage.hs index 47b3f0c82..b176cffc5 100644 --- a/src/Dodge/Material/Damage.hs +++ b/src/Dodge/Material/Damage.hs @@ -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) diff --git a/src/Dodge/Particle/Damage.hs b/src/Dodge/Particle/Damage.hs deleted file mode 100644 index 79e7249ac..000000000 --- a/src/Dodge/Particle/Damage.hs +++ /dev/null @@ -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 - ]