module Dodge.Base.You where
import Dodge.Data
--import Picture
import qualified IntMapHelp as IM
--import Control.Lens

you :: World -> Creature
you w = _creatures w IM.! _yourID w

yourItem :: World -> Maybe Item
yourItem w = _crInv (you w) IM.!? crSel (you w)

yourInv :: World -> IM.IntMap Item
yourInv w = _crInv (you w)

yourInvSel :: World -> Int
yourInvSel = crSel . you
