Separate out creature data

2022-07-21 23:15:53 +01:00
parent dfc9b2dca9
commit d4e5b02874
6 changed files with 445 additions and 402 deletions
@@ -0,0 +1,13 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Creature.State where
+import Dodge.Data.Damage
+import Dodge.Creature.State.Data
+import Control.Lens
+
+data CreatureState = CrSt 
+    { _csDamage  :: [Damage]
+    , _csSpState :: CrSpState
+    , _csDropsOnDeath :: CreatureDropType
+    }
+makeLenses ''CreatureState