27 lines
717 B
Haskell
27 lines
717 B
Haskell
module Dodge.Default.Item (
|
|
defaultHeldItem,
|
|
defaultCraftItem,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Item
|
|
|
|
defaultHeldItem :: Item
|
|
defaultHeldItem =
|
|
Item
|
|
{ _itType = HELD PISTOL
|
|
, _itConsumables = Nothing
|
|
-- , _itEffect = defaultItEffect
|
|
, _itID = 0 -- should this return an error ? const $ error "itID not correctly initialised" ?
|
|
, _itTargeting = NoItTargeting
|
|
, _itLocation = InVoid
|
|
, _itUse = UseHeld
|
|
, _itParams = NoParams
|
|
-- , _itUseCondition = UseableWhenAimed
|
|
, _itScroll = NoItemScroll
|
|
, _itTimeLastUsed = 0
|
|
}
|
|
|
|
defaultCraftItem :: Item
|
|
defaultCraftItem = defaultHeldItem & itUse .~ UseNothing
|