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.3 by root, Thu Aug 31 17:54:14 2006 UTC vs.
Revision 1.15 by root, Sun Apr 20 00:44:12 2008 UTC

1 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 *
4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen
7 *
8 * Deliantra 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 <support@deliantra.net>
22 */
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
10static godlink *init_godslist(void) {
11 godlink *gl = (godlink *) malloc(sizeof(godlink));
12 if(gl==NULL)
13 fatal(OUT_OF_MEMORY);
14 gl->name=NULL; /* how to describe the god to the player */
15 gl->arch=NULL; /* pointer to the archetype of this god */
16 gl->id=0; /* id of the god */
17 gl->pantheon=NULL; /* the group to which the god belongs (not implemented) */
18 gl->next=NULL; /* next god in this linked list */
19
20 return gl;
21}
22
23/* 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
24 * the objects which correspond to the GODS (type GOD) */ 33 * the objects which correspond to the GODS (type GOD) */
25 34
35void
26void init_gods (void) { 36init_gods (void)
27 archetype *at=NULL; 37{
28
29 LOG(llevDebug, "Initializing gods..."); 38 LOG (llevDebug, "Initialising gods...\n");
30 for(at=first_archetype;at!=NULL;at=at->next) 39
31 if(at->clone.type==GOD) add_god_to_list(at); 40 for_all_archetypes (at)
32 41 if (at->type == GOD)
42 add_god_to_list (at);
43
33 LOG(llevDebug,"done.\n"); 44 LOG (llevDebug, "done.\n");
34} 45}
35 46
36/* add_god_to_list()- called only from init_gods */ 47/* add_god_to_list()- called only from init_gods */
48void
37void add_god_to_list (archetype *god_arch) { 49add_god_to_list (archetype *god_arch)
38 godlink *god; 50{
39
40 if(!god_arch) { 51 if (!god_arch)
52 {
41 LOG(llevError,"ERROR: Tried to add null god to list!\n"); 53 LOG (llevError, "ERROR: Tried to add null god to list!\n");
42 return; 54 return;
43 } 55 }
44 56
45 god = init_godslist(); 57 godlink *god = new godlink;
46 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
47 god->arch = god_arch; 65 god->arch = god_arch;
48 god->name=add_string(god_arch->clone.name); 66 god->name = god_arch->object::name;
67
49 if(!first_god) 68 if (!first_god)
50 god->id = 1; 69 god->id = 1;
51 else { 70 else
71 {
52 god->id = first_god->id + 1; 72 god->id = first_god->id + 1;
53 god->next = first_god; 73 god->next = first_god;
54 } 74 }
75
55 first_god = god; 76 first_god = god;
56 77
57#ifdef DEBUG_GODS 78#ifdef DEBUG_GODS
58 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);
59#endif 80#endif
60} 81}
61 82
62/* baptize_altar() - (cosmetically) change the name to that of the 83/* baptize_altar() - (cosmetically) change the name to that of the
63 * god in question, then set the title for later use. -b.t. 84 * god in question, then set the title for later use. -b.t.
64 */ 85 */
65 86int
66int baptize_altar(object *op) { 87baptize_altar (object *op)
88{
67 char buf[MAX_BUF]; 89 char buf[MAX_BUF];
68 90
69 /* if the title field is pre-set, then that altar is 91 /* if the title field is pre-set, then that altar is
70 * already dedicated. */ 92 * already dedicated. */
71 if(!op->title) { 93 if (!op->title)
94 {
72 godlink *god=get_rand_god(); 95 godlink *god = get_rand_god ();
96
73 if(!god||!god->name) { 97 if (!god || !god->name)
98 {
74 LOG(llevError,"baptise_altar(): bizarre nameless god!\n"); 99 LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
75 return 0; 100 return 0;
76 } 101 }
77 /* if the object name hasnt' been changed, we tack on the gods name */ 102 /* if the object name hasnt' been changed, we tack on the gods name */
78 if(!strcmp(op->name,op->arch->clone.name)) { 103 if (!strcmp (op->name, op->arch->object::name))
79 if(op->name!=NULL) free_string(op->name); 104 {
80 sprintf(buf,"%s of %s",op->name,god->name); 105 sprintf (buf, "%s of %s", &op->name, &god->name);
81 op->name = add_string(buf); 106 op->name = buf;
82 } 107 }
83 op->title=add_string(god->name); 108 op->title = god->name;
84 return 1; 109 return 1;
85 } 110 }
86 return 0; 111 return 0;
87} 112}
88 113
89godlink * get_rand_god ( void ) { 114godlink *
115get_rand_god (void)
116{
90 godlink *god=first_god; 117 godlink *god = first_god;
91 int i; 118 int i;
92 119
93 if(god) 120 if (god)
94 for(i=RANDOM()%(god->id)+1;god;god=god->next) 121 for (i = rndm (god->id) + 1; god; god = god->next)
95 if(god->id==i) break; 122 if (god->id == i)
96 123 break;
124
125 if (!god)
97 if(!god) LOG(llevError,"get_rand_god(): can't find a random god!\n"); 126 LOG (llevError, "get_rand_god(): can't find a random god!\n");
127
98 return god; 128 return god;
99} 129}
100 130
101/* pntr_to_god_obj() - returns a pointer to the object 131/* pntr_to_god_obj() - returns a pointer to the object
102 * We need to be VERY carefull about using this, as we 132 * We need to be VERY carefull about using this, as we
103 * are returning a pointer to the CLONE object. -b.t. 133 * are returning a pointer to the CLONE object. -b.t.
104 */ 134 */
135object *
105object *pntr_to_god_obj(godlink *godlnk) { 136pntr_to_god_obj (godlink *godlnk)
106 object *god=NULL; 137{
107
108 if(godlnk && godlnk->arch) 138 return godlnk && godlnk->arch
109 god=&godlnk->arch->clone; 139 ? godlnk->arch
110 return god; 140 : 0;
111} 141}
112 142
143void
113void free_all_god(void) { 144free_all_god (void)
145{
114 godlink *god, *godnext; 146 godlink *god, *godnext;
115 147
116 LOG(llevDebug,"Freeing god information\n"); 148 LOG (llevDebug, "Freeing god information\n");
117 for (god=first_god; god; god=godnext) { 149 for (god = first_god; god; god = godnext)
150 {
118 godnext=god->next; 151 godnext = god->next;
119 if (god->name) free_string(god->name); 152 delete god;
120 free(god);
121 } 153 }
122} 154}
123
124

Diff Legend

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