diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-04 01:15:42 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-04 01:15:42 +0200 |
| commit | b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962 (patch) | |
| tree | 7c2824b37b6b8bd71dfa92b33e9bcb501fa89125 | |
| parent | aee8570428680a23bb85c02a107309597982ad9f (diff) | |
| download | 2017-01-16_17:13:37-b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962.tar 2017-01-16_17:13:37-b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962.tar.gz 2017-01-16_17:13:37-b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962.tar.bz2 2017-01-16_17:13:37-b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962.tar.xz 2017-01-16_17:13:37-b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962.zip | |
Additional species
| -rw-r--r-- | src/Sequence/Contact/Types.hs | 49 |
1 files changed, 48 insertions, 1 deletions
diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs index b33e132..815bd4e 100644 --- a/src/Sequence/Contact/Types.hs +++ b/src/Sequence/Contact/Types.hs | |||
| @@ -9,7 +9,7 @@ import Control.Lens | |||
| 9 | import Data.Default | 9 | import Data.Default |
| 10 | 10 | ||
| 11 | data Stats = Prop | 11 | data Stats = Prop |
| 12 | | Human | 12 | | Humanoid |
| 13 | { _sAStrength | 13 | { _sAStrength |
| 14 | , _sAEndurance | 14 | , _sAEndurance |
| 15 | , _sAMass | 15 | , _sAMass |
| @@ -57,7 +57,54 @@ data Stats = Prop | |||
| 57 | , _sPainTolerance | 57 | , _sPainTolerance |
| 58 | , _sFatigueTolerance :: FormulaM Stats Int | 58 | , _sFatigueTolerance :: FormulaM Stats Int |
| 59 | } | 59 | } |
| 60 | | Quadruped | ||
| 61 | { _sAStrength | ||
| 62 | , _sAEndurance | ||
| 63 | , _sAMass | ||
| 64 | , _sAReflexes | ||
| 65 | , _sAMobility | ||
| 66 | , _sADexterity | ||
| 67 | , _sAIntelligence | ||
| 68 | , _sACharisma | ||
| 69 | , _sAPerception | ||
| 70 | , _sAWillpower | ||
| 71 | |||
| 72 | , _sSBiting | ||
| 73 | , _sSTracking | ||
| 74 | , _sSStealth | ||
| 75 | , _sSLeadership | ||
| 76 | , _sSDemeanour | ||
| 77 | |||
| 78 | , _sMaxVitality | ||
| 79 | , _sSeqVal | ||
| 80 | , _sPainTolerance | ||
| 81 | , _sFatigueTolerance :: FormulaM Stats Int | ||
| 82 | } | ||
| 83 | | Dolphin | ||
| 84 | { _sAStrength | ||
| 85 | , _sAEndurance | ||
| 86 | , _sAMass | ||
| 87 | , _sAReflexes | ||
| 88 | , _sAMobility | ||
| 89 | , _sADexterity | ||
| 90 | , _sAIntelligence | ||
| 91 | , _sACharisma | ||
| 92 | , _sAPerception | ||
| 93 | , _sAWillpower | ||
| 94 | |||
| 95 | , _sSRamming | ||
| 96 | , _sSTargeting | ||
| 97 | , _sSSearching | ||
| 98 | , _sSStealth | ||
| 99 | , _sSComprehension | ||
| 100 | |||
| 101 | , _sMaxVitality | ||
| 102 | , _sSeqVal | ||
| 103 | , _sPainTolerance | ||
| 104 | , _sFatigueTolerance :: FormulaM Stats Int | ||
| 105 | } | ||
| 60 | makeLenses ''Stats | 106 | makeLenses ''Stats |
| 61 | 107 | ||
| 62 | instance Default Stats where | 108 | instance Default Stats where |
| 63 | def = Prop | 109 | def = Prop |
| 110 | |||