Tweak inventory management

2021-12-01 01:55:20 +00:00
parent 0ed260c9b7
commit b9e4a80a46
12 changed files with 138 additions and 109 deletions
@@ -0,0 +1,17 @@
+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 w = _crInvSel (you w)