1 files changed, 13 insertions, 0 deletions
diff --git a/src/lua_bind.c b/src/lua_bind.c
index 765b8072..424d1f74 100644
--- a/src/lua_bind.c
+++ b/src/lua_bind.c
@@ -586,6 +586,19 @@ void lua_display_list(int y, int x, int h, int w, cptr title, list_type* list, i
 }
 
 /*
+ * Corruptions
+ */
+bool_ player_has_corruption(int corruption_idx)
+{
+	if (corruption_idx < 0)
+	{
+		return FALSE;
+	}
+
+	return (p_ptr->corruptions[corruption_idx]);
+}
+
+/*
  * Gods
  */
 s16b add_new_gods(char *name)