module Dodge.Default.Block where
import Dodge.Data
import Dodge.Block.Debris
import LensHelp

defaultBlock :: Block
defaultBlock = Block
    { _blID = 0
    , _blWallIDs = mempty
    , _blHP = 1000
    , _blShadows = []
    , _blFootprint = []
    , _blPos       = 0
    , _blDir       = 0
    , _blDraw      = const mempty
    , _blDeath     = makeBlockDebris
    }
defaultDirtBlock :: Block
defaultDirtBlock = defaultBlock & blHP .~ 50