ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/holy.C
(Generate patch)

Comparing deliantra/server/common/holy.C (file contents):
Revision 1.5 by root, Sun Sep 10 16:00:23 2006 UTC vs.
Revision 1.13 by root, Sun Jul 1 05:00:17 2007 UTC

1/*
2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3 *
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 * 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 *
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, see <http://www.gnu.org/licenses/>.
20 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de>
22 */
1 23
2/* Started file Sept 1996 - initialization of gods in form of a 24/* Started file Sept 1996 - initialization of gods in form of a
3 * linked list -b.t. 25 * linked list -b.t.
4 */ 26 */
5 27
6#include <global.h> 28#include <global.h>
7#include <living.h> 29#include <living.h>
8#include <spells.h> 30#include <spells.h>
9 31
10//TODO: make a constructor
11static godlink *
12init_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
22 return gl;
23}
24
25/* init_gods() - this takes a look at all of the archetypes to find 32/* init_gods() - this takes a look at all of the archetypes to find
26 * the objects which correspond to the GODS (type GOD) */ 33 * the objects which correspond to the GODS (type GOD) */
27 34
28void 35void
29init_gods (void) 36init_gods (void)
30{ 37{
31 archetype *at = NULL; 38 LOG (llevDebug, "Initialising gods...\n");
32 39
33 LOG (llevDebug, "Initializing gods..."); 40 for_all_archetypes (at)
34 for (at = first_archetype; at != NULL; at = at->next)
35 if (at->clone.type == GOD) 41 if (at->type == GOD)
36 add_god_to_list (at); 42 add_god_to_list (at);
37 43
38 LOG (llevDebug, "done.\n"); 44 LOG (llevDebug, "done.\n");
39} 45}
40 46
41/* add_god_to_list()- called only from init_gods */ 47/* add_god_to_list()- called only from init_gods */
42void 48void
43add_god_to_list (archetype *god_arch) 49add_god_to_list (archetype *god_arch)
44{ 50{
45 godlink *god;
46
47 if (!god_arch) 51 if (!god_arch)
48 { 52 {
49 LOG (llevError, "ERROR: Tried to add null god to list!\n"); 53 LOG (llevError, "ERROR: Tried to add null god to list!\n");
50 return; 54 return;
51 } 55 }
52 56
53 god = init_godslist (); 57 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 */
54 64
55 god->arch = god_arch; 65 god->arch = god_arch;
56 god->name = god_arch->clone.name; 66 god->name = god_arch->object::name;
67
57 if (!first_god) 68 if (!first_god)
58 god->id = 1; 69 god->id = 1;
59 else 70 else
60 { 71 {
61 god->id = first_god->id + 1; 72 god->id = first_god->id + 1;
62 god->next = first_god; 73 god->next = first_god;
63 } 74 }
75
64 first_god = god; 76 first_god = god;
65 77
66#ifdef DEBUG_GODS 78#ifdef DEBUG_GODS
67 LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id); 79 LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
68#endif 80#endif
… …
87 { 99 {
88 LOG (llevError, "baptise_altar(): bizarre nameless god!\n"); 100 LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
89 return 0; 101 return 0;
90 } 102 }
91 /* if the object name hasnt' been changed, we tack on the gods name */ 103 /* if the object name hasnt' been changed, we tack on the gods name */
92 if (!strcmp (op->name, op->arch->clone.name)) 104 if (!strcmp (op->name, op->arch->object::name))
93 { 105 {
94 sprintf (buf, "%s of %s", &op->name, &god->name); 106 sprintf (buf, "%s of %s", &op->name, &god->name);
95 op->name = buf; 107 op->name = buf;
96 } 108 }
97 op->title = god->name; 109 op->title = god->name;
… …
105{ 117{
106 godlink *god = first_god; 118 godlink *god = first_god;
107 int i; 119 int i;
108 120
109 if (god) 121 if (god)
110 for (i = RANDOM () % (god->id) + 1; god; god = god->next) 122 for (i = rndm (god->id) + 1; god; god = god->next)
111 if (god->id == i) 123 if (god->id == i)
112 break; 124 break;
113 125
114 if (!god) 126 if (!god)
115 LOG (llevError, "get_rand_god(): can't find a random god!\n"); 127 LOG (llevError, "get_rand_god(): can't find a random god!\n");
128
116 return god; 129 return god;
117} 130}
118 131
119/* pntr_to_god_obj() - returns a pointer to the object 132/* pntr_to_god_obj() - returns a pointer to the object
120 * We need to be VERY carefull about using this, as we 133 * We need to be VERY carefull about using this, as we
121 * are returning a pointer to the CLONE object. -b.t. 134 * are returning a pointer to the CLONE object. -b.t.
122 */ 135 */
123object * 136object *
124pntr_to_god_obj (godlink *godlnk) 137pntr_to_god_obj (godlink *godlnk)
125{ 138{
126 object *god = NULL;
127
128 if (godlnk && godlnk->arch) 139 return godlnk && godlnk->arch
129 god = &godlnk->arch->clone; 140 ? godlnk->arch
130 return god; 141 : 0;
131} 142}
132 143
133void 144void
134free_all_god (void) 145free_all_god (void)
135{ 146{

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines