Lua: Add functions to get GOD_* Lua variables from C code

2 files changed, 36 insertions, 0 deletions

diff --git a/src/externs.h b/src/externs.h
index dd305c07..e232f69d 100644
--- a/src/externs.h
+++ b/src/externs.h
@@ -1787,6 +1787,10 @@ extern void    desc_quest(int q_idx, int d, char *desc);
 
 extern s16b    add_new_gods(char *name);
 extern void    desc_god(int g_idx, int d, char *desc);
+extern s16b    get_god_AULE();
+extern s16b    get_god_VARDA();
+extern s16b    get_god_ULMO();
+extern s16b    get_god_MANDOS();
 
 extern bool_    get_com_lua(cptr promtp, int *com);
 
diff --git a/src/lua_bind.c b/src/lua_bind.c
index 82b802f2..00a0e25b 100644
--- a/src/lua_bind.c
+++ b/src/lua_bind.c
@@ -608,6 +608,38 @@ void desc_god(int g_idx, int d, char *desc)
 		strncpy(deity_info[g_idx].desc[d], desc, 79);
 }
 
+static int get_god_theme(cptr name)
+{
+	if (game_module_idx == MODULE_THEME)
+	{
+		return exec_lua(format("return GOD_%s", name));
+	}
+	else
+	{
+		return -1;
+	}
+}
+
+s16b get_god_AULE()
+{
+	return get_god_theme("AULE");
+}
+
+s16b get_god_MANDOS()
+{
+	return get_god_theme("MANDOS");
+}
+
+s16b get_god_VARDA()
+{
+	return get_god_theme("VARDA");
+}
+
+s16b get_god_ULMO()
+{
+	return get_god_theme("ULMO");
+}
+
 /*
  * Returns the direction of the compass that y2, x2 is from y, x
  * the return value will be one of the following: north, south,