42 lines
1.3 KiB
Haskell
42 lines
1.3 KiB
Haskell
module Dodge.Item.PassKey where
|
|
import Dodge.Data
|
|
import Dodge.Default
|
|
import Picture
|
|
import Geometry.Data
|
|
--import ShapePicture
|
|
import Shape
|
|
keyCard :: Int -> Item
|
|
keyCard n = defaultEquipment
|
|
{ _itType = KEYCARD n
|
|
, _itName = "KEYCARD-"++show n
|
|
, _itEquipPict = \_ _ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic
|
|
, _itEffect = NoItEffect
|
|
, _itID = Nothing
|
|
-- , _itZoom = defaultItZoom
|
|
, _itInvColor = aquamarine
|
|
, _itInvDisplay = (:[]) . _itName
|
|
}
|
|
keyPic :: Picture
|
|
keyPic = color green $
|
|
pictures [translate (-4) 0 $ thickCircle 4 2
|
|
,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
|
|
,thickLine 2 $ map toV2 [(4,0),(4,-4)]
|
|
]
|
|
|
|
latchkey :: Int -> Item
|
|
latchkey n = defaultEquipment
|
|
{ _itType = NOTDEFINED
|
|
, _itName = "KEY "++show n
|
|
, _itEquipPict = \_ _ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
|
|
, _itEffect = NoItEffect
|
|
, _itID = Nothing
|
|
-- , _itZoom = defaultItZoom
|
|
, _itInvColor = yellow
|
|
}
|
|
latchkeyPic :: Picture
|
|
latchkeyPic = color yellow $
|
|
pictures [translate (-4) 0 $ thickCircle 4 2
|
|
,thickLine 2 $ map toV2 [(0,0),(8,0),(8,-4)]
|
|
,thickLine 2 $ map toV2 [(4,0),(4,-4)]
|
|
]
|