values to inspect

1 files changed, 57 insertions, 1 deletions

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)
                 ]