Continue AI refactor

2021-05-05 18:23:52 +02:00
parent 05086d6f4a
commit 75c36e2c95
4 changed files with 93 additions and 0 deletions
@@ -12,6 +12,9 @@ import Data.Maybe (fromMaybe)
 useItem :: Int -> World -> World
 useItem n w = equippedItemEffect n w

+crUseItem :: Creature -> World -> World
+crUseItem cr = itemEffect (_crID cr) (_crInv cr IM.! _crInvSel cr)
+
 tryUseItem 
    :: Int      -- ^ Creature id
    -> World