This commit is contained in:
2025-10-16 23:04:17 +01:00
parent 0f43e1ad8f
commit 0481f6e6f2
6 changed files with 145 additions and 292 deletions
-29
View File
@@ -1,29 +0,0 @@
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