41 lines
952 B
Haskell
41 lines
952 B
Haskell
--{-# LANGUAGE TupleSections #-}
|
|
{-
|
|
Inanimate objects such as lamps, barrels, etc
|
|
-}
|
|
module Dodge.Creature.Inanimate (
|
|
barrel,
|
|
explosiveBarrel,
|
|
module Dodge.Creature.Lamp,
|
|
) where
|
|
|
|
import Dodge.Creature.Lamp
|
|
import Dodge.Data.Creature
|
|
import Dodge.Default
|
|
import qualified IntMapHelp as IM
|
|
import LensHelp
|
|
|
|
barrel :: Creature
|
|
barrel =
|
|
defaultInanimate
|
|
{ _crHP = 500
|
|
, _crType = Barreloid PlainBarrel
|
|
, _crState =
|
|
defaultState
|
|
{ _csSpState = Barrel []
|
|
}
|
|
, _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
|
|
}
|
|
|
|
explosiveBarrel :: Creature
|
|
explosiveBarrel =
|
|
defaultInanimate
|
|
{ _crHP = 400
|
|
, _crType = Barreloid ExplosiveBarrel
|
|
, _crState =
|
|
defaultState
|
|
{ _csSpState = Barrel []
|
|
}
|
|
, _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
|
|
}
|
|
& crMaterial .~ Crystal
|