Add slime crit, start work on slink crit

src/Dodge/Creature/ChaseCrit.hs

@@ -4,9 +4,12 @@ module Dodge.Creature.ChaseCrit (
     crabCrit,
     chaseCrit,
     hoverCrit,
+    slinkCrit,
+    slimeCrit,
 ) where
 
---import Dodge.Data.Equipment.Misc
+import qualified Quaternion as Q
+import Linear
 import Dodge.Data.FloatFunction
 import Control.Lens
 import Dodge.Data.Creature
@@ -48,6 +51,25 @@ crabCrit = defaultCreature
         & crFaction .~ ColorFaction red
         & crPerception . cpVision . viFOV .~ FloatFOV pi
 
+slinkCrit :: Creature
+slinkCrit = defaultCreature
+        & crName .~ "slinkCrit"
+        & crHP .~ HP 1000
+        & crType .~ SlinkCrit
+            { _meleeCooldown = 0
+            , _slinkSpine = replicate 15 (V3 0 0 2, Q.axisAngle (V3 0 1 0) (pi/15))
+            }
+        & crFaction .~ ColorFaction red
+        & crPerception . cpVision . viFOV .~ FloatFOV pi
+
+slimeCrit :: Creature
+slimeCrit = defaultCreature
+        & crName .~ "slimeCrit"
+        & crHP .~ HP 1000
+        & crType .~ SlimeCrit 40 (V2 30 0) False
+        & crFaction .~ ColorFaction (light green)
+        & crPerception . cpVision . viFOV .~ FloatFOV pi
+
 hoverCrit :: Creature
 hoverCrit =
     defaultCreature