19 lines
476 B
Haskell
19 lines
476 B
Haskell
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
|