{-# LANGUAGE OverloadedStrings #-}
-- | The type of kinds of game factions (heroes, enemies, NPCs, etc.)
-- for LambdaHack.
module Content.FactionKind ( cdefs ) where

import Game.LambdaHack.Common.ContentDef
import Game.LambdaHack.Content.FactionKind

cdefs :: ContentDef FactionKind
cdefs = ContentDef
  { getSymbol = fsymbol
  , getName = fname
  , getFreq = ffreq
  , validate = fvalidate
  , content =
      [hero, monster, horror]
  }
hero,        monster, horror :: FactionKind

hero = FactionKind
  { fsymbol   = '@'
  , fname     = "hero"
  , ffreq     = [("hero", 1)]
  , fAiLeader = "fullAbility"
  , fAiMember = "meleeAdjacent"
  }

monster = FactionKind
  { fsymbol   = 'm'
  , fname     = "monster"
  , ffreq     = [("monster", 1), ("spawn", 50), ("summon", 50)]
  , fAiLeader = "fullAbility"
  , fAiMember = "fullAbility"
  }

horror = FactionKind
  { fsymbol   = 'h'
  , fname     = "horror"
  , ffreq     = [("horror", 1), ("summon", 50)]
  , fAiLeader = "fullAbility"
  , fAiMember = "fullAbility"
  }