moveToEntity ::  Vector3 Int -- | Location
        -> Entity            -- | Target 
        -> Player            -- | Source
        -> Player            -- | Result

moveToEntity v (Jewel' j) = (loc .~ v) . (gold +~ value j)
moveToEntity ::  Vector3 Int -- | Location
        -> Entity            -- | Target 
        -> Player            -- | Source
        -> Player
moveToEntity v (Jewel' j) = (loc .~ v) . (gold +~ value j)
moveToEntity v (Jewel' j) = (loc .~ v) . (gold +~ value j)