module Dodge.Inventory.CloseObject (
    closeObjPos,
    closeObjEq,
) where

import Dodge.Data.Button
import Dodge.Data.FloorItem
import Geometry

closeObjPos :: Either FloorItem Button -> Point2
closeObjPos e = case e of
    Right x -> _btPos x
    Left x -> _flItPos x

closeObjEq :: Either FloorItem Button -> Either FloorItem Button -> Bool
closeObjEq (Right x) (Right y) = _btID x == _btID y
closeObjEq (Left x) (Left y) = _flItID x == _flItID y
closeObjEq _ _ = False