module Grid
    ( -- * Classes
      KeySphere (..)
    , LightBlueSphere (..)
    , PurpleSphere (..)
    , RedSphere (..)
    , Sphere (..)
    , YellowSphere (..)
    ) where

data RedSphere = Power | Mana | Speed | Ability | Fortune deriving (Bounded, Enum)

data KeySphere = Level1 | Level2 | Level3 | Level4 deriving (Bounded, Enum)

data PurpleSphere
    = HP
    | MP
    | Strength
    | Defense
    | Magic
    | MagicDef
    | Agility
    | Evasion
    | Accuracy
    | Luck
    deriving (Bounded, Enum)

data YellowSphere
    = Attribute
    | Special
    | Skill
    | WhiteMagic
    | BlackMagic
    | Master
    deriving (Bounded, Enum)

data LightBlueSphere
    = Return
    | Friend
    | Teleport
    | Warp
    deriving (Bounded, Enum)

data Sphere
    = Red RedSphere
    | Key KeySphere
    | Purple PurpleSphere
    | Yellow YellowSphere
    | LightBlue LightBlueSphere
    | Clear