diff --git a/src/GameLogic.hs b/src/GameLogic.hs index 7c76445..f14330b 100644 --- a/src/GameLogic.hs +++ b/src/GameLogic.hs @@ -27,7 +27,6 @@ import Numeric.Natural (Natural) import Lens.Micro import Safe (atMay) -import Debug.Trace import Mechanics (universalModifiers, globalHooks) import Data.Monoid (Any(getAny), getSum) @@ -278,7 +277,7 @@ applyEffect (InflictDamage damageType incomingAmount recipient) board = continue netDamage | totalReduction >= incomingAmount' = 0 | otherwise = fromIntegral $ incomingAmount' - totalReduction - board' = trace ("iA': " ++ show incomingAmount' ++ " | aR: " ++ show armorReduction ++ " | r: " ++ show recipient) $ board + board' = board & ixCharacter recipient %~ clearUpToNTokens Health netDamage & if incomingAmount' > armorReduction then ixCharacter recipient %~ removeTokenInCategory VitalVulnr