Simplify vocalization

2026-04-01 20:30:31 +01:00
parent b77170c4bc
commit 735cc8d92d
11 changed files with 144 additions and 142 deletions
@@ -2,6 +2,7 @@ module Dodge.Creature.ChaseCrit (
    smallChaseCrit,
    invisibleChaseCrit,
    chaseCrit,
+    hoverCrit,
 ) where

 --import Dodge.Data.Equipment.Misc
@@ -30,8 +31,12 @@ chaseCrit =
        & crName .~ "chaseCrit"
        & crHP .~ HP 150
        & crFaction .~ ColorFaction green
-        & crVocalization .~ chaseCritVocalization
        & crStance . strideLength .~ 30

-chaseCritVocalization :: Vocalization
-chaseCritVocalization = Vocalization (50, 200) 0 20
+hoverCrit :: Creature
+hoverCrit =
+    defaultCreature
+        & crName .~ "chaseCrit"
+        & crHP .~ HP 150
+        & crFaction .~ ColorFaction green
+        & crStance . strideLength .~ 30