Tweak block sounds

2021-11-18 03:50:54 +00:00
parent 94552ff658
commit 147d6098ab
12 changed files with 114 additions and 89 deletions
@@ -20,11 +20,11 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutProp Prop
    | PutFlIt Item
    | PutPressPlate PressPlate
-    | PutBlock [Int] Color [Point2]
+    | PutBlock BlockMaterial [Int] Color [Point2]
    | PutCoordinate Point2
    | PutMod Modification
    | PutTrigger (World -> Bool)
-    | PutLineBlock Wall Float Float Point2 Point2
+    | PutLineBlock Wall BlockMaterial Float Float Point2 Point2
    | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
    | PutSlideDoor Bool Color (World -> Bool) Point2 Point2 Float
    | PutDoor Color (World -> Bool) [(Point2,Point2)]