Game.Werewolf.Game

A game is not quite as simple as players! Roughly speaking though, this engine is stateful. The game state only changes when a command is issued. Thus, this module defines the Game data structure and any fields required to keep track of the current state.

Game

data Game

There are a few key pieces of information that a game always needs to hold. These are:

• the stage,
• the round number and
• the players.

Any further fields on the game are specific to one or more roles (and their respective turns!). Some of the additional fields are reset each round (e.g., the Seer's see) while others are kept around for the whole game (e.g., the Orphan's roleModel).

Instances

Eq Game

Read Game

Show Game

stage :: Lens' Game Stage

round :: Lens' Game Int

players :: Lens' Game [Player]

boots :: Lens' Game (Map Text [Text])

allowedVoters :: Lens' Game [Text]

divine :: Lens' Game (Maybe Text)

fallenAngelLynched :: Lens' Game Bool

healUsed :: Lens' Game Bool

hunterRetaliated :: Lens' Game Bool

jesterRevealed :: Lens' Game Bool

passed :: Lens' Game Bool

poison :: Lens' Game (Maybe Text)

poisonUsed :: Lens' Game Bool

priorProtect :: Lens' Game (Maybe Text)

protect :: Lens' Game (Maybe Text)

roleModel :: Lens' Game (Maybe Text)

scapegoatBlamed :: Lens' Game Bool

see :: Lens' Game (Maybe Text)

votes :: Lens' Game (Map Text Text)

data Stage

Most of these are fairly self-explainable (the turn stages). Sunrise and Sunset are provided as meaningful breaks between the day and night as, for example, a VillagesTurn may not always be available (curse that retched Scapegoat).

Once the game reaches a turn stage, it requires a command to help push it past. Often only certain roles and commands may be performed at any given stage.

Constructors

FerinasGrunt

GameOver

HuntersTurn1

HuntersTurn2

Lynching

OraclesTurn

OrphansTurn

ProtectorsTurn

ScapegoatsTurn

SeersTurn

Sunrise

Sunset

VillageDrunksTurn

VillagesTurn

WerewolvesTurn

WitchsTurn

Instances

Eq Stage

Read Stage

Show Stage

Humanise Stage

_FerinasGrunt :: Prism' Stage ()

_GameOver :: Prism' Stage ()

_HuntersTurn1 :: Prism' Stage ()

_HuntersTurn2 :: Prism' Stage ()

_Lynching :: Prism' Stage ()

_OraclesTurn :: Prism' Stage ()

_OrphansTurn :: Prism' Stage ()

_ProtectorsTurn :: Prism' Stage ()

_ScapegoatsTurn :: Prism' Stage ()

_SeersTurn :: Prism' Stage ()

_Sunrise :: Prism' Stage ()

_Sunset :: Prism' Stage ()

_VillageDrunksTurn :: Prism' Stage ()

_VillagesTurn :: Prism' Stage ()

_WerewolvesTurn :: Prism' Stage ()

_WitchsTurn :: Prism' Stage ()

allStages :: [Stage]

All of the Stages in the order that they should occur.

stageCycle :: [Stage]

An infinite cycle of all Stages in the order that they should occur.

stageAvailable :: Game -> Stage -> Bool

Checks whether the stage is available for the given Game. Most often this just involves checking if there is an applicable role alive, but sometimes it is more complex.

One of the more complex checks here is for the VillagesTurn. If the Fallen Angel is in play, then the VillagesTurn is available on the first day rather than only after the first night.

newGame :: [Player] -> Game

Creates a new Game with the given players. No validations are performed here, those are left to the binary.

Getters

votee :: Fold Game Player

The traversal of the votes victim. This is the player, if they exist, that received the majority of the votes.

Prisms

firstRound :: Prism' Game Game

The traversal of Games on the first round.

secondRound :: Prism' Game Game

The traversal of Games on the second round.

thirdRound :: Prism' Game Game

The traversal of Games on the third round.

Searches

getAllowedVoters :: Game -> [Player]

Gets all the allowedVoters in a game (which is names only) and maps them to their player.

getPendingVoters :: Game -> [Player]

Gets all Alive players that have yet to vote.

Queries

hasAnyoneWon :: Game -> Bool

Queries whether anyone has won.

hasFallenAngelWon :: Game -> Bool

Queries whether the Fallen Angel has won. The Fallen Angel wins if they manage to get themselves lynched by the Villagers.

hasVillagersWon :: Game -> Bool

Queries whether the Villagers have won. The Villagers win if they are the only players surviving.

N.B., the Fallen Angel is not considered when determining whether the Villagers have won.

hasWerewolvesWon :: Game -> Bool

Queries whether the Werewolves have won. The Werewolves win if they are the only players surviving.