module Dodge.Equipment where
import Dodge.Data

import qualified Data.IntMap.Strict as IM
import Data.IntMap.Merge.Strict

getCrEquipment :: Creature -> IM.IntMap Item
getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)
    (_crInvEquipped cr)  (_crInv cr)