Add bee crits

2026-04-20 12:25:39 +01:00
parent 722a25240e
commit adae6b84f4
20 changed files with 340 additions and 184 deletions
@@ -6,6 +6,8 @@ module Dodge.Creature.ChaseCrit (
    hoverCrit,
    slinkCrit,
    slimeCrit,
+    beeCrit,
+    hiveCrit,
 ) where

 import qualified Quaternion as Q
@@ -82,4 +84,22 @@ hoverCrit =
        & crHP .~ HP 150
        & crType .~ HoverCrit 0
        & crFaction .~ ColorFaction blue
-        & crStance . carriage .~ Flying 15 0.975
+        & crStance . carriage .~ Flying 15
+
+beeCrit :: Creature
+beeCrit =
+    defaultCreature
+        & crName .~ "beeCrit"
+        & crHP .~ HP 100
+        & crType .~ BeeCrit 0 Nothing
+        & crFaction .~ ColorFaction yellow
+        & crStance . carriage .~ Flying 15
+
+hiveCrit :: Creature
+hiveCrit =
+    defaultCreature
+        & crName .~ "hiveCrit"
+        & crHP .~ HP 100000
+        & crType .~ HiveCrit [] 0
+        & crStance . carriage .~ Rooted
+        & crFaction .~ ColorFaction yellow