From aee8570428680a23bb85c02a107309597982ad9f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 3 Jun 2016 22:09:10 +0200
Subject: Basic Contact stats

---
 src/Sequence/Contact/Types.hs | 63 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 src/Sequence/Contact/Types.hs

(limited to 'src/Sequence/Contact')

diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
new file mode 100644
index 0000000..b33e132
--- /dev/null
+++ b/src/Sequence/Contact/Types.hs
@@ -0,0 +1,63 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Sequence.Contact.Types where
+
+import Sequence.Formula
+
+import Control.Lens
+
+import Data.Default
+
+data Stats = Prop
+           | Human
+             { _sAStrength
+             , _sAEndurance
+             , _sAMass
+             , _sAReflexes
+             , _sAMobility
+             , _sADexterity
+             , _sAIntelligence
+             , _sACharisma
+             , _sAPerception
+             , _sAWillpower
+             
+             , _sSArchaicRanged
+             , _sSFirearms
+             , _sSHeavyWeapons
+             , _sSEnergyWeapons
+             , _sSUnarmedMelee
+             , _sSArmedMelee
+             , _sSThrownWeapons
+             , _sSStealth
+             , _sSThievery
+             , _sSLockpicking
+             , _sSTrapping
+             , _sSSciences
+             , _sSFirstAid
+             , _sSMedicine
+             , _sSHumanities
+             , _sSEngineering
+             , _sSCraft
+             , _sSInterfacte
+             , _sSSpeech
+             , _sSLeadership
+             , _sSHomeEconomics
+             , _sSSurvival
+             , _sSMotorcycle
+             , _sSWheeled
+             , _sSHovercraft
+             , _sSAircraft
+             , _sSSpacecraft
+             , _sSWatercraft
+             , _sSTracked
+             , _sSExoskeleton
+
+             , _sMaxVitality
+             , _sSeqVal
+             , _sPainTolerance
+             , _sFatigueTolerance :: FormulaM Stats Int
+             }
+makeLenses ''Stats
+
+instance Default Stats where
+  def = Prop
-- 
cgit v1.2.3