{-# 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