40 lines
1012 B
Haskell
40 lines
1012 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Item.Effect where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
|
|
data ItEffect = ItEffect
|
|
{ _ieInv :: ItInvEffect --Item -> Creature -> World -> World
|
|
, _ieOnInsert :: ItInvEffect
|
|
, _ieOnDrop :: ItInvEffect --Item -> Creature -> World -> World
|
|
, _ieOnHeld :: ItInvEffect
|
|
, _ieOnStash :: ItInvEffect
|
|
}
|
|
deriving (Eq, Ord, Show, Read)
|
|
|
|
data ItInvEffect
|
|
= NoInvEffect
|
|
| RewindEffect
|
|
| EffectIfHeld ItInvEffect ItInvEffect
|
|
| CreateHeldLight
|
|
| CreateShieldWall
|
|
| RemoveShieldWall
|
|
| EffectWhileHeld ItInvEffect
|
|
deriving (Eq, Ord, Show, Read)
|
|
|
|
data ItFloorEffect = NoFloorEffect
|
|
deriving (Eq, Ord, Show, Read)
|
|
|
|
data ItDropEffect = NoDropEffect
|
|
deriving (Eq, Ord, Show, Read)
|
|
|
|
makeLenses ''ItEffect
|
|
deriveJSON defaultOptions ''ItEffect
|
|
deriveJSON defaultOptions ''ItInvEffect
|
|
deriveJSON defaultOptions ''ItFloorEffect
|
|
deriveJSON defaultOptions ''ItDropEffect
|