From a57e36dca81274dea015c9fbdac680b44ef5576e Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 6 Oct 2019 12:59:53 -0400 Subject: Fix underflow when damaging character Fix underflow that could happen when multiple gormlaks attack the character in a single turn --- src/Xanthous/AI/Gormlak.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Xanthous/AI/Gormlak.hs') diff --git a/src/Xanthous/AI/Gormlak.hs b/src/Xanthous/AI/Gormlak.hs index 68feb67ac227..db504c1e7d3a 100644 --- a/src/Xanthous/AI/Gormlak.hs +++ b/src/Xanthous/AI/Gormlak.hs @@ -14,7 +14,8 @@ import Xanthous.Data (Positioned(..), diffPositions, stepTowards, isUn import Xanthous.Data.EntityMap import qualified Xanthous.Entities.Creature as Creature import Xanthous.Entities.Creature (Creature) -import Xanthous.Entities.Character (Character, characterHitpoints) +import Xanthous.Entities.Character (Character) +import qualified Xanthous.Entities.Character as Character import qualified Xanthous.Entities.RawTypes as Raw import Xanthous.Entities (Entity(..), Brain(..), brainVia) import Xanthous.Game.State (entities, GameState, entityIs) @@ -54,7 +55,7 @@ stepGormlak pe@(Positioned pos creature) = do vision = Creature.visionRadius creature attackCharacter = do say ["combat", "creatureAttack"] $ object [ "creature" A..= creature ] - character . characterHitpoints -= 1 + character %= Character.damage 1 newtype GormlakBrain = GormlakBrain Creature -- cgit 1.4.1