server/common/holy.C

/*
 * 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 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/>.
 * 
 * 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>

/* 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
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;

  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
}

/* 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->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)
{
  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;
}

void
free_all_god (void)
{
  godlink *god, *godnext;

  LOG (llevDebug, "Freeing god information\n");
  for (god = first_god; god; god = godnext)
    {
      godnext = god->next;
      delete god;
    }
}
Revision:	1.16
Committed:	Tue May 6 16:55:25 2008 UTC (16 years ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_6, rel-2_7, rel-2_72, rel-2_73, rel-2_71, rel-2_74, rel-2_54, rel-2_55, rel-2_56, rel-2_61
Changes since 1.15:	+1 -1 lines
Log Message:	update copyright
#	User	Rev	Content
1	root	1.9	/*
2	root	1.14	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	root	1.10	*
4	root	1.16	* Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	root	1.10	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6			* Copyright (©) 1992,2007 Frank Tore Johansen
7			*
8	root	1.14	* Deliantra is free software: you can redistribute it and/or modify
9	root	1.13	* it under the terms of the GNU General Public License as published by
10			* the Free Software Foundation, either version 3 of the License, or
11			* (at your option) any later version.
12	root	1.10	*
13	root	1.13	* This program is distributed in the hope that it will be useful,
14			* but WITHOUT ANY WARRANTY; without even the implied warranty of
15			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			* GNU General Public License for more details.
17	root	1.10	*
18	root	1.13	* You should have received a copy of the GNU General Public License
19			* along with this program. If not, see <http://www.gnu.org/licenses/>.
20	root	1.10	*
21	root	1.14	* The authors can be reached via e-mail to <support@deliantra.net>
22	root	1.9	*/
23	root	1.5
24	elmex	1.1	/* Started file Sept 1996 - initialization of gods in form of a
25			* linked list -b.t.
26	root	1.5	*/
27	elmex	1.1
28			#include <global.h>
29			#include <living.h>
30			#include <spells.h>
31
32			/* init_gods() - this takes a look at all of the archetypes to find
33			* the objects which correspond to the GODS (type GOD) */
34	root	1.5
35			void
36			init_gods (void)
37			{
38	root	1.8	LOG (llevDebug, "Initialising gods...\n");
39	root	1.5
40	root	1.11	for_all_archetypes (at)
41			if (at->type == GOD)
42	root	1.5	add_god_to_list (at);
43
44			LOG (llevDebug, "done.\n");
45	elmex	1.1	}
46	root	1.5
47	elmex	1.1	/* add_god_to_list()- called only from init_gods */
48	root	1.5	void
49			add_god_to_list (archetype *god_arch)
50			{
51			if (!god_arch)
52			{
53			LOG (llevError, "ERROR: Tried to add null god to list!\n");
54			return;
55			}
56
57	root	1.12	godlink *god = new godlink;
58
59			// name=NULL; /* how to describe the god to the player */
60			// arch=NULL; /* pointer to the archetype of this god */
61			// id=0; /* id of the god */
62			// pantheon=NULL; /* the group to which the god belongs (not implemented) */
63			// next=NULL; /* next god in this linked list */
64	root	1.5
65	elmex	1.1	god->arch = god_arch;
66	root	1.11	god->name = god_arch->object::name;
67	root	1.12
68	root	1.5	if (!first_god)
69	elmex	1.1	god->id = 1;
70	root	1.5	else
71			{
72			god->id = first_god->id + 1;
73			god->next = first_god;
74			}
75	root	1.12
76	elmex	1.1	first_god = god;
77	root	1.5
78			#ifdef DEBUG_GODS
79			LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
80	elmex	1.1	#endif
81			}
82
83			/* baptize_altar() - (cosmetically) change the name to that of the
84			* god in question, then set the title for later use. -b.t.
85			*/
86	root	1.5	int
87			baptize_altar (object *op)
88			{
89			char buf[MAX_BUF];
90
91			/* if the title field is pre-set, then that altar is
92			* already dedicated. */
93			if (!op->title)
94			{
95			godlink *god = get_rand_god ();
96
97			if (!god \|\| !god->name)
98			{
99			LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
100			return 0;
101			}
102			/* if the object name hasnt' been changed, we tack on the gods name */
103	root	1.11	if (!strcmp (op->name, op->arch->object::name))
104	root	1.5	{
105			sprintf (buf, "%s of %s", &op->name, &god->name);
106			op->name = buf;
107			}
108			op->title = god->name;
109			return 1;
110			}
111			return 0;
112			}
113
114			godlink *
115			get_rand_god (void)
116			{
117			godlink *god = first_god;
118	elmex	1.1	int i;
119	root	1.5
120			if (god)
121	root	1.7	for (i = rndm (god->id) + 1; god; god = god->next)
122	root	1.5	if (god->id == i)
123			break;
124
125			if (!god)
126			LOG (llevError, "get_rand_god(): can't find a random god!\n");
127	root	1.7
128	elmex	1.1	return god;
129			}
130	root	1.5
131	elmex	1.1	/* pntr_to_god_obj() - returns a pointer to the object
132			* We need to be VERY carefull about using this, as we
133			* are returning a pointer to the CLONE object. -b.t.
134			*/
135	root	1.5	object *
136			pntr_to_god_obj (godlink *godlnk)
137			{
138	root	1.11	return godlnk && godlnk->arch
139			? godlnk->arch
140			: 0;
141	elmex	1.1	}
142
143	root	1.5	void
144			free_all_god (void)
145			{
146			godlink god, godnext;
147
148			LOG (llevDebug, "Freeing god information\n");
149			for (god = first_god; god; god = godnext)
150			{
151			godnext = god->next;
152			delete god;
153	elmex	1.1	}
154			}