module Dodge.Default.Block where

import Dodge.Block.Debris
import Dodge.Data.Block
import LensHelp

defaultBlock :: Block
defaultBlock =
    Block
        { _blID = 0
        , _blWallIDs = mempty
        , _blHP = 1000
        , _blShadows = []
        , _blFootprint = []
        , _blPos = 0
        , _blDir = 0
        , _blDraw = const mempty
        , _blDeath = makeBlockDebris
        , _blObstructs =
            []
                <<<<<<< HEAD
                =======
        , _blPaths =
            []
                >>>>>>> efficientRuntime
        }

defaultDirtBlock :: Block
defaultDirtBlock = defaultBlock & blHP .~ 50