Lua: Add god_at() for safe indexing of deity_info

2 files changed, 18 insertions, 0 deletions

diff --git a/src/externs.h b/src/externs.h
index e584b44c..8f55d3d8 100644
--- a/src/externs.h
+++ b/src/externs.h
@@ -2447,3 +2447,4 @@ extern int wisdom_scale(int max);
 extern int find_god(cptr name);
 extern void follow_god(int god, bool_ silent);
 extern bool_ god_enabled(struct deity_type *deity);
+extern deity_type *god_at(byte god_idx);
diff --git a/src/gods.c b/src/gods.c
index 170f56b3..f940e21a 100644
--- a/src/gods.c
+++ b/src/gods.c
@@ -147,6 +147,23 @@ int wisdom_scale(int max)
 }
 
 /*
+ * Get deity info for a given god index.
+ * Returns NULL for the "atheist" god.
+ */
+deity_type *god_at(byte god_idx)
+{
+	assert(god_idx >= 0);
+	assert(god_idx < MAX_GODS);
+
+	if (god_idx == 0)
+	{
+		return NULL;
+	}
+
+	return &deity_info[god_idx];
+}
+
+/*
  * Check if god is enabled for the current module
  */
 bool_ god_enabled(struct deity_type *deity)