--- deliantra/server/common/holy.C 2007/04/16 06:23:39 1.8
+++ deliantra/server/common/holy.C 2010/03/26 01:04:43 1.25
@@ -1,3 +1,26 @@
+/*
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
+ *
+ * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
+ * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 1992 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
+ * GNU General Public License for more details.
+ *
+ * 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
+ * .
+ *
+ * The authors can be reached via e-mail to
+ */
/* Started file Sept 1996 - initialization of gods in form of a
* linked list -b.t.
@@ -7,52 +30,28 @@
#include
#include
-//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
@@ -60,6 +59,7 @@
god->id = first_god->id + 1;
god->next = first_god;
}
+
first_god = god;
#ifdef DEBUG_GODS
@@ -67,40 +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 (!strcmp (op->name, op->arch->clone.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;
@@ -123,22 +91,22 @@
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;
}
+/* 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");
}
+