server/common/holy.C

/*
 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
 * 
 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 Frank Tore Johansen
 * 
 * Crossfire TRT 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 <crossfire@schmorp.de>
 */

/* 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.13
Committed:	Sun Jul 1 05:00:17 2007 UTC (16 years, 10 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_2, rel-2_3
Changes since 1.12:	+11 -12 lines
Log Message:	- upgrade crossfire trt to the GPL version 3 (hopefully correctly). - add a single file covered by the GNU Affero General Public License (which is not yet released, so I used the current draft, which is legally a bit wavy, but its likely better than nothing as it expresses direct intent by the authors, and we can upgrade as soon as it has been released). * this should ensure availability of source code for the server at least and hopefully also archetypes and maps even when modified versions are not being distributed, in accordance of section 13 of the agplv3.
#	User	Rev	Content
1	root	1.9	/*
2	root	1.13	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3	root	1.10	*
4			* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5			* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6			* Copyright (©) 1992,2007 Frank Tore Johansen
7			*
8	root	1.13	* Crossfire TRT is free software: you can redistribute it and/or modify
9			* 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			* The authors can be reached via e-mail to <crossfire@schmorp.de>
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
87			int
88			baptize_altar (object *op)
89			{
90			char buf[MAX_BUF];
91
92			/* if the title field is pre-set, then that altar is
93			* already dedicated. */
94			if (!op->title)
95			{
96			godlink *god = get_rand_god ();
97
98			if (!god \|\| !god->name)
99			{
100			LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
101			return 0;
102			}
103			/* if the object name hasnt' been changed, we tack on the gods name */
104	root	1.11	if (!strcmp (op->name, op->arch->object::name))
105	root	1.5	{
106			sprintf (buf, "%s of %s", &op->name, &god->name);
107			op->name = buf;
108			}
109			op->title = god->name;
110			return 1;
111			}
112			return 0;
113			}
114
115			godlink *
116			get_rand_god (void)
117			{
118			godlink *god = first_god;
119	elmex	1.1	int i;
120	root	1.5
121			if (god)
122	root	1.7	for (i = rndm (god->id) + 1; god; god = god->next)
123	root	1.5	if (god->id == i)
124			break;
125
126			if (!god)
127			LOG (llevError, "get_rand_god(): can't find a random god!\n");
128	root	1.7
129	elmex	1.1	return god;
130			}
131	root	1.5
132	elmex	1.1	/* pntr_to_god_obj() - returns a pointer to the object
133			* We need to be VERY carefull about using this, as we
134			* are returning a pointer to the CLONE object. -b.t.
135			*/
136	root	1.5	object *
137			pntr_to_god_obj (godlink *godlnk)
138			{
139	root	1.11	return godlnk && godlnk->arch
140			? godlnk->arch
141			: 0;
142	elmex	1.1	}
143
144	root	1.5	void
145			free_all_god (void)
146			{
147			godlink god, godnext;
148
149			LOG (llevDebug, "Freeing god information\n");
150			for (god = first_god; god; god = godnext)
151			{
152			godnext = god->next;
153			delete god;
154	elmex	1.1	}
155			}