--{-# 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 = BarrelCrit PlainBarrel
--        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
        }

explosiveBarrel :: Creature
explosiveBarrel =
    defaultInanimate
        { _crHP = 400
        , _crType = BarrelCrit (ExplosiveBarrel [])
--        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
        }
--        & crMaterial .~ Crystal