Add basic vocalizations to chase creatures

2021-11-18 01:46:37 +00:00
parent 5949ad2b3d
commit f6d5d5a201
34 changed files with 525 additions and 329 deletions
@@ -42,6 +42,19 @@ corridorN = defaultRoom
                 ,(V2 20 10  ,pi)
                 ]
          pth = doublePair (V2 20 70,V2 20 10)
+corridorWallN :: Room
+corridorWallN = defaultRoom
+    { _rmPolys = [rectNSWE 70 0 0 40
+                 ]
+    , _rmLinks = lnks
+    , _rmPath  = pth
+    , _rmPmnts    = []
+    , _rmBound = [ rectNSWE 50 30 0 40 ]
+    }
+    where lnks = [(V2 20 70  ,0)
+                 ,(V2 20 10  ,pi)
+                 ]
+          pth = doublePair (V2 20 70,V2 20 10)

 tEast :: Room
 tEast = defaultRoom