module Dodge.Item.Weapon.Remote
    ( pointToItem
    ) where
import Dodge.Data

import Control.Lens

pointToItem :: Applicative f =>
                     ItemPos -> (Item -> f Item) -> World -> f World
pointToItem (InInv cid invid) = creatures . ix cid . crInv . ix invid
pointToItem (OnFloor flid) = floorItems . ix flid . flIt
