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.2 by root, Tue Aug 29 08:01:35 2006 UTC vs.
Revision 1.7 by root, Sat Jan 27 02:19:36 2007 UTC

1 1
2/* Started file Sept 1996 - initialization of gods in form of a 2/* Started file Sept 1996 - initialization of gods in form of a
3 * linked list -b.t. 3 * linked list -b.t.
4 */ 4 */
5 5
6#include <global.h> 6#include <global.h>
7#include <living.h> 7#include <living.h>
8#include <spells.h> 8#include <spells.h>
9 9
10static godlink *init_godslist(void) { 10//TODO: make a constructor
11 godlink *gl = (godlink *) malloc(sizeof(godlink)); 11static godlink *
12 if(gl==NULL) 12init_godslist (void)
13 fatal(OUT_OF_MEMORY); 13{
14 godlink *gl = new godlink;
15
14 gl->name=NULL; /* how to describe the god to the player */ 16 // name=NULL; /* how to describe the god to the player */
15 gl->arch=NULL; /* pointer to the archetype of this god */ 17 // arch=NULL; /* pointer to the archetype of this god */
16 gl->id=0; /* id of the god */ 18 // id=0; /* id of the god */
17 gl->pantheon=NULL; /* the group to which the god belongs (not implemented) */ 19 // pantheon=NULL; /* the group to which the god belongs (not implemented) */
18 gl->next=NULL; /* next god in this linked list */ 20 // next=NULL; /* next god in this linked list */
19 21
20 return gl; 22 return gl;
21} 23}
22 24
23/* init_gods() - this takes a look at all of the archetypes to find 25/* init_gods() - this takes a look at all of the archetypes to find
24 * the objects which correspond to the GODS (type GOD) */ 26 * the objects which correspond to the GODS (type GOD) */
25 27
28void
26void init_gods (void) { 29init_gods (void)
30{
27 archetype *at=NULL; 31 archetype *at = NULL;
28 32
29 LOG(llevDebug, "Initializing gods..."); 33 LOG (llevDebug, "Initialising gods...\n");
30 for(at=first_archetype;at!=NULL;at=at->next) 34 for (at = first_archetype; at != NULL; at = at->next)
31 if(at->clone.type==GOD) add_god_to_list(at); 35 if (at->clone.type == GOD)
32 36 add_god_to_list (at);
37
33 LOG(llevDebug,"done.\n"); 38 LOG (llevDebug, "done.\n");
34} 39}
35 40
36/* add_god_to_list()- called only from init_gods */ 41/* add_god_to_list()- called only from init_gods */
42void
37void add_god_to_list (archetype *god_arch) { 43add_god_to_list (archetype *god_arch)
44{
38 godlink *god; 45 godlink *god;
39 46
40 if(!god_arch) { 47 if (!god_arch)
48 {
41 LOG(llevError,"ERROR: Tried to add null god to list!\n"); 49 LOG (llevError, "ERROR: Tried to add null god to list!\n");
42 return; 50 return;
43 } 51 }
44 52
45 god = init_godslist(); 53 god = init_godslist ();
46 54
47 god->arch = god_arch; 55 god->arch = god_arch;
48 god->name=add_string(god_arch->clone.name); 56 god->name = god_arch->clone.name;
49 if(!first_god) 57 if (!first_god)
50 god->id = 1; 58 god->id = 1;
51 else { 59 else
60 {
52 god->id = first_god->id + 1; 61 god->id = first_god->id + 1;
53 god->next = first_god; 62 god->next = first_god;
54 } 63 }
55 first_god = god; 64 first_god = god;
56 65
57#ifdef DEBUG_GODS 66#ifdef DEBUG_GODS
58 LOG(llevDebug,"Adding god %s (%d) to list\n",god->name,god->id); 67 LOG (llevDebug, "Adding god %s (%d) to list\n", &god->name, god->id);
59#endif 68#endif
60} 69}
61 70
62/* baptize_altar() - (cosmetically) change the name to that of the 71/* baptize_altar() - (cosmetically) change the name to that of the
63 * god in question, then set the title for later use. -b.t. 72 * god in question, then set the title for later use. -b.t.
64 */ 73 */
65 74
75int
66int baptize_altar(object *op) { 76baptize_altar (object *op)
77{
67 char buf[MAX_BUF]; 78 char buf[MAX_BUF];
68 79
69 /* if the title field is pre-set, then that altar is 80 /* if the title field is pre-set, then that altar is
70 * already dedicated. */ 81 * already dedicated. */
71 if(!op->title) { 82 if (!op->title)
83 {
72 godlink *god=get_rand_god(); 84 godlink *god = get_rand_god ();
85
73 if(!god||!god->name) { 86 if (!god || !god->name)
87 {
74 LOG(llevError,"baptise_altar(): bizarre nameless god!\n"); 88 LOG (llevError, "baptise_altar(): bizarre nameless god!\n");
75 return 0; 89 return 0;
76 } 90 }
77 /* if the object name hasnt' been changed, we tack on the gods name */ 91 /* if the object name hasnt' been changed, we tack on the gods name */
78 if(!strcmp(op->name,op->arch->clone.name)) { 92 if (!strcmp (op->name, op->arch->clone.name))
79 if(op->name!=NULL) free_string(op->name); 93 {
80 sprintf(buf,"%s of %s",op->name,god->name); 94 sprintf (buf, "%s of %s", &op->name, &god->name);
81 op->name = add_string(buf); 95 op->name = buf;
82 } 96 }
83 op->title=add_string(god->name); 97 op->title = god->name;
84 return 1; 98 return 1;
85 } 99 }
86 return 0; 100 return 0;
87} 101}
88 102
89godlink * get_rand_god ( void ) { 103godlink *
104get_rand_god (void)
105{
90 godlink *god=first_god; 106 godlink *god = first_god;
91 int i; 107 int i;
92 108
93 if(god) 109 if (god)
94 for(i=RANDOM()%(god->id)+1;god;god=god->next) 110 for (i = rndm (god->id) + 1; god; god = god->next)
95 if(god->id==i) break; 111 if (god->id == i)
96 112 break;
113
114 if (!god)
97 if(!god) LOG(llevError,"get_rand_god(): can't find a random god!\n"); 115 LOG (llevError, "get_rand_god(): can't find a random god!\n");
116
98 return god; 117 return god;
99} 118}
100 119
101/* pntr_to_god_obj() - returns a pointer to the object 120/* pntr_to_god_obj() - returns a pointer to the object
102 * We need to be VERY carefull about using this, as we 121 * We need to be VERY carefull about using this, as we
103 * are returning a pointer to the CLONE object. -b.t. 122 * are returning a pointer to the CLONE object. -b.t.
104 */ 123 */
124object *
105object *pntr_to_god_obj(godlink *godlnk) { 125pntr_to_god_obj (godlink *godlnk)
126{
106 object *god=NULL; 127 object *god = NULL;
107 128
108 if(godlnk && godlnk->arch) 129 if (godlnk && godlnk->arch)
109 god=&godlnk->arch->clone; 130 god = &godlnk->arch->clone;
110 return god; 131 return god;
111} 132}
112 133
134void
113void free_all_god(void) { 135free_all_god (void)
136{
114 godlink *god, *godnext; 137 godlink *god, *godnext;
115 138
116 LOG(llevDebug,"Freeing god information\n"); 139 LOG (llevDebug, "Freeing god information\n");
117 for (god=first_god; god; god=godnext) { 140 for (god = first_god; god; god = godnext)
141 {
118 godnext=god->next; 142 godnext = god->next;
119 if (god->name) free_string(god->name); 143 delete god;
120 free(god);
121 } 144 }
122} 145}
123
124
125void dump_gods(void) {
126 godlink *glist;
127
128 fprintf(stderr,"\n");
129 for(glist=first_god;glist;glist=glist->next) {
130 object *god=pntr_to_god_obj(glist);
131 char tmpbuf[HUGE_BUF];
132 int tmpvar,gifts=0;
133
134 fprintf(stderr,"GOD: %s\n",god->name);
135 fprintf(stderr," avatar stats:\n");
136 fprintf(stderr," S:%d C:%d D:%d I:%d W:%d P:%d\n",
137 god->stats.Str,god->stats.Con,god->stats.Dex,
138 god->stats.Int,god->stats.Wis,god->stats.Pow);
139 fprintf(stderr," lvl:%d speed:%4.2f\n",
140 god->level,god->speed);
141 fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n",
142 god->stats.wc,god->stats.ac,god->stats.hp,god->stats.dam);
143 fprintf(stderr," enemy: %s\n",god->title?god->title:"NONE");
144 if(god->other_arch) {
145 object *serv = &god->other_arch->clone;
146 fprintf(stderr," servant stats: (%s)\n",god->other_arch->name);
147 fprintf(stderr," S:%d C:%d D:%d I:%d W:%d P:%d\n",
148 serv->stats.Str,serv->stats.Con,serv->stats.Dex,
149 serv->stats.Int,serv->stats.Wis,serv->stats.Pow);
150 fprintf(stderr," lvl:%d speed:%4.2f\n",
151 serv->level,serv->speed);
152 fprintf(stderr," wc:%d ac:%d hp:%d dam:%d \n",
153 serv->stats.wc,serv->stats.ac,serv->stats.hp,serv->stats.dam);
154 } else
155 fprintf(stderr," servant: NONE\n");
156 fprintf(stderr," aligned_race(s): %s\n",god->race);
157 fprintf(stderr," enemy_race(s): %s\n",(god->slaying?god->slaying:"none"));
158 fprintf(stderr,"%s", describe_resistance(god, 1));
159 sprintf(tmpbuf," attacktype:");
160 if((tmpvar=god->attacktype)) {
161 strcat(tmpbuf,"\n ");
162 DESCRIBE_ABILITY(tmpbuf, tmpvar, "Attacks");
163 }
164 strcat(tmpbuf,"\n aura:");
165
166 strcat(tmpbuf,"\n paths:");
167 if((tmpvar=god->path_attuned)) {
168 strcat(tmpbuf,"\n ");
169 DESCRIBE_PATH(tmpbuf, tmpvar, "Attuned");
170 }
171 if((tmpvar=god->path_repelled)) {
172 strcat(tmpbuf,"\n ");
173 DESCRIBE_PATH(tmpbuf, tmpvar, "Repelled");
174 }
175 if((tmpvar=god->path_denied)) {
176 strcat(tmpbuf,"\n ");
177 DESCRIBE_PATH(tmpbuf, tmpvar, "Denied");
178 }
179 fprintf(stderr,"%s\n",tmpbuf);
180 fprintf(stderr," Desc: %s",god->msg?god->msg:"---\n");
181 fprintf(stderr," Priest gifts/limitations: ");
182 if(!QUERY_FLAG(god,FLAG_USE_WEAPON)) {gifts=1; fprintf(stderr,"\n weapon use is forbidden");}
183 if(!QUERY_FLAG(god,FLAG_USE_ARMOUR)) {gifts=1; fprintf(stderr,"\n no armour may be worn");}
184 if(QUERY_FLAG(god,FLAG_UNDEAD)) {gifts=1; fprintf(stderr,"\n is undead");}
185 if(QUERY_FLAG(god,FLAG_SEE_IN_DARK)) {gifts=1; fprintf(stderr,"\n has infravision ");}
186 if(QUERY_FLAG(god,FLAG_XRAYS)) {gifts=1; fprintf(stderr,"\n has X-ray vision");}
187 if(QUERY_FLAG(god,FLAG_REFL_MISSILE)) {gifts=1; fprintf(stderr,"\n reflect missiles");}
188 if(QUERY_FLAG(god,FLAG_REFL_SPELL)) {gifts=1; fprintf(stderr,"\n reflect spells");}
189 if(QUERY_FLAG(god,FLAG_STEALTH)) {gifts=1; fprintf(stderr,"\n is stealthy");}
190 if(QUERY_FLAG(god,FLAG_MAKE_INVIS)) {gifts=1; fprintf(stderr,"\n is (permanently) invisible");}
191 if(QUERY_FLAG(god,FLAG_BLIND)) {gifts=1; fprintf(stderr,"\n is blind");}
192 if(god->last_heal) {gifts=1; fprintf(stderr,"\n hp regenerate at %d",god->last_heal);}
193 if(god->last_sp) {gifts=1; fprintf(stderr,"\n sp regenerate at %d",god->last_sp);}
194 if(god->last_eat) {gifts=1; fprintf(stderr,"\n digestion is %s (%d)",
195 god->last_eat<0?"slowed":"faster",god->last_eat);}
196 if(god->last_grace) {gifts=1; fprintf(stderr,"\n grace regenerates at %d",god->last_grace);}
197 if(god->stats.luck) {gifts=1; fprintf(stderr,"\n luck is %d",god->stats.luck);}
198 if(!gifts) fprintf(stderr,"NONE");
199 fprintf(stderr,"\n\n");
200 }
201}
202

Diff Legend

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