diff --git a/src/Dodge/Default/Block.hs b/src/Dodge/Default/Block.hs new file mode 100644 index 000000000..b9e9d2f27 --- /dev/null +++ b/src/Dodge/Default/Block.hs @@ -0,0 +1,18 @@ +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 + , _blDraw = const mempty + , _blDeath = makeBlockDebris + } + +defaultDirtBlock = defaultBlock & blHP .~ 50