Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Base/You.hs

@@ -1,19 +1,13 @@
 module Dodge.Base.You 
     (you
---    , yourScopeInvID
     , yourInv
---    , yourScrollAttachment
     , yourSelectedItem
     , yourRootItem
     )where
 
 import Dodge.Data.World
---import Dodge.HeldScroll
 import qualified IntMapHelp as IM
---import qualified Data.Map.Strict as M
 import Control.Lens
---import Control.Monad
---import Data.Maybe
 
 you :: World -> Creature
 you w = w ^?! cWorld . lWorld . creatures . ix 0
@@ -28,23 +22,6 @@ yourRootItem w = do
     i <- you w ^? crManipulation . manObject . imRootSelectedItem
     _crInv (you w) IM.!? i
 
---yourScrollAttachment :: World -> Maybe (Int,ScrollAttachParams)
---yourScrollAttachment w = do
---    i <- you w ^? crManipulation . manObject . inInventory . ispItem
---    itm <- _crInv (you w) IM.!? i
---    atparams <- you w ^? crInv . ix (i - 1) . itUse . attachParams . scrollAttachParams
---    guard (canHeldScrollAttach itm atparams)
---    return (i - 1, atparams)
-
---yourScopeInvID :: World -> Maybe Int
---yourScopeInvID w = do
---    (i, params) <- yourScrollAttachment w
---    _ <- params ^? opticPos
---    return i
-
 yourInv :: World -> IM.IntMap Item
 yourInv = _crInv . you
 
-
---yourInvSel :: World -> Int
---yourInvSel = crSel . you