Make damage application belong to hit object

2022-03-25 08:33:54 +00:00
parent 3aea0db385
commit 9adc7c81f4
9 changed files with 30 additions and 65 deletions
@@ -35,14 +35,14 @@ data DamageEffect
    | TorqueDamage { _deTorque :: Float }
    | PushBackDamage {_dePushBack :: Point2 }
    | NoDamageEffect
-  deriving (Eq,Ord,Show)
+--  deriving (Eq,Ord,Show)

 data Damage = Damage 
    { _dmType :: DamageType
    , _dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Point2 , _dmTo :: Point2 
    , _dmEffect :: DamageEffect
    }
-  deriving (Eq,Ord,Show)
+--  deriving (Eq,Ord,Show)

 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of