30 lines
639 B
Plaintext
30 lines
639 B
Plaintext
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
|