From 60e491cc65a0714b21cd7f71d8eae2b911cd6669 Mon Sep 17 00:00:00 2001
From: Jude Brown <bookofjude@users.sourceforge.net>
Date: Fri, 8 Jan 2010 23:12:01 +1000
Subject: A simple noisy wrapper for Zaba.

---
 crawl-ref/source/l_dgn.cc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'crawl-ref/source/l_dgn.cc')

diff --git a/crawl-ref/source/l_dgn.cc b/crawl-ref/source/l_dgn.cc
index 918c66a452..0f57196add 100644
--- a/crawl-ref/source/l_dgn.cc
+++ b/crawl-ref/source/l_dgn.cc
@@ -17,6 +17,7 @@
 #include "mapmark.h"
 #include "maps.h"
 #include "random.h"
+#include "shout.h"
 #include "spl-util.h"
 #include "state.h"
 #ifdef USE_TILE
@@ -1332,6 +1333,16 @@ static int dgn_place_cloud(lua_State *ls)
     return (0);
 }
 
+// XXX: Doesn't allow for messages or specifying the noise source.
+LUAFN(dgn_noisy)
+{
+    const int loudness = luaL_checkint(ls, 1);
+    COORDS(pos, 2, 3);
+
+    noisy(loudness, pos);
+
+    return (0);
+}
 
 static int _dgn_is_passable(lua_State *ls)
 {
@@ -1784,6 +1795,7 @@ const struct luaL_reg dgn_dlib[] =
 { "random_walk", dgn_random_walk },
 { "apply_area_cloud", dgn_apply_area_cloud },
 { "place_cloud", dgn_place_cloud },
+{ "noisy", dgn_noisy },
 
 { "is_passable", _dgn_is_passable },
 
-- 
cgit v1.2.3-54-g00ecf