Emi/maleghast-engine
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Cleanup spare trace

Browse source
This commit is contained in:
Emi Simpson 2023-12-06 16:15:38 -05:00
parent 1f65275d5b
commit fd88082d77
Signed by: Emi
GPG key ID: A12F2C2FFDC3D847
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/GameLogic.hs
View file

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