module Content.ModeKindPlayer
( playerHero, playerAntiHero, playerCivilian
, playerMonster, playerAntiMonster, playerAnimal
, playerHorror, playerMonsterTourist, playerHunamConvict
, playerAnimalMagnificent, playerAnimalExquisite
, hiHeroShort, hiHeroMedium, hiHeroLong, hiDweller
, playerRobot
) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Content.ItemKindActor
import Content.ItemKindOrgan
import qualified Game.LambdaHack.Content.ItemKind as IK
import Game.LambdaHack.Content.ModeKind
import Game.LambdaHack.Definition.Ability
playerHero, playerAntiHero, playerCivilian, playerMonster, playerAntiMonster, playerAnimal, playerHorror, playerMonsterTourist, playerHunamConvict, playerAnimalMagnificent, playerAnimalExquisite :: Player
playerRobot :: Player
playerHero :: Player
playerHero = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Spacefarer"
, fgroups :: [GroupName ItemKind]
fgroups = [GroupName ItemKind
HERO]
, fskillsOther :: Skills
fskillsOther = Skills
meleeAdjacent
, fcanEscape :: Bool
fcanEscape = Bool
True
, fneverEmpty :: Bool
fneverEmpty = Bool
True
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiHeroLong
, fhasGender :: Bool
fhasGender = Bool
True
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TExplore
, fleaderMode :: LeaderMode
fleaderMode = AutoLeader -> LeaderMode
LeaderUI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
False Bool
False
, fhasUI :: Bool
fhasUI = Bool
True
}
playerAntiHero :: Player
playerAntiHero = Player
playerHero
{ fleaderMode :: LeaderMode
fleaderMode = AutoLeader -> LeaderMode
LeaderAI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
True Bool
False
, fhasUI :: Bool
fhasUI = Bool
False
}
playerCivilian :: Player
playerCivilian = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Civilian"
, fgroups :: [GroupName ItemKind]
fgroups = [GroupName ItemKind
HERO, GroupName ItemKind
CIVILIAN]
, fskillsOther :: Skills
fskillsOther = Skills
zeroSkills
, fcanEscape :: Bool
fcanEscape = Bool
False
, fneverEmpty :: Bool
fneverEmpty = Bool
True
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiHeroMedium
, fhasGender :: Bool
fhasGender = Bool
True
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TPatrol
, fleaderMode :: LeaderMode
fleaderMode = LeaderMode
LeaderNull
, fhasUI :: Bool
fhasUI = Bool
False
}
playerMonster :: Player
playerMonster = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Alien Hierarchy"
, fgroups :: [GroupName ItemKind]
fgroups = [GroupName ItemKind
MONSTER, GroupName ItemKind
MOBILE_MONSTER, GroupName ItemKind
AQUATIC_MONSTER]
, fskillsOther :: Skills
fskillsOther = Skills
zeroSkills
, fcanEscape :: Bool
fcanEscape = Bool
False
, fneverEmpty :: Bool
fneverEmpty = Bool
False
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiDweller
, fhasGender :: Bool
fhasGender = Bool
False
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TExplore
, fleaderMode :: LeaderMode
fleaderMode =
AutoLeader -> LeaderMode
LeaderAI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
True Bool
True
, fhasUI :: Bool
fhasUI = Bool
False
}
playerAntiMonster :: Player
playerAntiMonster = Player
playerMonster
{ fleaderMode :: LeaderMode
fleaderMode = AutoLeader -> LeaderMode
LeaderUI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
True Bool
True
, fhasUI :: Bool
fhasUI = Bool
True
}
playerAnimal :: Player
playerAnimal = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Animal Kingdom"
, fgroups :: [GroupName ItemKind]
fgroups = [ GroupName ItemKind
ANIMAL, GroupName ItemKind
MOBILE_ANIMAL, GroupName ItemKind
IMMOBILE_ANIMAL, GroupName ItemKind
AQUATIC_ANIMAL
, GroupName ItemKind
SCAVENGER ]
, fskillsOther :: Skills
fskillsOther = Skills
zeroSkills
, fcanEscape :: Bool
fcanEscape = Bool
False
, fneverEmpty :: Bool
fneverEmpty = Bool
False
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiDweller
, fhasGender :: Bool
fhasGender = Bool
False
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TRoam
, fleaderMode :: LeaderMode
fleaderMode = LeaderMode
LeaderNull
, fhasUI :: Bool
fhasUI = Bool
False
}
playerHorror :: Player
playerHorror = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Horror Den"
, fgroups :: [GroupName ItemKind]
fgroups = [GroupName ItemKind
IK.HORROR]
, fskillsOther :: Skills
fskillsOther = Skills
zeroSkills
, fcanEscape :: Bool
fcanEscape = Bool
False
, fneverEmpty :: Bool
fneverEmpty = Bool
False
, fhiCondPoly :: HiCondPoly
fhiCondPoly = []
, fhasGender :: Bool
fhasGender = Bool
False
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TPatrol
, fleaderMode :: LeaderMode
fleaderMode = LeaderMode
LeaderNull
, fhasUI :: Bool
fhasUI = Bool
False
}
playerMonsterTourist :: Player
playerMonsterTourist =
Player
playerAntiMonster { fname :: Text
fname = "Alien Tourist Office"
, fcanEscape :: Bool
fcanEscape = Bool
True
, fneverEmpty :: Bool
fneverEmpty = Bool
True
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiHeroMedium
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TFollow
, fleaderMode :: LeaderMode
fleaderMode = AutoLeader -> LeaderMode
LeaderUI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
False Bool
False }
playerHunamConvict :: Player
playerHunamConvict =
Player
playerCivilian { fname :: Text
fname = "Hunam Convict"
, fleaderMode :: LeaderMode
fleaderMode = AutoLeader -> LeaderMode
LeaderAI (AutoLeader -> LeaderMode) -> AutoLeader -> LeaderMode
forall a b. (a -> b) -> a -> b
$ Bool -> Bool -> AutoLeader
AutoLeader Bool
True Bool
False }
playerAnimalMagnificent :: Player
playerAnimalMagnificent =
Player
playerAnimal { fname :: Text
fname = "Animal Magnificent Specimen Variety"
, fneverEmpty :: Bool
fneverEmpty = Bool
True }
playerAnimalExquisite :: Player
playerAnimalExquisite =
Player
playerAnimal { fname :: Text
fname = "Animal Exquisite Herds and Packs Galore"
, fneverEmpty :: Bool
fneverEmpty = Bool
True }
hiHeroLong, hiHeroMedium, hiHeroShort, hiDweller :: HiCondPoly
hiHeroShort :: HiCondPoly
hiHeroShort =
[ ( [(HiIndeterminant
HiLoot, 100)]
, [Outcome
forall a. Bounded a => a
minBound..Outcome
forall a. Bounded a => a
maxBound] )
, ( [(HiIndeterminant
HiConst, 100)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSprint, -500)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSurvival, 10)]
, [Outcome]
deafeatOutcomes )
]
hiHeroMedium :: HiCondPoly
hiHeroMedium =
[ ( [(HiIndeterminant
HiLoot, 200)]
, [Outcome
forall a. Bounded a => a
minBound..Outcome
forall a. Bounded a => a
maxBound] )
, ( [(HiIndeterminant
HiConst, 200), (HiIndeterminant
HiLoss, -10)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSprint, -500)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiBlitz, -100)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSurvival, 10)]
, [Outcome]
deafeatOutcomes )
]
hiHeroLong :: HiCondPoly
hiHeroLong =
[ ( [(HiIndeterminant
HiLoot, 10000)]
, [Outcome
forall a. Bounded a => a
minBound..Outcome
forall a. Bounded a => a
maxBound] )
, ( [(HiIndeterminant
HiSprint, -20000)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiBlitz, -100)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSurvival, 10)]
, [Outcome]
deafeatOutcomes )
]
hiDweller :: HiCondPoly
hiDweller = [ ( [(HiIndeterminant
HiConst, 1000)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiConst, 1000), (HiIndeterminant
HiLoss, -10)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSprint, -1000)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiBlitz, -100)]
, [Outcome]
victoryOutcomes )
, ( [(HiIndeterminant
HiSurvival, 100)]
, [Outcome]
deafeatOutcomes )
]
playerRobot :: Player
playerRobot = $WPlayer :: Text
-> [GroupName ItemKind]
-> Skills
-> Bool
-> Bool
-> HiCondPoly
-> Bool
-> Doctrine
-> LeaderMode
-> Bool
-> Player
Player
{ fname :: Text
fname = "Robot Anarchy"
, fgroups :: [GroupName ItemKind]
fgroups = [ GroupName ItemKind
ROBOT, GroupName ItemKind
MOBILE_ROBOT, GroupName ItemKind
IMMOBILE_ROBOT
, GroupName ItemKind
CONSTRUCTION_ROBOT ]
, fskillsOther :: Skills
fskillsOther = Skills
zeroSkills
, fcanEscape :: Bool
fcanEscape = Bool
False
, fneverEmpty :: Bool
fneverEmpty = Bool
False
, fhiCondPoly :: HiCondPoly
fhiCondPoly = HiCondPoly
hiDweller
, fhasGender :: Bool
fhasGender = Bool
False
, fdoctrine :: Doctrine
fdoctrine = Doctrine
TRoam
, fleaderMode :: LeaderMode
fleaderMode = LeaderMode
LeaderNull
, fhasUI :: Bool
fhasUI = Bool
False
}