--- deliantra/server/common/holy.C	2008/12/31 17:35:37	1.17
+++ deliantra/server/common/holy.C	2009/11/29 10:55:18	1.23
@@ -5,18 +5,19 @@
  * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
  * Copyright (©) 1992,2007 Frank Tore Johansen
  * 
- * Deliantra is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * Deliantra is free software: you can redistribute it and/or modify it under
+ * the terms of the Affero GNU General Public License as published by the
+ * Free Software Foundation, either version 3 of the License, or (at your
+ * option) any later version.
  * 
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  * GNU General Public License for more details.
  * 
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ * You should have received a copy of the Affero GNU General Public License
+ * and the GNU General Public License along with this program. If not, see
+ * <http://www.gnu.org/licenses/>.
  * 
  * The authors can be reached via e-mail to <support@deliantra.net>
  */
@@ -29,23 +30,8 @@
 #include <living.h>
 #include <spells.h>
 
-/* init_gods() - this takes a look at all of the archetypes to find
- * the objects which correspond to the GODS (type GOD) */
-
-void
-init_gods (void)
-{
-  LOG (llevDebug, "Initialising gods...\n");
-
-  for_all_archetypes (at)
-    if (at->type == GOD)
-      add_god_to_list (at);
-
-  LOG (llevDebug, "done.\n");
-}
-
 /* add_god_to_list()- called only from init_gods */
-void
+static void
 add_god_to_list (archetype *god_arch)
 {
   if (!god_arch)
@@ -81,39 +67,8 @@
 #endif
 }
 
-/* baptize_altar() - (cosmetically) change the name to that of the
- * god in question, then set the title for later use. -b.t.
- */
-int
-baptize_altar (object *op)
-{
-  char buf[MAX_BUF];
-
-  /* if the title field is pre-set, then that altar is
-   * already dedicated. */
-  if (!op->title)
-    {
-      godlink *god = get_rand_god ();
-
-      if (!god || !god->name)
-        {
-          LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
-          return 0;
-        }
-      /* if the object name hasnt' been changed, we tack on the gods name */
-      if (op->name == op->arch->object::name)
-        {
-          sprintf (buf, "%s of %s", &op->name, &god->name);
-          op->name = buf;
-        }
-      op->title = god->name;
-      return 1;
-    }
-  return 0;
-}
-
 godlink *
-get_rand_god (void)
+get_rand_god ()
 {
   godlink *god = first_god;
   int i;
@@ -141,15 +96,17 @@
     : 0;
 }
 
+/* init_gods() - this takes a look at all of the archetypes to find
+ * the objects which correspond to the GODS (type GOD) */
 void
-free_all_god (void)
+init_gods ()
 {
-  godlink *god, *godnext;
+  LOG (llevDebug, "Initialising gods...\n");
 
-  LOG (llevDebug, "Freeing god information\n");
-  for (god = first_god; god; god = godnext)
-    {
-      godnext = god->next;
-      delete god;
-    }
+  for_all_archetypes (at)
+    if (at->type == GOD)
+      add_god_to_list (at);
+
+  LOG (llevDebug, "done.\n");
 }
+