AI refactor

src/Dodge/Creature/SwarmCrit.hs

@@ -0,0 +1,39 @@
+module Dodge.Creature.SwarmCrit
+    ( swarmCrit
+    )
+    where
+import Dodge.Data
+import Dodge.Default
+import Dodge.Creature.Picture
+import Dodge.Creature.Test
+import Dodge.Creature.ActionRat
+import Dodge.Creature.ImpulseRat
+import Dodge.Creature.ChooseTarget
+import Dodge.Creature.SetTarget
+import Dodge.Creature.Rationality
+import Dodge.Creature.AlertLevel
+import Dodge.Creature.State
+import Dodge.Creature.State.Data
+import Dodge.Item.Weapon
+import Dodge.Item.Consumable
+import Dodge.Picture.Layer
+import Geometry
+import Picture
+import Dodge.RandomHelp
+
+import Data.Maybe
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+import Control.Monad.State
+import System.Random
+
+swarmCrit :: Creature
+swarmCrit = defaultCreature
+    { _crUpdate = stateUpdate $ meleeCooldown $ impulsiveAI $ chaseTarget targetYouLOS
+    , _crHP = 1
+    , _crRad = 4
+    , _crPict = basicCrPict yellow
+    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
+    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 4
+    , _crFaction = ColorFaction yellow
+    }