Cleanup creature update slightly, add show instance for impulses

2022-03-26 08:08:16 +00:00
parent ae7fbe29c2
commit 3698a738f3
17 changed files with 158 additions and 198 deletions
@@ -19,7 +19,7 @@ import Shape
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
-import qualified Data.Vector as V
+--import qualified Data.Vector as V
 --import Data.Monoid
 defaultCreature :: Creature
 defaultCreature = Creature
@@ -132,7 +132,7 @@ yourDefaultStrideLength = 40
 defaultState :: CreatureState
 defaultState = CrSt 
    { _crDamage = []
-    , _crPastDamage = V.fromList $ replicate 20 []
+--    , _crPastDamage = V.fromList $ replicate 20 []
    , _crSpState = GenCr
    , _crDropsOnDeath = DropAll
    }