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

defaultBlock :: Block
defaultBlock = Block
    { _blID = 0
    , _blWallIDs = mempty
    , _blHP = 1000
    , _blShadows = []
    , _blFootprint = []
    , _blPos       = 0
    , _blDir       = 0
    , _blDraw      = BlockDrawMempty
    , _blHeight     = 100
    , _blMaterial   = Stone
    , _blObstructs = []
    }
defaultDirtBlock :: Block
defaultDirtBlock = defaultBlock & blHP .~ 50