25 lines
474 B
Haskell
25 lines
474 B
Haskell
module Dodge.Creature.LauncherCrit
|
|
( launcherCrit
|
|
)
|
|
where
|
|
import Dodge.Data
|
|
import Dodge.Default
|
|
import Dodge.Item.Weapon.Launcher
|
|
import Picture
|
|
|
|
import qualified IntMapHelp as IM
|
|
import Control.Lens
|
|
|
|
launcherCrit :: Creature
|
|
launcherCrit = defaultCreature
|
|
{ _crInv = IM.fromList [(0,launcher)]
|
|
, _crRad = 10
|
|
, _crState = defaultState
|
|
, _crHP = 300
|
|
}
|
|
& crType . skinUpper .~ light4 red
|
|
& crType . humanoidAI .~ LauncherAI
|
|
|
|
|
|
|