{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.ItEffect where
import Control.Lens
-- I believe this is called every frame, not sure when though
data ItEffect 
    = NoItEffect
    | ItInvEffect 
        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
        ,_ieCounter   :: Int
        }
    | ItRewindEffect
        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
--        ,_ieStoredWorlds    :: [World]
        }
    | ItEffect 
        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World 
        ,_ieFloor     :: ItFloorEffect --Int -> World -> World 
        ,_ieCounter   :: Int
        }
    | ItInvEffectID
        {_ieInv       :: ItInvEffect --Item -> Creature -> World -> World
        ,_ieMID   :: Maybe Int
        }  -- the duplication of ieMID may cause errors...
    | ItInvEffectDrop
        { _ieInv  :: ItInvEffect --Item -> Creature -> World -> World
        , _ieDrop    :: ItDropEffect --Item -> Creature -> World -> World
        , _ieMID     :: Maybe Int
        }
  deriving (Eq,Ord,Show,Read)

data ItInvEffect = NoInvEffect
    | RewindEffect
    | ResetAttachmentEffect
    | OnOffHeldEffect ItInvEffect ItInvEffect
    | CreateHeldLight
    | CreateShieldWall
    | RemoveShieldWall
  deriving (Eq,Ord,Show,Read)
data ItFloorEffect = NoFloorEffect
  deriving (Eq,Ord,Show,Read)
data ItDropEffect = NoDropEffect
  deriving (Eq,Ord,Show,Read)
makeLenses ''ItEffect