{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.UseDelay where

import Sound.Data
import Control.Lens

data ItemUseDelay -- should just be Delay
    = NoDelay
    | FixedRate
        { _rateMax :: Int
        }
    | WarmUpNoDelay
        { _warmMax :: Int
        , _warmSound :: SoundID
        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

makeLenses ''ItemUseDelay