86 lines
2.1 KiB
Haskell
86 lines
2.1 KiB
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Item.Use (
|
|
module Dodge.Data.Item.Use,
|
|
module Dodge.Data.Item.Use.Equipment,
|
|
module Dodge.Data.Item.HeldUse,
|
|
module Dodge.Data.Item.HeldScroll,
|
|
module Dodge.Data.Item.HeldDelay,
|
|
module Dodge.Data.Item.Use.Consumption,
|
|
module Dodge.Data.Hammer,
|
|
) where
|
|
|
|
import Flat
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
import Dodge.Data.Hammer
|
|
import Dodge.Data.Item.HeldScroll
|
|
import Dodge.Data.Item.HeldUse
|
|
import Dodge.Data.Item.Use.Consumption
|
|
import Dodge.Data.Item.Use.Equipment
|
|
import Dodge.Data.Item.HeldDelay
|
|
|
|
data ItemUse
|
|
= HeldUse
|
|
{ _heldUse :: HeldUse
|
|
, _heldDelay :: UseDelay
|
|
, _heldMods :: HeldMod
|
|
, _heldHammer :: HammerPosition
|
|
, _heldAim :: AimParams
|
|
, _heldScroll :: HeldScroll
|
|
, _heldConsumption :: HeldConsumption
|
|
}
|
|
| LeftUse
|
|
{ _leftUse :: Luse
|
|
, _leftDelay :: UseDelay
|
|
, _leftHammer :: HammerPosition
|
|
, _equipEffect :: EquipEffect
|
|
, _leftConsumption :: LeftConsumption
|
|
}
|
|
| ConsumeUse
|
|
{ _cUse :: Cuse
|
|
, _useAmount :: ItAmount
|
|
}
|
|
| EquipUse
|
|
{ _equipEffect :: EquipEffect
|
|
}
|
|
| CraftUse
|
|
{_useAmount :: ItAmount}
|
|
deriving (Eq, Show, Read, Generic, Flat)
|
|
|
|
data AimParams = AimParams
|
|
{ _aimWeight :: Int
|
|
, _aimRange :: Float
|
|
, _aimZoom :: ItZoom
|
|
, _aimStance :: AimStance
|
|
, _aimHandlePos :: Float
|
|
, _aimMuzPos :: Float
|
|
}
|
|
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
|
|
|
data AimStance
|
|
= TwoHandTwist
|
|
| TwoHandFlat
|
|
| OneHand
|
|
| LeaveHolstered
|
|
deriving (Eq, Show, Ord, Enum, Read, Generic, Flat)
|
|
|
|
data ItZoom = ItZoom
|
|
{ _itZoomMax :: Float
|
|
, _itZoomMin :: Float
|
|
, _itZoomFac :: Float
|
|
}
|
|
deriving (Eq, Ord, Show, Read, Generic, Flat)
|
|
|
|
makeLenses ''ItemUse
|
|
makeLenses ''AimParams
|
|
makeLenses ''ItZoom
|
|
deriveJSON defaultOptions ''ItemUse
|
|
deriveJSON defaultOptions ''AimParams
|
|
deriveJSON defaultOptions ''AimStance
|
|
deriveJSON defaultOptions ''ItZoom
|