Tweak block sounds

2021-11-18 03:50:54 +00:00
parent 94552ff658
commit 147d6098ab
12 changed files with 114 additions and 89 deletions
@@ -1,4 +1,5 @@
 module Dodge.Room.Room where
+import Dodge.Data
 import Dodge.Default.Room
 import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Weapon.Launcher
@@ -146,7 +147,7 @@ miniRoom3 = do
        w <- state $ randomR (300,400)
        h <- state $ randomR (300,400)
        let cp = V2 0 (h/2+40)
-        let b = PutBlock [5,20,20] (greyN 0.5) $ map toV2 [(-10,-60) 
+        let b = PutBlock StoneBlock [5,20,20] (greyN 0.5) $ map toV2 [(-10,-60) 
                                               ,( 10,-60) 
                                               ,( 10,-80) 
                                               ,(-10,-80)