#4 Attack

2022-12-23 12:06:46 +01:00 · 2022-12-23 12:06:46 +01:00 · 11eb00ea0b
commit 11eb00ea0b
parent f284413836
6 changed files with 59 additions and 21 deletions
--- a/lib/RPGEngine/Parse/TextToStructure.hs
+++ b/lib/RPGEngine/Parse/TextToStructure.hs
@ -139,7 +139,7 @@ action = try $ do
    let answer | script == "leave"            = Leave
               | script == "retrieveItem"     = RetrieveItem arg
               | script == "useItem"          = UseItem arg
-               | script == "decreaseHp"       = DecreaseHp first second
+               | script == "decreaseHp"       = DecreaseHp first (filter (/= ' ') second) -- TODO Work this hack away
               | script == "increasePlayerHp" = IncreasePlayerHp arg
               | otherwise                    = DoNothing
        (first, ',':second) = break (== ',') arg