server/common/holy.C

/*
 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
 *
 * Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 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
 * <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
 * linked list -b.t.
 */

#include <global.h>
#include <living.h>
#include <spells.h>

/* add_god_to_list()- called only from init_gods */
static void
add_god_to_list (archetype *god_arch)
{
  if (!god_arch)
    {
      LOG (llevError, "ERROR: Tried to add null god to list!\n");
      return;
    }

  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->object::name;

  // first_god->id MUST be the highest god number for other code to work currently
  if (!first_god)
    god->id = 1;
  else
    {
      god->id = first_god->id + 1;
      god->next = first_god;
    }

  first_god = god;

#ifdef DEBUG_GODS
  LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
#endif
}

godlink *
get_rand_god ()
{
  godlink *god = first_god;
  int i;

  if (god)
    for (i = rndm (god->id) + 1; god; god = god->next)
      if (god->id == i)
        break;

  if (!god)
    LOG (llevError, "get_rand_god(): can't find a random god!\n");

  return god;
}

/* pntr_to_god_obj() - returns a pointer to the object
 * We need to be VERY carefull about using this, as we
 * are returning a pointer to the CLONE object. -b.t.
 */
object *
pntr_to_god_obj (godlink *godlnk)
{
  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
init_gods ()
{
  LOG (llevDebug, "Initialising gods...\n");

  for_all_archetypes (at)
    if (at->type == GOD)
      add_god_to_list (at);

  LOG (llevDebug, "done.\n");
}

Revision:	1.30
Committed:	Sat Nov 17 23:40:00 2018 UTC (5 years, 6 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.29:	+1 -0 lines
Log Message:	copyright update 2018
#	User	Rev	Content
1	root	1.9	/*
2	root	1.14	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	root	1.28	*
4	root	1.30	* Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
5	root	1.29	* Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
6	root	1.24	* Copyright (©) 2002 Mark Wedel & Crossfire Development Team
7			* Copyright (©) 1992 Frank Tore Johansen
8	root	1.28	*
9	root	1.18	* Deliantra is free software: you can redistribute it and/or modify it under
10			* the terms of the Affero GNU General Public License as published by the
11			* Free Software Foundation, either version 3 of the License, or (at your
12			* option) any later version.
13	root	1.28	*
14	root	1.13	* This program is distributed in the hope that it will be useful,
15			* but WITHOUT ANY WARRANTY; without even the implied warranty of
16			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17			* GNU General Public License for more details.
18	root	1.28	*
19	root	1.18	* You should have received a copy of the Affero GNU General Public License
20			* and the GNU General Public License along with this program. If not, see
21			* <http://www.gnu.org/licenses/>.
22	root	1.28	*
23	root	1.14	* The authors can be reached via e-mail to <support@deliantra.net>
24	root	1.9	*/
25	root	1.5
26	elmex	1.1	/* Started file Sept 1996 - initialization of gods in form of a
27			* linked list -b.t.
28	root	1.5	*/
29	elmex	1.1
30			#include <global.h>
31			#include <living.h>
32			#include <spells.h>
33
34			/* add_god_to_list()- called only from init_gods */
35	root	1.20	static void
36	root	1.5	add_god_to_list (archetype *god_arch)
37			{
38			if (!god_arch)
39			{
40			LOG (llevError, "ERROR: Tried to add null god to list!\n");
41			return;
42			}
43
44	root	1.12	godlink *god = new godlink;
45
46			// name=NULL; /* how to describe the god to the player */
47			// arch=NULL; /* pointer to the archetype of this god */
48			// id=0; /* id of the god */
49			// pantheon=NULL; /* the group to which the god belongs (not implemented) */
50			// next=NULL; /* next god in this linked list */
51	root	1.5
52	elmex	1.1	god->arch = god_arch;
53	root	1.11	god->name = god_arch->object::name;
54	root	1.12
55	root	1.17	// first_god->id MUST be the highest god number for other code to work currently
56	root	1.5	if (!first_god)
57	elmex	1.1	god->id = 1;
58	root	1.5	else
59			{
60			god->id = first_god->id + 1;
61			god->next = first_god;
62			}
63	root	1.12
64	elmex	1.1	first_god = god;
65	root	1.5
66			#ifdef DEBUG_GODS
67			LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
68	elmex	1.1	#endif
69			}
70
71	root	1.5	godlink *
72	root	1.23	get_rand_god ()
73	root	1.5	{
74			godlink *god = first_god;
75	elmex	1.1	int i;
76	root	1.5
77			if (god)
78	root	1.7	for (i = rndm (god->id) + 1; god; god = god->next)
79	root	1.5	if (god->id == i)
80			break;
81
82			if (!god)
83			LOG (llevError, "get_rand_god(): can't find a random god!\n");
84	root	1.7
85	elmex	1.1	return god;
86			}
87	root	1.5
88	elmex	1.1	/* pntr_to_god_obj() - returns a pointer to the object
89			* We need to be VERY carefull about using this, as we
90			* are returning a pointer to the CLONE object. -b.t.
91			*/
92	root	1.5	object *
93			pntr_to_god_obj (godlink *godlnk)
94			{
95	root	1.11	return godlnk && godlnk->arch
96			? godlnk->arch
97			: 0;
98	elmex	1.1	}
99
100	root	1.19	/* init_gods() - this takes a look at all of the archetypes to find
101			* the objects which correspond to the GODS (type GOD) */
102			void
103	root	1.23	init_gods ()
104	root	1.19	{
105			LOG (llevDebug, "Initialising gods...\n");
106
107			for_all_archetypes (at)
108			if (at->type == GOD)
109			add_god_to_list (at);
110
111			LOG (llevDebug, "done.\n");
112			}
113