32 lines
802 B
Haskell
32 lines
802 B
Haskell
module Dodge.Default.Item
|
|
( defaultItem
|
|
) where
|
|
import Dodge.Data
|
|
import Picture
|
|
import Shape
|
|
|
|
defaultItem :: Item
|
|
defaultItem = Item
|
|
{ _itCurseStatus = Uncursed
|
|
, _itType = defaultItemType
|
|
, _itEquipPict = \_ _ -> (,) emptySH blank
|
|
, _itEffect = NoItEffect
|
|
, _itID = Nothing
|
|
, _itIsHeld = False
|
|
, _itInvColor = yellow
|
|
, _itInvSize = 1
|
|
, _itInvPos = Nothing
|
|
, _itDimension = ItemDimension 0 0 NoPortage (const mempty)
|
|
, _itConsumption = NoConsumption
|
|
, _itUse = NoUse
|
|
, _itAttachment = NoItAttachment
|
|
, _itParams = NoParams
|
|
, _itTweaks = NoTweaks
|
|
, _itScope = NoScope
|
|
, _itTargeting = NoTargeting
|
|
, _itValue = ItemValue 0 MundaneItem
|
|
}
|
|
|
|
defaultItemType :: ItemType
|
|
defaultItemType = ItemType NOTDEFINED mempty NoStack
|