18 lines
386 B
Haskell
18 lines
386 B
Haskell
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.!? _crInvSel (you w)
|
|
|
|
yourInv :: World -> IM.IntMap Item
|
|
yourInv w = _crInv (you w)
|
|
|
|
yourInvSel :: World -> Int
|
|
yourInvSel = _crInvSel . you
|