39 lines
841 B
Haskell
39 lines
841 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 = 1
|
|
, _crInv = mempty
|
|
}
|
|
|
|
invisibleChaseCrit :: Creature
|
|
invisibleChaseCrit =
|
|
chaseCrit
|
|
& crInv . at 0 ?~ wristInvisibility
|
|
& crEquipment . at OnLeftWrist ?~ 0
|
|
|
|
chaseCrit :: Creature
|
|
chaseCrit =
|
|
defaultCreature
|
|
{ _crName = "chaseCrit"
|
|
, _crHP = 150
|
|
, _crInv = mempty
|
|
, _crFaction = ColorFaction green
|
|
, _crVocalization = chaseCritVocalization
|
|
}
|
|
|
|
chaseCritVocalization :: Vocalization
|
|
chaseCritVocalization = Vocalization (50, 200) 0
|