module Game.Werewolf.Internal.Player (
Player, name, role, state,
State(..),
newPlayer,
findByName, findByName_, findByRole, findByRole_,
filterByRole,
filterWerewolves,
filterAlive, filterDead,
isAngel, isBearTamer, isDefender, isScapegoat, isSeer, isSimpleVillager, isSimpleWerewolf,
isVillageIdiot, isVillagerVillager, isWildChild, isWitch, isWolfHound,
isVillager, isWerewolf,
isAlive, isDead,
) where
import Control.Lens
import Data.Function
import Data.List
import Data.Maybe
import Data.Text (Text)
import Game.Werewolf.Internal.Role hiding (name)
data Player = Player
{ _name :: Text
, _role :: Role
, _state :: State
} deriving (Read, Show)
data State = Alive | Dead
deriving (Eq, Read, Show)
makeLenses ''Player
instance Eq Player where
(==) = (==) `on` view name
newPlayer :: Text -> Role -> Player
newPlayer name role = Player name role Alive
findByName :: Text -> [Player] -> Maybe Player
findByName name' = find ((name' ==) . view name)
findByName_ :: Text -> [Player] -> Player
findByName_ name = fromJust . findByName name
findByRole :: Role -> [Player] -> Maybe Player
findByRole role' = find ((role' ==) . view role)
findByRole_ :: Role -> [Player] -> Player
findByRole_ role = fromJust . findByRole role
filterByRole :: Role -> [Player] -> [Player]
filterByRole role' = filter ((role' ==) . view role)
filterWerewolves :: [Player] -> [Player]
filterWerewolves = filter isWerewolf
filterAlive :: [Player] -> [Player]
filterAlive = filter isAlive
filterDead :: [Player] -> [Player]
filterDead = filter isDead
isAngel :: Player -> Bool
isAngel player = player ^. role == angelRole
isBearTamer :: Player -> Bool
isBearTamer player = player ^. role == bearTamerRole
isDefender :: Player -> Bool
isDefender player = player ^. role == defenderRole
isScapegoat :: Player -> Bool
isScapegoat player = player ^. role == scapegoatRole
isSeer :: Player -> Bool
isSeer player = player ^. role == seerRole
isSimpleVillager :: Player -> Bool
isSimpleVillager player = player ^. role == simpleVillagerRole
isSimpleWerewolf :: Player -> Bool
isSimpleWerewolf player = player ^. role == simpleWerewolfRole
isVillageIdiot :: Player -> Bool
isVillageIdiot player = player ^. role == villageIdiotRole
isVillagerVillager :: Player -> Bool
isVillagerVillager player = player ^. role == villagerVillagerRole
isWildChild :: Player -> Bool
isWildChild player = player ^. role == wildChildRole
isWitch :: Player -> Bool
isWitch player = player ^. role == witchRole
isWolfHound :: Player -> Bool
isWolfHound player = player ^. role == wolfHoundRole
isVillager :: Player -> Bool
isVillager player = player ^. role . allegiance == Villagers
isWerewolf :: Player -> Bool
isWerewolf player = player ^. role . allegiance == Werewolves
isAlive :: Player -> Bool
isAlive player = player ^. state == Alive
isDead :: Player -> Bool
isDead player = player ^. state == Dead