23 lines
582 B
Haskell
23 lines
582 B
Haskell
module Dodge.Item.Craftable where
|
|
import Dodge.Data
|
|
import Dodge.Default.Weapon
|
|
import Dodge.Picture.Layer
|
|
import Picture
|
|
import Geometry
|
|
|
|
pipe :: Item
|
|
pipe = Craftable
|
|
{ _itIdentity = Generic
|
|
, _itDimension = defaultItemDimension
|
|
, _itCurseStatus = Uncursed
|
|
, _itName = "PIPE"
|
|
, _itMaxStack = 3
|
|
, _itAmount = 3
|
|
, _itFloorPict = \_ -> (,) mempty
|
|
$ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
|
|
, _itEquipPict = \_ _ -> mempty
|
|
, _itID = Nothing
|
|
, _itInvDisplay = (:[]) . _itName
|
|
, _itInvColor = green
|
|
}
|