Tweak block sounds

2021-11-18 03:50:54 +00:00
parent 94552ff658
commit 147d6098ab
12 changed files with 114 additions and 89 deletions
@@ -574,7 +574,9 @@ data Block = Block
    , _blWallIDs :: IS.IntSet
    , _blHPs     :: [Int]
    , _blShadows :: [Int]
+    , _blMaterial :: BlockMaterial
    }
+data BlockMaterial = WoodBlock | DirtBlock | StoneBlock | GlassBlock | MetalBlock
 data Machine = Machine
    { _mcID      :: Int
    , _mcWallIDs :: IS.IntSet