Copyright | (c) Henry J. Wylde, 2016 |
---|---|
License | BSD3 |
Maintainer | public@hjwylde.com |
Safe Haskell | None |
Language | Haskell2010 |
Players are quite simple in themselves. They have a name
, role
and state
. Any complex
behaviour is handled in Game.Werewolf.Command and Game.Werewolf.Engine.
- data Player
- name :: Lens' Player Text
- role :: Lens' Player Role
- state :: Lens' Player State
- data State
- _Alive :: Prism' State ()
- _Dead :: Prism' State ()
- newPlayer :: Text -> Role -> Player
- alphaWolf :: Traversal' Player ()
- beholder :: Traversal' Player ()
- crookedSenator :: Traversal' Player ()
- druid :: Traversal' Player ()
- fallenAngel :: Traversal' Player ()
- hunter :: Traversal' Player ()
- jester :: Traversal' Player ()
- lycan :: Traversal' Player ()
- orphan :: Traversal' Player ()
- protector :: Traversal' Player ()
- scapegoat :: Traversal' Player ()
- seer :: Traversal' Player ()
- simpleVillager :: Traversal' Player ()
- simpleWerewolf :: Traversal' Player ()
- trueVillager :: Traversal' Player ()
- villageDrunk :: Traversal' Player ()
- witch :: Traversal' Player ()
- villager :: Traversal' Player ()
- werewolf :: Traversal' Player ()
- names :: Traversable t => Traversal' (t Player) Text
- roles :: Traversable t => Traversal' (t Player) Role
- states :: Traversable t => Traversal' (t Player) State
- alphaWolves :: Traversable t => Traversal' (t Player) Player
- beholders :: Traversable t => Traversal' (t Player) Player
- crookedSenators :: Traversable t => Traversal' (t Player) Player
- druids :: Traversable t => Traversal' (t Player) Player
- fallenAngels :: Traversable t => Traversal' (t Player) Player
- hunters :: Traversable t => Traversal' (t Player) Player
- jesters :: Traversable t => Traversal' (t Player) Player
- lycans :: Traversable t => Traversal' (t Player) Player
- orphans :: Traversable t => Traversal' (t Player) Player
- protectors :: Traversable t => Traversal' (t Player) Player
- scapegoats :: Traversable t => Traversal' (t Player) Player
- seers :: Traversable t => Traversal' (t Player) Player
- simpleVillagers :: Traversable t => Traversal' (t Player) Player
- simpleWerewolves :: Traversable t => Traversal' (t Player) Player
- trueVillagers :: Traversable t => Traversal' (t Player) Player
- villageDrunks :: Traversable t => Traversal' (t Player) Player
- witches :: Traversable t => Traversal' (t Player) Player
- villagers :: Traversable t => Traversal' (t Player) Player
- werewolves :: Traversable t => Traversal' (t Player) Player
- alive :: Traversal' Player Player
- dead :: Traversal' Player Player
Player
Traversals
alphaWolf :: Traversal' Player () Source
The traversal of Player
s with a alphaWolfRole
.
alphaWolf
=role
.only
alphaWolfRole
beholder :: Traversal' Player () Source
The traversal of Player
s with a beholderRole
.
beholder
=role
.only
beholderRole
crookedSenator :: Traversal' Player () Source
The traversal of Player
s with a crookedSenatorRole
.
crookedSenator
=role
.only
crookedSenatorRole
druid :: Traversal' Player () Source
fallenAngel :: Traversal' Player () Source
The traversal of Player
s with an fallenAngelRole
.
fallenAngel
=role
.only
fallenAngelRole
hunter :: Traversal' Player () Source
The traversal of Player
s with a hunterRole
.
hunter
=role
.only
hunterRole
jester :: Traversal' Player () Source
The traversal of Player
s with a jesterRole
.
jester
=role
.only
jesterRole
lycan :: Traversal' Player () Source
orphan :: Traversal' Player () Source
The traversal of Player
s with a orphanRole
.
orphan
=role
.only
orphanRole
protector :: Traversal' Player () Source
The traversal of Player
s with a protectorRole
.
protector
=role
.only
protectorRole
scapegoat :: Traversal' Player () Source
The traversal of Player
s with a scapegoatRole
.
scapegoat
=role
.only
scapegoatRole
seer :: Traversal' Player () Source
simpleVillager :: Traversal' Player () Source
The traversal of Player
s with a simpleVillagerRole
.
simpleVillager
=role
.only
simpleVillagerRole
simpleWerewolf :: Traversal' Player () Source
The traversal of Player
s with a simpleWerewolfRole
.
simpleWerewolf
=role
.only
simpleWerewolfRole
trueVillager :: Traversal' Player () Source
The traversal of Player
s with a trueVillagerRole
.
trueVillager
=role
.only
trueVillagerRole
villageDrunk :: Traversal' Player () Source
The traversal of Player
s with a villageDrunkRole
.
villageDrunk
=role
.only
villageDrunkRole
witch :: Traversal' Player () Source
villager :: Traversal' Player () Source
The traversal of Player
s aligned with the Villagers
.
villager
=role
.allegiance
._Villagers
werewolf :: Traversal' Player () Source
The traversal of Player
s aligned with the Werewolves
.
werewolf
=role
.allegiance
._Werewolves
These are provided just as a bit of sugar to avoid continually writing
.traverse
.
names :: Traversable t => Traversal' (t Player) Text Source
roles :: Traversable t => Traversal' (t Player) Role Source
states :: Traversable t => Traversal' (t Player) State Source
N.B., these are not legal traversals for the same reason filtered
isn't!
alphaWolves :: Traversable t => Traversal' (t Player) Player Source
beholders :: Traversable t => Traversal' (t Player) Player Source
crookedSenators :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of crookedSenator
Player
s.
crookedSenators
=traverse
.filtered
(is
crookedSenator
)
druids :: Traversable t => Traversal' (t Player) Player Source
fallenAngels :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of fallenAngel
Player
s.
fallenAngels
=traverse
.filtered
(is
fallenAngel
)
hunters :: Traversable t => Traversal' (t Player) Player Source
jesters :: Traversable t => Traversal' (t Player) Player Source
lycans :: Traversable t => Traversal' (t Player) Player Source
orphans :: Traversable t => Traversal' (t Player) Player Source
protectors :: Traversable t => Traversal' (t Player) Player Source
scapegoats :: Traversable t => Traversal' (t Player) Player Source
seers :: Traversable t => Traversal' (t Player) Player Source
simpleVillagers :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of simpleVillager
Player
s.
simpleVillagers
=traverse
.filtered
(is
simpleVillager
)
simpleWerewolves :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of simpleWerewolf
Player
s.
simpleWerewolves
=traverse
.filtered
(is
simpleWerewolf
)
trueVillagers :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of trueVillager
Player
s.
trueVillagers
=traverse
.filtered
(is
trueVillager
)
villageDrunks :: Traversable t => Traversal' (t Player) Player Source
This Traversal
provides the traversal of villageDrunk
Player
s.
villageDrunks
=traverse
.filtered
(is
villageDrunk
)
witches :: Traversable t => Traversal' (t Player) Player Source
villagers :: Traversable t => Traversal' (t Player) Player Source
werewolves :: Traversable t => Traversal' (t Player) Player Source