38 lines
859 B
Haskell
38 lines
859 B
Haskell
module Dodge.Creature.ChaseCrit (
|
|
smallChaseCrit,
|
|
invisibleChaseCrit,
|
|
chaseCrit,
|
|
) where
|
|
|
|
--import Dodge.Data.Equipment.Misc
|
|
import Control.Lens
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
--import Dodge.Item.Equipment
|
|
import Picture
|
|
|
|
smallChaseCrit :: Creature
|
|
smallChaseCrit =
|
|
chaseCrit
|
|
{ _crHP = HP 1
|
|
, _crInv = mempty
|
|
}
|
|
|
|
invisibleChaseCrit :: Creature
|
|
invisibleChaseCrit =
|
|
chaseCrit
|
|
-- & crInv . at 0 ?~ wristInvisibility
|
|
-- & crEquipment . at OnLeftWrist ?~ 0
|
|
|
|
chaseCrit :: Creature
|
|
chaseCrit =
|
|
defaultCreature
|
|
& crName .~ "chaseCrit"
|
|
& crHP .~ HP 150
|
|
& crFaction .~ ColorFaction green
|
|
& crVocalization .~ chaseCritVocalization
|
|
& crStance . strideLength .~ 30
|
|
|
|
chaseCritVocalization :: Vocalization
|
|
chaseCritVocalization = Vocalization (50, 200) 0
|