server/common/holy.C


/* 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)
{
  archetype *at = NULL;

  LOG (llevDebug, "Initialising gods...\n");
  for (at = first_archetype; at != NULL; 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.7
Committed:	Sat Jan 27 02:19:36 2007 UTC (17 years, 4 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_0
Changes since 1.6:	+2 -1 lines
Log Message:	- experimentall.y determine minimum random map size (12) - harden random map generator by stresstesting - reduced codesize while increasing readability (RANDOM => rndm) - fixed a likely unimportant bug in random_roll64 - possibly broke lots of code
#	User	Rev	Content
1	root	1.5
2	elmex	1.1	/* Started file Sept 1996 - initialization of gods in form of a
3			* linked list -b.t.
4	root	1.5	*/
5	elmex	1.1
6			#include <global.h>
7			#include <living.h>
8			#include <spells.h>
9
10	root	1.4	//TODO: make a constructor
11	root	1.5	static godlink *
12			init_godslist (void)
13			{
14			godlink *gl = new godlink;
15
16			// name=NULL; /* how to describe the god to the player */
17			// arch=NULL; /* pointer to the archetype of this god */
18			// id=0; /* id of the god */
19			// pantheon=NULL; /* the group to which the god belongs (not implemented) */
20			// next=NULL; /* next god in this linked list */
21	root	1.4
22	root	1.5	return gl;
23	elmex	1.1	}
24	root	1.5
25	elmex	1.1	/* init_gods() - this takes a look at all of the archetypes to find
26			* the objects which correspond to the GODS (type GOD) */
27	root	1.5
28			void
29			init_gods (void)
30			{
31			archetype *at = NULL;
32
33	pippijn	1.6	LOG (llevDebug, "Initialising gods...\n");
34	root	1.5	for (at = first_archetype; at != NULL; at = at->next)
35			if (at->clone.type == GOD)
36			add_god_to_list (at);
37
38			LOG (llevDebug, "done.\n");
39	elmex	1.1	}
40	root	1.5
41	elmex	1.1	/* add_god_to_list()- called only from init_gods */
42	root	1.5	void
43			add_god_to_list (archetype *god_arch)
44			{
45	elmex	1.1	godlink *god;
46	root	1.5
47			if (!god_arch)
48			{
49			LOG (llevError, "ERROR: Tried to add null god to list!\n");
50			return;
51			}
52
53			god = init_godslist ();
54
55	elmex	1.1	god->arch = god_arch;
56	root	1.4	god->name = god_arch->clone.name;
57	root	1.5	if (!first_god)
58	elmex	1.1	god->id = 1;
59	root	1.5	else
60			{
61			god->id = first_god->id + 1;
62			god->next = first_god;
63			}
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			/* baptize_altar() - (cosmetically) change the name to that of the
72			* god in question, then set the title for later use. -b.t.
73			*/
74	root	1.5
75			int
76			baptize_altar (object *op)
77			{
78			char buf[MAX_BUF];
79
80			/* if the title field is pre-set, then that altar is
81			* already dedicated. */
82			if (!op->title)
83			{
84			godlink *god = get_rand_god ();
85
86			if (!god \|\| !god->name)
87			{
88			LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
89			return 0;
90			}
91			/* if the object name hasnt' been changed, we tack on the gods name */
92			if (!strcmp (op->name, op->arch->clone.name))
93			{
94			sprintf (buf, "%s of %s", &op->name, &god->name);
95			op->name = buf;
96			}
97			op->title = god->name;
98			return 1;
99			}
100			return 0;
101			}
102
103			godlink *
104			get_rand_god (void)
105			{
106			godlink *god = first_god;
107	elmex	1.1	int i;
108	root	1.5
109			if (god)
110	root	1.7	for (i = rndm (god->id) + 1; god; god = god->next)
111	root	1.5	if (god->id == i)
112			break;
113
114			if (!god)
115			LOG (llevError, "get_rand_god(): can't find a random god!\n");
116	root	1.7
117	elmex	1.1	return god;
118			}
119	root	1.5
120	elmex	1.1	/* pntr_to_god_obj() - returns a pointer to the object
121			* We need to be VERY carefull about using this, as we
122			* are returning a pointer to the CLONE object. -b.t.
123			*/
124	root	1.5	object *
125			pntr_to_god_obj (godlink *godlnk)
126			{
127			object *god = NULL;
128
129			if (godlnk && godlnk->arch)
130			god = &godlnk->arch->clone;
131	elmex	1.1	return god;
132			}
133
134	root	1.5	void
135			free_all_god (void)
136			{
137			godlink god, godnext;
138
139			LOG (llevDebug, "Freeing god information\n");
140			for (god = first_god; god; god = godnext)
141			{
142			godnext = god->next;
143			delete god;
144	elmex	1.1	}
145			}