--- deliantra/server/common/holy.C	2007/05/17 21:32:08	1.9
+++ deliantra/server/common/holy.C	2009/11/06 13:03:34	1.21
@@ -1,25 +1,25 @@
 /*
- * CrossFire, A Multiplayer game
- *
- * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
- * Copyright (C) Mark Wedel & Crossfire Development Team
- * Copyright (C) Frank Tore Johansen
- *
- * This program 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 2 of the License, or
- * (at your option) any later version.
- *
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
+ * 
+ * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
+ * 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 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
+ * 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, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * The authors can be reached via e-mail at <crossfire@schmorp.de>
+ * 
+ * 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>
  */
 
 /* Started file Sept 1996 - initialization of gods in form of a
@@ -30,52 +30,28 @@
 #include <living.h>
 #include <spells.h>
 
-//TODO: make a constructor
-static godlink *
-init_godslist (void)
-{
-  godlink *gl = new godlink;
-
-  // name=NULL;        /* how to describe the god to the player */
-  // arch=NULL;       /* pointer to the archetype of this god */
-  // id=0;             /* id of the god */
-  // pantheon=NULL;    /* the group to which the god belongs (not implemented) */
-  // next=NULL;        /* next god in this linked list */
-
-  return gl;
-}
-
-/* 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 (archetype *at = first_archetype; at; at = at->next)
-    if (at->clone.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)
 {
-  godlink *god;
-
   if (!god_arch)
     {
       LOG (llevError, "ERROR: Tried to add null god to list!\n");
       return;
     }
 
-  god = init_godslist ();
+  godlink *god = new godlink;
+
+  // name=NULL;        /* how to describe the god to the player */
+  // arch=NULL;        /* pointer to the archetype of this god */
+  // id=0;             /* id of the god */
+  // pantheon=NULL;    /* the group to which the god belongs (not implemented) */
+  // next=NULL;        /* next god in this linked list */
 
   god->arch = god_arch;
-  god->name = god_arch->clone.name;
+  god->name = god_arch->object::name;
+
+  // first_god->id MUST be the highest god number for other code to work currently
   if (!first_god)
     god->id = 1;
   else
@@ -83,6 +59,7 @@
       god->id = first_god->id + 1;
       god->next = first_god;
     }
+
   first_god = god;
 
 #ifdef DEBUG_GODS
@@ -93,8 +70,7 @@
 /* baptize_altar() - (cosmetically) change the name to that of the
  * god in question, then set the title for later use. -b.t.
  */
-
-int
+static int
 baptize_altar (object *op)
 {
   char buf[MAX_BUF];
@@ -111,7 +87,7 @@
           return 0;
         }
       /* if the object name hasnt' been changed, we tack on the gods name */
-      if (!strcmp (op->name, op->arch->clone.name))
+      if (op->name == op->arch->object::name)
         {
           sprintf (buf, "%s of %s", &op->name, &god->name);
           op->name = buf;
@@ -146,14 +122,12 @@
 object *
 pntr_to_god_obj (godlink *godlnk)
 {
-  object *god = NULL;
-
-  if (godlnk && godlnk->arch)
-    god = &godlnk->arch->clone;
-  return god;
+  return godlnk && godlnk->arch
+    ? godlnk->arch
+    : 0;
 }
 
-void
+static void
 free_all_god (void)
 {
   godlink *god, *godnext;
@@ -165,3 +139,18 @@
       delete god;
     }
 }
+
+/* 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");
+}
+