Add crab crit, rethink Action datatype slightly

2026-04-07 15:29:02 +01:00
parent 35d169b585
commit f0e568e694
25 changed files with 606 additions and 465 deletions
@@ -1,6 +1,7 @@
 module Dodge.Creature.ChaseCrit (
    smallChaseCrit,
    invisibleChaseCrit,
+    crabCrit,
    chaseCrit,
    hoverCrit,
 ) where
@@ -32,6 +33,13 @@ chaseCrit =
        & crHP .~ HP 150
        & crFaction .~ ColorFaction green

+crabCrit :: Creature
+crabCrit = defaultCreature
+        & crName .~ "chaseCrit"
+        & crHP .~ HP 350
+        & crType .~ CrabCrit 0 LeftForward 0 0
+        & crFaction .~ ColorFaction red
+
 hoverCrit :: Creature
 hoverCrit =
    defaultCreature