From 62ed6579cc1a71c4e962063999743f7fcd927f1c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 4 Jun 2016 18:24:44 +0200 Subject: dolphins & dogs --- src/Sequence/Contact/Archetypes.hs | 52 ++++++++++++++++++++++++++++++++++++++ src/Sequence/Contact/Types.hs | 2 +- 2 files changed, 53 insertions(+), 1 deletion(-) (limited to 'src/Sequence') diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs index 94addce..3b014e4 100644 --- a/src/Sequence/Contact/Archetypes.hs +++ b/src/Sequence/Contact/Archetypes.hs @@ -30,6 +30,8 @@ instance Argument Entity GameState where archetypes :: Map (CI String) Stats archetypes = [ ("Mensch", human) + , ("Hund", dog) + , ("Delfin", dolphin) , ("Kind von Mu", childOfMu) ] @@ -83,8 +85,58 @@ human = Humanoid , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance } +dog = Quadruped + { _sAStrength = vStrength + , _sAEndurance = vEndurance + , _sAMass = vMass + , _sAReflexes = vReflexes + , _sAMobility = vMobility + , _sADexterity = vDexterity + , _sAIntelligence = vIntelligence + , _sACharisma = vCharisma + , _sAPerception = vPerception + , _sAWillpower = vWillpower + + , _sSBiting = 40 + vReflexes + vStrength + , _sSSearching = 20 + vIntelligence * 10 + vPerception * 5 + , _sSStealth = vIntelligence + , _sSLeadership = vCharisma * 3 + vMass * 2 + vWillpower + , _sSDemeanour = vIntelligence * 8 + vDexterity * 2 + vWillpower + + , _sMaxVitality = vEndurance * 2 + vMass * 2 + vWillpower + 10 + , _sSeqVal = vReflexes * 2 + vMobility + vPerception + 2 * d 10 + , _sPainTolerance = vMass `quot'` 2 + vWillpower + , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance + } + +dolphin = Dolphin + { _sAStrength = vStrength + , _sAEndurance = vEndurance + , _sAMass = vMass + , _sAReflexes = vReflexes + , _sAMobility = vMobility + , _sADexterity = vDexterity + , _sAIntelligence = vIntelligence + , _sACharisma = vCharisma + , _sAPerception = vPerception + , _sAWillpower = vWillpower + + , _sSRamming = 30 + vReflexes * 2 + vPerception + , _sSTargeting = 10 + vDexterity * 3 + vPerception + , _sSSearching = 10 + vIntelligence * 2 + vPerception + , _sSStealth = 5 + vMobility + vPerception + , _sSComprehension = vIntelligence * 2 + vPerception + + , _sMaxVitality = vEndurance * 2 + vMass * 2 + vWillpower + 10 + , _sSeqVal = vReflexes * 2 + vMobility + vPerception + 2 * d 10 + , _sPainTolerance = vMass `quot'` 2 + vWillpower + , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance + } + childOfMu = human & sAStrength +~ 2 & sAReflexes +~ 5 & sAMobility +~ 5 & sAPerception +~ 2 + & sSeqVal +~ d 10 + diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs index d3ca31e..4166812 100644 --- a/src/Sequence/Contact/Types.hs +++ b/src/Sequence/Contact/Types.hs @@ -70,7 +70,7 @@ data Stats = Prop , _sAWillpower , _sSBiting - , _sSTracking + , _sSSearching , _sSStealth , _sSLeadership , _sSDemeanour -- cgit v1.2.3