server/common/holy.C

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

/* Started file Sept 1996 - initialization of gods in form of a
 * linked list -b.t.
 */

#include <global.h>
#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
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 ();

  god->arch = god_arch;
  god->name = god_arch->clone.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->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)
{
  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)
{
  object *god = NULL;

  if (godlnk && godlnk->arch)
    god = &godlnk->arch->clone;
  return god;
}

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.9
Committed:	Thu May 17 21:32:08 2007 UTC (17 years ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_1
Changes since 1.8:	+23 -0 lines
Log Message:	- prepare common/ for head_ => head change - add some copyrights for files where they were missing
#	User	Rev	Content
1	root	1.9	/*
2			* CrossFire, A Multiplayer game
3			*
4			* Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
5			* Copyright (C) Mark Wedel & Crossfire Development Team
6			* Copyright (C) Frank Tore Johansen
7			*
8			* This program 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 2 of the License, or
11			* (at your option) any later version.
12			*
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			*
18			* You should have received a copy of the GNU General Public License
19			* along with this program; if not, write to the Free Software
20			* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21			*
22			* The authors can be reached via e-mail at <crossfire@schmorp.de>
23			*/
24	root	1.5
25	elmex	1.1	/* Started file Sept 1996 - initialization of gods in form of a
26			* linked list -b.t.
27	root	1.5	*/
28	elmex	1.1
29			#include <global.h>
30			#include <living.h>
31			#include <spells.h>
32
33	root	1.4	//TODO: make a constructor
34	root	1.5	static godlink *
35			init_godslist (void)
36			{
37			godlink *gl = new godlink;
38
39			// name=NULL; /* how to describe the god to the player */
40			// arch=NULL; /* pointer to the archetype of this god */
41			// id=0; /* id of the god */
42			// pantheon=NULL; /* the group to which the god belongs (not implemented) */
43			// next=NULL; /* next god in this linked list */
44	root	1.4
45	root	1.5	return gl;
46	elmex	1.1	}
47	root	1.5
48	elmex	1.1	/* init_gods() - this takes a look at all of the archetypes to find
49			* the objects which correspond to the GODS (type GOD) */
50	root	1.5
51			void
52			init_gods (void)
53			{
54	root	1.8	LOG (llevDebug, "Initialising gods...\n");
55	root	1.5
56	root	1.8	for (archetype *at = first_archetype; at; at = at->next)
57	root	1.5	if (at->clone.type == GOD)
58			add_god_to_list (at);
59
60			LOG (llevDebug, "done.\n");
61	elmex	1.1	}
62	root	1.5
63	elmex	1.1	/* add_god_to_list()- called only from init_gods */
64	root	1.5	void
65			add_god_to_list (archetype *god_arch)
66			{
67	elmex	1.1	godlink *god;
68	root	1.5
69			if (!god_arch)
70			{
71			LOG (llevError, "ERROR: Tried to add null god to list!\n");
72			return;
73			}
74
75			god = init_godslist ();
76
77	elmex	1.1	god->arch = god_arch;
78	root	1.4	god->name = god_arch->clone.name;
79	root	1.5	if (!first_god)
80	elmex	1.1	god->id = 1;
81	root	1.5	else
82			{
83			god->id = first_god->id + 1;
84			god->next = first_god;
85			}
86	elmex	1.1	first_god = god;
87	root	1.5
88			#ifdef DEBUG_GODS
89			LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
90	elmex	1.1	#endif
91			}
92
93			/* baptize_altar() - (cosmetically) change the name to that of the
94			* god in question, then set the title for later use. -b.t.
95			*/
96	root	1.5
97			int
98			baptize_altar (object *op)
99			{
100			char buf[MAX_BUF];
101
102			/* if the title field is pre-set, then that altar is
103			* already dedicated. */
104			if (!op->title)
105			{
106			godlink *god = get_rand_god ();
107
108			if (!god \|\| !god->name)
109			{
110			LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
111			return 0;
112			}
113			/* if the object name hasnt' been changed, we tack on the gods name */
114			if (!strcmp (op->name, op->arch->clone.name))
115			{
116			sprintf (buf, "%s of %s", &op->name, &god->name);
117			op->name = buf;
118			}
119			op->title = god->name;
120			return 1;
121			}
122			return 0;
123			}
124
125			godlink *
126			get_rand_god (void)
127			{
128			godlink *god = first_god;
129	elmex	1.1	int i;
130	root	1.5
131			if (god)
132	root	1.7	for (i = rndm (god->id) + 1; god; god = god->next)
133	root	1.5	if (god->id == i)
134			break;
135
136			if (!god)
137			LOG (llevError, "get_rand_god(): can't find a random god!\n");
138	root	1.7
139	elmex	1.1	return god;
140			}
141	root	1.5
142	elmex	1.1	/* pntr_to_god_obj() - returns a pointer to the object
143			* We need to be VERY carefull about using this, as we
144			* are returning a pointer to the CLONE object. -b.t.
145			*/
146	root	1.5	object *
147			pntr_to_god_obj (godlink *godlnk)
148			{
149			object *god = NULL;
150
151			if (godlnk && godlnk->arch)
152			god = &godlnk->arch->clone;
153	elmex	1.1	return god;
154			}
155
156	root	1.5	void
157			free_all_god (void)
158			{
159			godlink god, godnext;
160
161			LOG (llevDebug, "Freeing god information\n");
162			for (god = first_god; god; god = godnext)
163			{
164			godnext = god->next;
165			delete god;
166	elmex	1.1	}
167			}