From cec7e775320343b49024c1c03cc19b5e7366d034 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 25 Jun 2016 18:24:51 +0200 Subject: values to inspect --- src/Sequence/Utils.hs | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 57 insertions(+), 1 deletion(-) (limited to 'src/Sequence') diff --git a/src/Sequence/Utils.hs b/src/Sequence/Utils.hs index ba6ce95..bfc4743 100644 --- a/src/Sequence/Utils.hs +++ b/src/Sequence/Utils.hs @@ -151,5 +151,61 @@ instance Argument (Formula Stats) GameState where MaybeT . preuse $ gFocus' . eStats . folding accessor statAccessors :: Map (CI String) (Stats -> Maybe (Formula Stats)) -statAccessors = [ +statAccessors = [ ("Stärke", preview sAStrength) + , ("Ausdauer", preview sAEndurance) + , ("Masse", preview sAMass) + , ("Reflexe", preview sAReflexes) + , ("Beweglichkeit", preview sAMobility) + , ("Geschicklichkeit", preview sADexterity) + , ("Intelligenz", preview sAIntelligence) + , ("Charisma", preview sACharisma) + , ("Wahrnehmung", preview sAPerception) + , ("Entschlossenheit", preview sAWillpower) + + , ("Archaische Distanzwaffen", preview sSArchaicRanged) + , ("Handfeuerwaffen", preview sSFirearms) + , ("Schwere Waffen", preview sSHeavyWeapons) + , ("Energiewaffen", preview sSEnergyWeapons) + , ("Waffenloser Nahkampf", preview sSUnarmedMelee) + , ("Bewaffneter Nahkampf", preview sSArmedMelee) + , ("Wurfwaffen", preview sSThrownWeapons) + , ("Tarnen & Schleichen", preview sSStealth) + , ("Diebeshandwerk & Betrügerei", preview sSThievery) + , ("Schlösser Knacken", preview sSLockpicking) + , ("Fallen Stellen & Entschärfen", preview sSTrapping) + , ("Naturwissenschaften", preview sSSciences) + , ("Erste Hilfe", preview sSFirstAid) + , ("Medizinische Praktik", preview sSMedicine) + , ("Geisteswissenschaften", preview sSHumanities) + , ("Ingenieurwesen & Reperatur", preview sSEngineering) + , ("Handwerkskunst", preview sSCraft) + , ("Interface", preview sSInterface) + , ("Redekunst", preview sSSpeech) + , ("Führung", preview sSLeadership) + , ("Hauswirtschaft", preview sSHomeEconomics) + , ("Überlebenskunst", preview sSSurvival) + , ("Motorrad", preview sSMotorcycle) + , ("Radfahrzeug", preview sSWheeled) + , ("Schwebefahrzeug", preview sSHovercraft) + , ("Tragflächenmaschine", preview sSAircraft) + , ("Raumfahrzeug", preview sSSpacecraft) + , ("Wasserfahrzeug", preview sSWatercraft) + , ("Kettenfahrzeug", preview sSTracked) + , ("Exoskelett", preview sSExoskeleton) + + , ("Beißen", preview sSBiting) + , ("Aufspüren", preview sSSearching) + , ("Betragen", preview sSDemeanour) + + , ("Rammen", preview sSRamming) + , ("Zielerfassung", preview sSTargeting) + , ("Verständnis", preview sSComprehension) + + , ("Maximale Vitalität", preview sMaxVitality) + , ("Sequenzwert", preview sSeqVal) + , ("Schmerztoleranz", preview sPainTolerance) + , ("Erschöpfungstoleranz", preview sFatigueTolerance) + + , ("Vitalität", liftM2 (-) <$> preview sMaxVitality <*> preview (sTotalDamage . to return)) + , ("Erschöpfung", preview $ sFatigue . to return) ] -- cgit v1.2.3