Add pistolCrit file, tweak shell spin params

2021-05-13 19:21:52 +02:00
parent 2402e1e868
commit eed7865192
7 changed files with 147 additions and 45 deletions
@@ -2,6 +2,7 @@ module Dodge.Creature
    ( module Dodge.Creature
    , module Dodge.Creature.Inanimate
    , launcherCrit
+    , pistolCrit
    )
  where
 import Dodge.Creature.Stance.Data
@@ -14,6 +15,7 @@ import Dodge.Creature.AlertLevel
 import Dodge.Creature.SetTarget
 import Dodge.Creature.Test
 import Dodge.Creature.LauncherCrit
+import Dodge.Creature.PistolCrit
 import Dodge.Data
 import Dodge.AIs
 import Dodge.Default
@@ -179,16 +181,6 @@ spreadGunCrit = defaultCreature
    , _crState = defaultState {_goals = [[Init]]}
    , _crHP = 300
    }
-pistolCrit :: Creature
-pistolCrit = defaultCreature
-    { _crPict = basicCrPict red
-    , _crUpdate = stateUpdate (dodgeAI 150 200)
-    , _crInv = IM.fromList [(0,pistol),(1,medkit 100)]
-    , _crInvSel = 0
-    , _crRad = 10
-    , _crState = defaultState {_goals = [[InitGuard]]}
-    , _crHP = 500
-    }
 autoCrit :: Creature
 autoCrit = defaultCreature
    { _crPict = basicCrPict red