20 lines
438 B
Haskell
20 lines
438 B
Haskell
module Dodge.Default.Block where
|
|
import Dodge.Data.Block
|
|
import LensHelp
|
|
|
|
defaultBlock :: Block
|
|
defaultBlock = Block
|
|
{ _blID = 0
|
|
, _blWallIDs = mempty
|
|
, _blHP = 1000
|
|
, _blShadows = []
|
|
, _blFootprint = []
|
|
, _blPos = 0
|
|
, _blDir = 0
|
|
, _blDraw = BlockDrawMempty
|
|
, _blHeight = 100
|
|
, _blMaterial = Stone
|
|
}
|
|
defaultDirtBlock :: Block
|
|
defaultDirtBlock = defaultBlock & blHP .~ 50
|