justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hack to prevent creature dying with greater than 0 hp

Browse Source
This commit is contained in:
justin
2022-06-19 22:33:49 +01:00
parent 149ec834ff
commit b3c6944693
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/State.hs
+1
View File
@@ -81,6 +81,7 @@ checkDeath cr w
removecr removecr
| _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id) | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)
. (creatures . ix (_crID cr) . crPict .~ const mempty) . (creatures . ix (_crID cr) . crPict .~ const mempty)
. (creatures . ix (_crID cr) . crHP .~ 0) -- hack to get around player creature being killed but left with more than 0 hp
| otherwise = creatures . at (_crID cr) .~ Nothing | otherwise = creatures . at (_crID cr) .~ Nothing
corpseOrGib :: Creature -> World -> World corpseOrGib :: Creature -> World -> World
corpseOrGib cr w = case maxDamageType (_crDamage (_crState cr)) of corpseOrGib cr w = case maxDamageType (_crDamage (_crState cr)) of