22 lines
480 B
Haskell
22 lines
480 B
Haskell
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
|
|
}
|