Refactor bullet particles

src/Dodge/Creature/ChaseCrit.hs

@@ -0,0 +1,50 @@
+module Dodge.Creature.ChaseCrit
+    (smallChaseCrit
+    ,chaseCrit
+    ) where
+import Dodge.Data
+import Dodge.Default
+import Dodge.Creature.Picture
+--import Dodge.Creature.Test
+import Dodge.Creature.ReaderUpdate
+import Dodge.Creature.ChooseTarget
+import Dodge.Creature.Rationality
+import Dodge.Creature.AlertLevel
+import Dodge.Creature.State
+import Dodge.Creature.State.Data
+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
+--import System.Random
+
+smallChaseCrit :: Creature
+smallChaseCrit = chaseCrit
+    { _crHP = 1
+    , _crRad = 4
+    , _crPict = basicCrPict green
+    , _crInv = IM.fromList [(0,medkit 200)]
+    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 4
+    }
+chaseCrit :: Creature
+chaseCrit = defaultCreature
+    { _crUpdate = stateUpdate $ impulsiveAIR $ 
+        doStrategyActionsR >=>
+        performActionsR >=>
+        overrideMeleeCloseTargetR >=>
+        chaseTargetR targetYouLOS >=>
+        basicPerceptionUpdateR [0] >=>
+        targetYouWhenCognizantR >=>
+        return . (crMeleeCooldown . _Just %~ (max 0 . subtract 1))
+    , _crHP = 300
+    , _crPict = basicCrPict green
+    , _crInv = IM.fromList [(0,medkit 200)]
+    , _crMeleeCooldown = Just 0
+    , _crFaction = ColorFaction green
+    }