module Dodge.Item.PassKey where
import Dodge.Data
import Dodge.Default
import Picture
import LensHelp
keyCard :: Int -> Item
keyCard n = defaultEquipment
    { _itEffect = NoItEffect
    , _itID = Nothing
--    , _itZoom = defaultItZoom
    , _itInvColor = aquamarine
    }
    & itType . iyBase .~ KEYCARD n

latchkey :: Int -> Item
latchkey _ = defaultEquipment
    { _itEffect = NoItEffect
    , _itID = Nothing
--    , _itZoom = defaultItZoom
    , _itInvColor = yellow
    }