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

Comparing deliantra/server/server/gods.C (file contents):
Revision 1.1 by elmex, Sun Aug 13 17:16:04 2006 UTC vs.
Revision 1.3 by root, Tue Aug 29 08:01:37 2006 UTC

1/* 1/*
2 * static char *rcsid_gods_c = 2 * static char *rcsid_gods_c =
3 * "$Id: gods.C,v 1.1 2006/08/13 17:16:04 elmex Exp $"; 3 * "$Id: gods.C,v 1.3 2006/08/29 08:01:37 root Exp $";
4 */ 4 */
5 5
6/* 6/*
7 CrossFire, A Multiplayer game for X-windows 7 CrossFire, A Multiplayer game for X-windows
8 8
… …
48int lookup_god_by_name(const char *name) { 48int lookup_god_by_name(const char *name) {
49 int godnr=-1; 49 int godnr=-1;
50 size_t nmlen = strlen(name); 50 size_t nmlen = strlen(name);
51 51
52 if(name && strcmp(name,"none")) { 52 if(name && strcmp(name,"none")) {
53 godlink *gl; 53 godlink *gl;
54 for(gl=first_god;gl;gl=gl->next) 54 for(gl=first_god;gl;gl=gl->next)
55 if(!strncmp(name,gl->name,MIN(strlen(gl->name),nmlen))) 55 if(!strncmp(name,gl->name,MIN(strlen(gl->name),nmlen)))
56 break; 56 break;
57 if(gl) godnr=gl->id; 57 if(gl) godnr=gl->id;
58 } 58 }
59 return godnr; 59 return godnr;
60} 60}
61 61
62/** 62/**
… …
64 */ 64 */
65object *find_god(const char *name) { 65object *find_god(const char *name) {
66 object *god=NULL; 66 object *god=NULL;
67 67
68 if(name) { 68 if(name) {
69 godlink *gl; 69 godlink *gl;
70 70
71 for(gl=first_god;gl;gl=gl->next) 71 for(gl=first_god;gl;gl=gl->next)
72 if(!strcmp(name,gl->name)) break; 72 if(!strcmp(name,gl->name)) break;
73 if(gl) god=pntr_to_god_obj(gl); 73 if(gl) god=pntr_to_god_obj(gl);
74 } 74 }
75 return god; 75 return god;
76} 76}
77 77
78/** 78/**
… …
89 89
90 /* spells */ 90 /* spells */
91 if ((op->type == SPELL || op->type == SPELL_EFFECT) && 91 if ((op->type == SPELL || op->type == SPELL_EFFECT) &&
92 op->title) 92 op->title)
93 { 93 {
94 if (lookup_god_by_name(op->title)>=0) return op->title; 94 if (lookup_god_by_name(op->title)>=0) return op->title;
95 } 95 }
96 96
97 if(op->type!= PLAYER && QUERY_FLAG(op,FLAG_ALIVE)) { 97 if(op->type!= PLAYER && QUERY_FLAG(op,FLAG_ALIVE)) {
98 98
99 /* find a god based on race */ 99 /* find a god based on race */
100 if(!op->title) { 100 if(!op->title) {
101 if (op->race !=NULL) { 101 if (op->race !=NULL) {
102 godname=get_god_for_race(op->race); 102 godname=get_god_for_race(op->race);
103 if (godname!=NULL) { 103 if (godname!=NULL) {
104 op->title = add_string(godname); 104 op->title = add_string(godname);
105 } 105 }
106 } 106 }
107 } 107 }
108 108
109 /* find a random god */ 109 /* find a random god */
110 if(!op->title) { 110 if(!op->title) {
111 godlink *gl = first_god; 111 godlink *gl = first_god;
112 112
113 godnr = rndm(1, gl->id); 113 godnr = rndm(1, gl->id);
114 while(gl) { 114 while(gl) {
115 if(gl->id == godnr) break; 115 if(gl->id == godnr) break;
116 gl=gl->next; 116 gl=gl->next;
117 } 117 }
118 op->title = add_string(gl->name); 118 op->title = add_string(gl->name);
119 } 119 }
120 120
121 return op->title; 121 return op->title;
122 } 122 }
123 123
124 124
125 /* The god the player worships is in the praying skill (native skill 125 /* The god the player worships is in the praying skill (native skill
126 * not skill tool). Since a player can only have one instance of 126 * not skill tool). Since a player can only have one instance of
127 * that skill, once we find it, we can return, either with the 127 * that skill, once we find it, we can return, either with the
128 * title or "none". 128 * title or "none".
129 */ 129 */
130 if(op->type==PLAYER) { 130 if(op->type==PLAYER) {
131 object *tmp; 131 object *tmp;
132 for (tmp=op->inv; tmp!=NULL; tmp=tmp->below) 132 for (tmp=op->inv; tmp!=NULL; tmp=tmp->below)
133 if (tmp->type == SKILL && tmp->subtype == SK_PRAYING) { 133 if (tmp->type == SKILL && tmp->subtype == SK_PRAYING) {
134 if (tmp->title) return (tmp->title); 134 if (tmp->title) return (tmp->title);
135 else return("none"); 135 else return("none");
136 } 136 }
137 } 137 }
138 return ("none"); 138 return ("none");
139} 139}
140 140
141/** 141/**
… …
166 object *tmp, *next; 166 object *tmp, *next;
167 167
168 if (op && op->type == PLAYER && op->contr) { 168 if (op && op->type == PLAYER && op->contr) {
169 /* search the inventory */ 169 /* search the inventory */
170 for (tmp = op->inv; tmp != NULL; tmp = next) { 170 for (tmp = op->inv; tmp != NULL; tmp = next) {
171 next = tmp->below; /* backup in case we remove tmp */ 171 next = tmp->below; /* backup in case we remove tmp */
172 172
173 if (tmp->type == item->type 173 if (tmp->type == item->type
174 && same_string (tmp->name, item->name) 174 && same_string (tmp->name, item->name)
175 && same_string (tmp->title, item->title) 175 && same_string (tmp->title, item->title)
176 && same_string (tmp->msg, item->msg) 176 && same_string (tmp->msg, item->msg)
177 && same_string (tmp->slaying, item->slaying)) { 177 && same_string (tmp->slaying, item->slaying)) {
178 178
179 /* message */ 179 /* message */
180 if (tmp->nrof > 1) 180 if (tmp->nrof > 1)
181 new_draw_info_format(NDI_UNIQUE,0,op, 181 new_draw_info_format(NDI_UNIQUE,0,op,
182 "The %s crumble to dust!", query_short_name(tmp)); 182 "The %s crumble to dust!", query_short_name(tmp));
183 else 183 else
184 new_draw_info_format(NDI_UNIQUE,0,op, 184 new_draw_info_format(NDI_UNIQUE,0,op,
185 "The %s crumbles to dust!", query_short_name(tmp)); 185 "The %s crumbles to dust!", query_short_name(tmp));
186 186
187 remove_ob(tmp); /* remove obj from players inv. */ 187 remove_ob(tmp); /* remove obj from players inv. */
188 esrv_del_item(op->contr, tmp->count); /* notify client */ 188 esrv_del_item(op->contr, tmp->count); /* notify client */
189 free_object(tmp); /* free object */ 189 free_object(tmp); /* free object */
190 } 190 }
191 if (tmp->inv) 191 if (tmp->inv)
192 follower_remove_similar_item(tmp, item); 192 follower_remove_similar_item(tmp, item);
193 } 193 }
194 } 194 }
195} 195}
196 196
197/** 197/**
198 * Checks for any occurrence of the given 'item' in the inventory of 'op' (recursively). 198 * Checks for any occurrence of the given 'item' in the inventory of 'op' (recursively).
… …
239 * Checks for god changing, divine intervention, and so on. 239 * Checks for god changing, divine intervention, and so on.
240 */ 240 */
241void pray_at_altar(object *pl, object *altar, object *skill) { 241void pray_at_altar(object *pl, object *altar, object *skill) {
242 object *pl_god=find_god(determine_god(pl)); 242 object *pl_god=find_god(determine_god(pl));
243 243
244 /* Lauwenmark: Handle for plugin altar-parying (apply) event */ 244 if (INVOKE_PLAYER (PRAY_ALTAR, pl->contr, ARG_OBJECT (altar), ARG_OBJECT (skill)))
245 if (execute_event(altar, EVENT_APPLY,pl,NULL,NULL,SCRIPT_FIX_ALL)!=0)
246 return; 245 return;
247 246
248 /* If non consecrate altar, don't do anything */ 247 /* If non consecrate altar, don't do anything */
249 if (!altar->other_arch) return; 248 if (!altar->other_arch) return;
250 249
251 /* hmm. what happend depends on pl's current god, level, etc */ 250 /* hmm. what happend depends on pl's current god, level, etc */
252 if(!pl_god) { /*new convert */ 251 if(!pl_god) { /*new convert */
253 become_follower(pl,&altar->other_arch->clone); 252 become_follower(pl,&altar->other_arch->clone);
254 return; 253 return;
255 254
256 } else if(!strcmp(pl_god->name,altar->other_arch->clone.name)) { 255 } else if(!strcmp(pl_god->name,altar->other_arch->clone.name)) {
257 /* pray at your gods altar */ 256 /* pray at your gods altar */
258 int bonus = (pl->stats.Wis+skill->level)/10; 257 int bonus = (pl->stats.Wis+skill->level)/10;
259 258
260 /* we can get neg grace up faster */ 259 /* we can get neg grace up faster */
261 if(pl->stats.grace<0) pl->stats.grace+=(bonus>-1*(pl->stats.grace/10) ? 260 if(pl->stats.grace<0) pl->stats.grace+=(bonus>-1*(pl->stats.grace/10) ?
262 bonus : -1*(pl->stats.grace/10)); 261 bonus : -1*(pl->stats.grace/10));
263 /* we can super-charge grace to 2x max */ 262 /* we can super-charge grace to 2x max */
264 if(pl->stats.grace<(2*pl->stats.maxgrace)) { 263 if(pl->stats.grace<(2*pl->stats.maxgrace)) {
265 pl->stats.grace+=bonus/2; 264 pl->stats.grace+=bonus/2;
266 } 265 }
267 if(pl->stats.grace>(2*pl->stats.maxgrace)) { 266 if(pl->stats.grace>(2*pl->stats.maxgrace)) {
268 pl->stats.grace=(2*pl->stats.maxgrace); 267 pl->stats.grace=(2*pl->stats.maxgrace);
269 } 268 }
270 269
271 /* Every once in a while, the god decides to checkup on their 270 /* Every once in a while, the god decides to checkup on their
272 * follower, and may intervene to help them out. 271 * follower, and may intervene to help them out.
273 */ 272 */
274 bonus = MAX(1, bonus + MAX(pl->stats.luck, -3)); /* -- DAMN -- */ 273 bonus = MAX(1, bonus + MAX(pl->stats.luck, -3)); /* -- DAMN -- */
275 274
276 if(((random_roll(0, 399, pl, PREFER_LOW))-bonus)<0) 275 if(((random_roll(0, 399, pl, PREFER_LOW))-bonus)<0)
277 god_intervention(pl,pl_god, skill); 276 god_intervention(pl,pl_god, skill);
278 277
279 } else { /* praying to another god! */ 278 } else { /* praying to another god! */
280 uint64 loss = 0; 279 uint64 loss = 0;
281 int angry=1; 280 int angry=1;
282 281
283 /* I believe the logic for detecting opposing gods was completely 282 /* I believe the logic for detecting opposing gods was completely
284 * broken - I think it should work now. altar->other_arch 283 * broken - I think it should work now. altar->other_arch
285 * points to the god of this altar (which we have 284 * points to the god of this altar (which we have
286 * already verified is non null). pl_god->other_arch 285 * already verified is non null). pl_god->other_arch
287 * is the opposing god - we need to verify that exists before 286 * is the opposing god - we need to verify that exists before
288 * using its values. 287 * using its values.
289 */ 288 */
290 if(pl_god->other_arch && 289 if(pl_god->other_arch &&
291 (altar->other_arch->name==pl_god->other_arch->name)) { 290 (altar->other_arch->name==pl_god->other_arch->name)) {
292 angry=2; 291 angry=2;
293 if(random_roll(0, skill->level+2, pl, PREFER_LOW)-5 > 0) { 292 if(random_roll(0, skill->level+2, pl, PREFER_LOW)-5 > 0) {
294 object *tmp; 293 object *tmp;
295 294
296 /* you really screwed up */ 295 /* you really screwed up */
297 angry=3; 296 angry=3;
298 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl, 297 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl,
299 "Foul Priest! %s punishes you!",pl_god->name); 298 "Foul Priest! %s punishes you!",pl_god->name);
300 tmp=get_archetype(LOOSE_MANA); 299 tmp=get_archetype(LOOSE_MANA);
301 cast_magic_storm(pl,tmp, pl_god->level+20); 300 cast_magic_storm(pl,tmp, pl_god->level+20);
302 } else 301 } else
303 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl, 302 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl,
304 "Foolish heretic! %s is livid!",pl_god->name); 303 "Foolish heretic! %s is livid!",pl_god->name);
305 } else 304 } else
306 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl, 305 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,pl,
307 "Heretic! %s is angered!",pl_god->name); 306 "Heretic! %s is angered!",pl_god->name);
308 307
309 /* whether we will be successfull in defecting or not - 308 /* whether we will be successfull in defecting or not -
310 * we lose experience from the clerical experience obj 309 * we lose experience from the clerical experience obj
311 */ 310 */
312 311
313 loss = angry * (skill->stats.exp / 10); 312 loss = angry * (skill->stats.exp / 10);
314 if(loss) 313 if(loss)
315 change_exp(pl, -random_roll64(0, loss, pl, PREFER_LOW), 314 change_exp(pl, -random_roll64(0, loss, pl, PREFER_LOW),
316 skill?skill->skill:"none", SK_SUBTRACT_SKILL_EXP); 315 skill?skill->skill:"none", SK_SUBTRACT_SKILL_EXP);
317 316
318 /* May switch Gods, but its random chance based on our current level 317 /* May switch Gods, but its random chance based on our current level
319 * note it gets harder to swap gods the higher we get 318 * note it gets harder to swap gods the higher we get
320 */ 319 */
321 if((angry==1) && !(random_roll(0, skill->level, pl, PREFER_LOW))) { 320 if((angry==1) && !(random_roll(0, skill->level, pl, PREFER_LOW))) {
322 become_follower(pl,&altar->other_arch->clone); 321 become_follower(pl,&altar->other_arch->clone);
323 } else { 322 } else {
324 /* toss this player off the altar. He can try again. */ 323 /* toss this player off the altar. He can try again. */
325 new_draw_info(NDI_UNIQUE|NDI_NAVY,0,pl, 324 new_draw_info(NDI_UNIQUE|NDI_NAVY,0,pl,
326 "A divine force pushes you off the altar."); 325 "A divine force pushes you off the altar.");
327 move_player(pl,absdir(pl->facing + 4)); /* back him off the way he came. */ 326 move_player(pl,absdir(pl->facing + 4)); /* back him off the way he came. */
328 } 327 }
329 } 328 }
330} 329}
331 330
332/** 331/**
333 * Removes special prayers given by a god. 332 * Removes special prayers given by a god.
… …
343 342
344 /* Outer loop iterates over all special prayer marks */ 343 /* Outer loop iterates over all special prayer marks */
345 for (tmp = op->inv; tmp; tmp = next_tmp) { 344 for (tmp = op->inv; tmp; tmp = next_tmp) {
346 next_tmp = tmp->below; 345 next_tmp = tmp->below;
347 346
348 /* we mark special prayers with the STARTEQUIP flag, so if it isn't 347 /* we mark special prayers with the STARTEQUIP flag, so if it isn't
349 * in that category, not something we need to worry about. 348 * in that category, not something we need to worry about.
350 */ 349 */
351 if (tmp->type != SPELL || !QUERY_FLAG(tmp, FLAG_STARTEQUIP)) 350 if (tmp->type != SPELL || !QUERY_FLAG(tmp, FLAG_STARTEQUIP))
352 continue; 351 continue;
353 352
354 if (god->randomitems == NULL) { 353 if (god->randomitems == NULL) {
355 LOG (llevError, "BUG: check_special_prayers(): god %s without randomitems\n", god->name); 354 LOG (llevError, "BUG: check_special_prayers(): god %s without randomitems\n", god->name);
356 do_forget_spell (op, tmp->name); 355 do_forget_spell (op, tmp->name);
357 continue; 356 continue;
358 } 357 }
359 358
360 /* Inner loop tries to find the special prayer in the god's treasure 359 /* Inner loop tries to find the special prayer in the god's treasure
361 * list. We default that the spell should be removed. 360 * list. We default that the spell should be removed.
362 */ 361 */
363 remove=1; 362 remove=1;
364 for (tr = god->randomitems->items; tr; tr = tr->next) 363 for (tr = god->randomitems->items; tr; tr = tr->next)
365 { 364 {
366 object *item; 365 object *item;
367 366
368 if (tr->item == NULL) 367 if (tr->item == NULL)
369 continue; 368 continue;
370 item = &tr->item->clone; 369 item = &tr->item->clone;
371 370
372 /* Basically, see if the matching spell is granted by this god. */ 371 /* Basically, see if the matching spell is granted by this god. */
373 372
374 if (tr->item->clone.type == SPELL && tr->item->clone.name == tmp->name) { 373 if (tr->item->clone.type == SPELL && tr->item->clone.name == tmp->name) {
375 remove=0; 374 remove=0;
376 break; 375 break;
377 } 376 }
378 } 377 }
379 if (remove) { 378 if (remove) {
380 /* just do the work of removing the spell ourselves - we already 379 /* just do the work of removing the spell ourselves - we already
381 * know that the player knows the spell 380 * know that the player knows the spell
382 */ 381 */
383 new_draw_info_format (NDI_UNIQUE|NDI_NAVY, 0, op, 382 new_draw_info_format (NDI_UNIQUE|NDI_NAVY, 0, op,
384 "You lose knowledge of %s.", tmp->name); 383 "You lose knowledge of %s.", tmp->name);
385 player_unready_range_ob(op->contr, tmp); 384 player_unready_range_ob(op->contr, tmp);
386 remove_ob(tmp); 385 remove_ob(tmp);
387 free_object(tmp); 386 free_object(tmp);
388 } 387 }
389 388
390 } 389 }
391} 390}
392 391
393/** 392/**
… …
406 405
407 old_god = find_god(determine_god(op)); 406 old_god = find_god(determine_god(op));
408 407
409 /* take away any special god-characteristic items. */ 408 /* take away any special god-characteristic items. */
410 for(item=op->inv;item!=NULL;item=next) { 409 for(item=op->inv;item!=NULL;item=next) {
411 next = item->below; 410 next = item->below;
412 /* remove all invisible startequip items which are 411 /* remove all invisible startequip items which are
413 * not skill, exp or force 412 * not skill, exp or force
414 */ 413 */
415 if(QUERY_FLAG(item,FLAG_STARTEQUIP) && item->invisible && 414 if(QUERY_FLAG(item,FLAG_STARTEQUIP) && item->invisible &&
416 (item->type != SKILL) && (item->type != EXPERIENCE) && 415 (item->type != SKILL) && (item->type != EXPERIENCE) &&
417 (item->type != FORCE)) { 416 (item->type != FORCE)) {
418 417
419 if (item->type == SPELL) 418 if (item->type == SPELL)
420 new_draw_info_format(NDI_UNIQUE|NDI_NAVY, 0, op, 419 new_draw_info_format(NDI_UNIQUE|NDI_NAVY, 0, op,
421 "You lose knowledge of %s.", item->name); 420 "You lose knowledge of %s.", item->name);
422 player_unready_range_ob(op->contr, item); 421 player_unready_range_ob(op->contr, item);
423 remove_ob(item); 422 remove_ob(item);
424 free_object(item); 423 free_object(item);
425 } 424 }
426 } 425 }
427 426
428 /* remove any godgiven items from the old god */ 427 /* remove any godgiven items from the old god */
429 if (old_god) { 428 if (old_god) {
430 for(tr=old_god->randomitems->items; tr!=NULL; tr = tr->next) { 429 for(tr=old_god->randomitems->items; tr!=NULL; tr = tr->next) {
431 if (tr->item && QUERY_FLAG(&tr->item->clone, FLAG_STARTEQUIP)) 430 if (tr->item && QUERY_FLAG(&tr->item->clone, FLAG_STARTEQUIP))
432 follower_remove_similar_item(op, &tr->item->clone); 431 follower_remove_similar_item(op, &tr->item->clone);
433 } 432 }
434 } 433 }
435 434
436 if(!op||!new_god) return; 435 if(!op||!new_god) return;
437 436
438 if(op->race && new_god->slaying && strstr(op->race,new_god->slaying)) { 437 if(op->race && new_god->slaying && strstr(op->race,new_god->slaying)) {
439 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op,"Fool! %s detests your kind!", 438 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op,"Fool! %s detests your kind!",
440 new_god->name); 439 new_god->name);
441 if(random_roll(0, op->level-1, op, PREFER_LOW)-5>0) { 440 if(random_roll(0, op->level-1, op, PREFER_LOW)-5>0) {
442 object *tmp = get_archetype(LOOSE_MANA); 441 object *tmp = get_archetype(LOOSE_MANA);
443 cast_magic_storm(op,tmp, new_god->level+10); 442 cast_magic_storm(op,tmp, new_god->level+10);
444 } 443 }
445 return; 444 return;
446 } 445 }
447 446
448 447
449 /* give the player any special god-characteristic-items. */ 448 /* give the player any special god-characteristic-items. */
450 for(tr=new_god->randomitems->items; tr!=NULL; tr = tr->next) { 449 for(tr=new_god->randomitems->items; tr!=NULL; tr = tr->next) {
… …
452 tr->item->clone.type != BOOK && tr->item->clone.type != SPELL) 451 tr->item->clone.type != BOOK && tr->item->clone.type != SPELL)
453 god_gives_present(op,new_god,tr); } 452 god_gives_present(op,new_god,tr); }
454 453
455 454
456 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op, 455 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op,
457 "You become a follower of %s!",new_god->name); 456 "You become a follower of %s!",new_god->name);
458 457
459 for (skop = op->inv; skop != NULL; skop=skop->below) 458 for (skop = op->inv; skop != NULL; skop=skop->below)
460 if (skop->type == SKILL && skop->subtype == SK_PRAYING) break; 459 if (skop->type == SKILL && skop->subtype == SK_PRAYING) break;
461 460
462 /* Player has no skill - give them the skill */ 461 /* Player has no skill - give them the skill */
463 if (!skop) { 462 if (!skop) {
464 /* The arhetype should always be defined - if we crash here because it doesn't, 463 /* The arhetype should always be defined - if we crash here because it doesn't,
465 * things are really messed up anyways. 464 * things are really messed up anyways.
466 */ 465 */
467 skop = give_skill_by_name(op, get_archetype_by_type_subtype(SKILL, SK_PRAYING)->clone.skill); 466 skop = give_skill_by_name(op, get_archetype_by_type_subtype(SKILL, SK_PRAYING)->clone.skill);
468 link_player_skills(op); 467 link_player_skills(op);
469 } 468 }
470 469
471 sk_applied=QUERY_FLAG(skop,FLAG_APPLIED); /* save skill status */ 470 sk_applied=QUERY_FLAG(skop,FLAG_APPLIED); /* save skill status */
472 471
473 /* Clear the "undead" status. We also need to force a call to change_abil, 472 /* Clear the "undead" status. We also need to force a call to change_abil,
… …
503 /* make sure that certain immunities do NOT get passed 502 /* make sure that certain immunities do NOT get passed
504 * to the follower! 503 * to the follower!
505 */ 504 */
506 for (i=0; i<NROFATTACKS; i++) 505 for (i=0; i<NROFATTACKS; i++)
507 if (skop->resist[i] > 30 && (i==ATNR_FIRE || i==ATNR_COLD || 506 if (skop->resist[i] > 30 && (i==ATNR_FIRE || i==ATNR_COLD ||
508 i==ATNR_ELECTRICITY || i==ATNR_POISON)) 507 i==ATNR_ELECTRICITY || i==ATNR_POISON))
509 skop->resist[i] = 30; 508 skop->resist[i] = 30;
510 509
511 skop->stats.hp= (sint16) new_god->last_heal; 510 skop->stats.hp= (sint16) new_god->last_heal;
512 skop->stats.sp= (sint16) new_god->last_sp; 511 skop->stats.sp= (sint16) new_god->last_sp;
513 skop->stats.grace= (sint16) new_god->last_grace; 512 skop->stats.grace= (sint16) new_god->last_grace;
514 skop->stats.food= (sint16) new_god->last_eat; 513 skop->stats.food= (sint16) new_god->last_eat;
… …
522 update_priest_flag(new_god,skop,FLAG_UNDEAD); 521 update_priest_flag(new_god,skop,FLAG_UNDEAD);
523 update_priest_flag(new_god,skop,FLAG_BLIND); 522 update_priest_flag(new_god,skop,FLAG_BLIND);
524 update_priest_flag(new_god,skop,FLAG_XRAYS); /* better have this if blind! */ 523 update_priest_flag(new_god,skop,FLAG_XRAYS); /* better have this if blind! */
525 524
526 new_draw_info_format(NDI_UNIQUE,0,op, 525 new_draw_info_format(NDI_UNIQUE,0,op,
527 "You are bathed in %s's aura.",new_god->name); 526 "You are bathed in %s's aura.",new_god->name);
528 527
529 /* Weapon/armour use are special...handle flag toggles here as this can 528 /* Weapon/armour use are special...handle flag toggles here as this can
530 * only happen when gods are worshipped and if the new priest could 529 * only happen when gods are worshipped and if the new priest could
531 * have used armour/weapons in the first place. 530 * have used armour/weapons in the first place.
532 * 531 *
533 * This also can happen for monks which cannot use weapons. In this case 532 * This also can happen for monks which cannot use weapons. In this case
534 * do not allow to use weapons even if the god otherwise would allow it. 533 * do not allow to use weapons even if the god otherwise would allow it.
535 */ 534 */
536 if (!present_in_ob_by_name(FORCE, "no weapon force", op)) 535 if (!present_in_ob_by_name(FORCE, "no weapon force", op))
537 update_priest_flag(new_god,skop,FLAG_USE_WEAPON); 536 update_priest_flag(new_god,skop,FLAG_USE_WEAPON);
538 update_priest_flag(new_god,skop,FLAG_USE_ARMOUR); 537 update_priest_flag(new_god,skop,FLAG_USE_ARMOUR);
539 538
540 if(worship_forbids_use(op,skop,FLAG_USE_WEAPON,"weapons")) 539 if(worship_forbids_use(op,skop,FLAG_USE_WEAPON,"weapons"))
541 stop_using_item(op,WEAPON,2); 540 stop_using_item(op,WEAPON,2);
542 541
543 if(worship_forbids_use(op,skop,FLAG_USE_ARMOUR,"armour")) { 542 if(worship_forbids_use(op,skop,FLAG_USE_ARMOUR,"armour")) {
544 stop_using_item(op,ARMOUR,1); 543 stop_using_item(op,ARMOUR,1);
545 stop_using_item(op,HELMET,1); 544 stop_using_item(op,HELMET,1);
546 stop_using_item(op,BOOTS,1); 545 stop_using_item(op,BOOTS,1);
547 stop_using_item(op,GLOVES,1); 546 stop_using_item(op,GLOVES,1);
548 stop_using_item(op,SHIELD,1); 547 stop_using_item(op,SHIELD,1);
549 } 548 }
550 549
551 SET_FLAG(skop,FLAG_APPLIED); 550 SET_FLAG(skop,FLAG_APPLIED);
552 (void) change_abil(op,skop); 551 (void) change_abil(op,skop);
553 552
… …
572 update_priest_flag(exp_obj,op,flag); 571 update_priest_flag(exp_obj,op,flag);
573 if(QUERY_FLAG(op,flag)) 572 if(QUERY_FLAG(op,flag))
574 new_draw_info_format(NDI_UNIQUE,0,op,"You may use %s again.",string); 573 new_draw_info_format(NDI_UNIQUE,0,op,"You may use %s again.",string);
575 else { 574 else {
576 new_draw_info_format(NDI_UNIQUE,0,op,"You are forbidden to use %s.",string); 575 new_draw_info_format(NDI_UNIQUE,0,op,"You are forbidden to use %s.",string);
577 return 1; 576 return 1;
578 } 577 }
579 } 578 }
580 return 0; 579 return 0;
581} 580}
582 581
… …
587 object *tmp; 586 object *tmp;
588 587
589 for(tmp=op->inv;tmp&&number;tmp=tmp->below) 588 for(tmp=op->inv;tmp&&number;tmp=tmp->below)
590 if(tmp->type==type&&QUERY_FLAG(tmp,FLAG_APPLIED)) { 589 if(tmp->type==type&&QUERY_FLAG(tmp,FLAG_APPLIED)) {
591 apply_special (op, tmp, AP_UNAPPLY | AP_IGNORE_CURSE); 590 apply_special (op, tmp, AP_UNAPPLY | AP_IGNORE_CURSE);
592 number--; 591 number--;
593 } 592 }
594} 593}
595 594
596/** 595/**
597 * If the god does/doesnt have this flag, we 596 * If the god does/doesnt have this flag, we
… …
602void update_priest_flag (object *god, object *exp_ob, uint32 flag) { 601void update_priest_flag (object *god, object *exp_ob, uint32 flag) {
603 if(QUERY_FLAG(god,flag)&&!QUERY_FLAG(exp_ob,flag)) 602 if(QUERY_FLAG(god,flag)&&!QUERY_FLAG(exp_ob,flag))
604 SET_FLAG(exp_ob,flag); 603 SET_FLAG(exp_ob,flag);
605 else if(QUERY_FLAG(exp_ob,flag)&&!QUERY_FLAG(god,flag)) 604 else if(QUERY_FLAG(exp_ob,flag)&&!QUERY_FLAG(god,flag))
606 { 605 {
607 /* When this is called with the exp_ob set to the player, 606 /* When this is called with the exp_ob set to the player,
608 * this check is broken, because most all players arch 607 * this check is broken, because most all players arch
609 * allow use of weapons. I'm not actually sure why this 608 * allow use of weapons. I'm not actually sure why this
610 * check is here - I guess if you had a case where the 609 * check is here - I guess if you had a case where the
611 * value in the archetype (wisdom) should over ride the restrictions 610 * value in the archetype (wisdom) should over ride the restrictions
612 * the god places on it, this may make sense. But I don't think 611 * the god places on it, this may make sense. But I don't think
613 * there is any case like that. 612 * there is any case like that.
614 */ 613 */
615 614
616/* if (!(QUERY_FLAG(&(exp_ob->arch->clone),flag)))*/ 615/* if (!(QUERY_FLAG(&(exp_ob->arch->clone),flag)))*/
617 CLEAR_FLAG(exp_ob,flag); 616 CLEAR_FLAG(exp_ob,flag);
618 }; 617 };
619} 618}
620 619
621 620
622 621
… …
651{ 650{
652 object *tmp; 651 object *tmp;
653 int success = 0; 652 int success = 0;
654 653
655 for (tmp = op->inv; tmp; tmp = tmp->below) { 654 for (tmp = op->inv; tmp; tmp = tmp->below) {
656 if (tmp->invisible) 655 if (tmp->invisible)
657 continue; 656 continue;
658 if (QUERY_FLAG (tmp, FLAG_DAMNED) && ! remove_damnation) 657 if (QUERY_FLAG (tmp, FLAG_DAMNED) && ! remove_damnation)
659 continue; 658 continue;
660 if (QUERY_FLAG (tmp, FLAG_CURSED) || QUERY_FLAG (tmp, FLAG_DAMNED)) { 659 if (QUERY_FLAG (tmp, FLAG_CURSED) || QUERY_FLAG (tmp, FLAG_DAMNED)) {
661 success = 1; 660 success = 1;
662 CLEAR_FLAG (tmp, FLAG_DAMNED); 661 CLEAR_FLAG (tmp, FLAG_DAMNED);
… …
701 uint32 attacktype; 700 uint32 attacktype;
702 int tmp; 701 int tmp;
703 702
704 for (weapon = op->inv; weapon; weapon = weapon->below) 703 for (weapon = op->inv; weapon; weapon = weapon->below)
705 if ((weapon->type == WEAPON || weapon->type == BOW) 704 if ((weapon->type == WEAPON || weapon->type == BOW)
706 && QUERY_FLAG (weapon, FLAG_APPLIED)) 705 && QUERY_FLAG (weapon, FLAG_APPLIED))
707 break; 706 break;
708 if (weapon == NULL || god_examines_item (god, weapon) <= 0) 707 if (weapon == NULL || god_examines_item (god, weapon) <= 0)
709 return 0; 708 return 0;
710 709
711 /* First give it a title, so other gods won't touch it */ 710 /* First give it a title, so other gods won't touch it */
712 if ( ! weapon->title) { 711 if ( ! weapon->title) {
713 sprintf (buf, "of %s", god->name); 712 sprintf (buf, "of %s", god->name);
714 weapon->title = add_string (buf); 713 weapon->title = add_string (buf);
715 if (op->type == PLAYER) 714 if (op->type == PLAYER)
716 esrv_update_item (UPD_NAME, op, weapon); 715 esrv_update_item (UPD_NAME, op, weapon);
717 new_draw_info (NDI_UNIQUE, 0, op, "Your weapon quivers as if struck!"); 716 new_draw_info (NDI_UNIQUE, 0, op, "Your weapon quivers as if struck!");
718 } 717 }
719 718
720 /* Allow the weapon to slay enemies */ 719 /* Allow the weapon to slay enemies */
721 if ( ! weapon->slaying && god->slaying) { 720 if ( ! weapon->slaying && god->slaying) {
… …
760{ 759{
761 treasure *tr; 760 treasure *tr;
762 761
763 if ( ! god || ! god->randomitems) { 762 if ( ! god || ! god->randomitems) {
764 LOG (llevError, 763 LOG (llevError,
765 "BUG: god_intervention(): no god or god without randomitems\n"); 764 "BUG: god_intervention(): no god or god without randomitems\n");
766 return; 765 return;
767 } 766 }
768 767
769 check_special_prayers (op, god); 768 check_special_prayers (op, god);
770 769
… …
804 /* Grace limit */ 803 /* Grace limit */
805 if (item->type == BOOK && item->invisible 804 if (item->type == BOOK && item->invisible
806 && strcmp (item->name, "grace limit") == 0) { 805 && strcmp (item->name, "grace limit") == 0) {
807 if (op->stats.grace < item->stats.grace 806 if (op->stats.grace < item->stats.grace
808 || op->stats.grace < op->stats.maxgrace) { 807 || op->stats.grace < op->stats.maxgrace) {
809 object *tmp; 808 object *tmp;
810 809
811 /* Follower lacks the required grace for the following 810 /* Follower lacks the required grace for the following
812 * treasure list items. */ 811 * treasure list items. */
813 812
814 tmp = get_archetype(HOLY_POSSESSION); 813 tmp = get_archetype(HOLY_POSSESSION);
815 cast_change_ability(op, op, tmp, 0, 1); 814 cast_change_ability(op, op, tmp, 0, 1);
816 free_object(tmp); 815 free_object(tmp);
817 return; 816 return;
818 } 817 }
819 continue; 818 continue;
820 } 819 }
821 820
… …
859 858
860 /* Various heal spells */ 859 /* Various heal spells */
861 if (item->type == BOOK && item->invisible 860 if (item->type == BOOK && item->invisible
862 && strcmp (item->name, "heal spell") == 0) 861 && strcmp (item->name, "heal spell") == 0)
863 { 862 {
864 object *tmp; 863 object *tmp;
865 int success; 864 int success;
866 865
867 tmp = get_archetype_by_object_name(item->slaying); 866 tmp = get_archetype_by_object_name(item->slaying);
868 867
869 success = cast_heal (op, op, tmp, 0); 868 success = cast_heal (op, op, tmp, 0);
870 free_object(tmp); 869 free_object(tmp);
871 if (success) return; 870 if (success) return;
872 else continue; 871 else continue;
873 } 872 }
874 873
875 /* Remove curse */ 874 /* Remove curse */
876 if (item->type == BOOK && item->invisible 875 if (item->type == BOOK && item->invisible
877 && strcmp (item->name, "remove curse") == 0) 876 && strcmp (item->name, "remove curse") == 0)
… …
953 if (check_spell_known (op, item->name)) 952 if (check_spell_known (op, item->name))
954 continue; 953 continue;
955 if (item->level > skill->level) 954 if (item->level > skill->level)
956 continue; 955 continue;
957 956
958 new_draw_info_format(NDI_UNIQUE, 0, op, 957 new_draw_info_format(NDI_UNIQUE, 0, op,
959 "%s grants you use of a special prayer!", god->name); 958 "%s grants you use of a special prayer!", god->name);
960 do_learn_spell (op, item, 1); 959 do_learn_spell (op, item, 1);
961 return; 960 return;
962 961
963 } 962 }
964 963
965 /* Other gifts */ 964 /* Other gifts */
966 if ( ! item->invisible) { 965 if ( ! item->invisible) {
967 if (god_gives_present (op, god, tr)) 966 if (god_gives_present (op, god, tr))
968 return; 967 return;
… …
983int god_examines_priest (object *op, object *god) { 982int god_examines_priest (object *op, object *god) {
984 int reaction=1; 983 int reaction=1;
985 object *item=NULL, *skop; 984 object *item=NULL, *skop;
986 985
987 for(item=op->inv;item;item=item->below) { 986 for(item=op->inv;item;item=item->below) {
988 if(QUERY_FLAG(item,FLAG_APPLIED)) { 987 if(QUERY_FLAG(item,FLAG_APPLIED)) {
989 reaction+=god_examines_item(god,item)*(item->magic?abs(item->magic):1); 988 reaction+=god_examines_item(god,item)*(item->magic?abs(item->magic):1);
990 } 989 }
991 } 990 }
992 991
993 /* well, well. Looks like we screwed up. Time for god's revenge */ 992 /* well, well. Looks like we screwed up. Time for god's revenge */
994 if(reaction<0) { 993 if(reaction<0) {
995 int loss = 10000000; 994 int loss = 10000000;
996 int angry = abs(reaction); 995 int angry = abs(reaction);
997 996
998 for (skop = op->inv; skop != NULL; skop=skop->below) 997 for (skop = op->inv; skop != NULL; skop=skop->below)
999 if (skop->type == SKILL && skop->subtype == SK_PRAYING) break; 998 if (skop->type == SKILL && skop->subtype == SK_PRAYING) break;
1000 999
1001 if (skop) 1000 if (skop)
1002 loss = (int) (0.05 * (float) skop->stats.exp); 1001 loss = (int) (0.05 * (float) skop->stats.exp);
1003 change_exp(op, -random_roll(0, loss*angry-1, op, PREFER_LOW), 1002 change_exp(op, -random_roll(0, loss*angry-1, op, PREFER_LOW),
1004 skop?skop->skill:"none", SK_SUBTRACT_SKILL_EXP); 1003 skop?skop->skill:"none", SK_SUBTRACT_SKILL_EXP);
1005 if(random_roll(0, angry, op, PREFER_LOW)) { 1004 if(random_roll(0, angry, op, PREFER_LOW)) {
1006 object *tmp = get_archetype(LOOSE_MANA); 1005 object *tmp = get_archetype(LOOSE_MANA);
1007 cast_magic_storm(op,tmp,op->level+(angry*3)); 1006 cast_magic_storm(op,tmp,op->level+(angry*3));
1008 } 1007 }
1009 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op, 1008 new_draw_info_format(NDI_UNIQUE|NDI_NAVY,0,op,
1010 "%s becomes angry and punishes you!",god->name); 1009 "%s becomes angry and punishes you!",god->name);
1011 } 1010 }
1012 return reaction; 1011 return reaction;
1013} 1012}
1014 1013
1015/** 1014/**
… …
1064 godlink *gl=first_god; 1063 godlink *gl=first_god;
1065 const char *godname=NULL; 1064 const char *godname=NULL;
1066 1065
1067 if (race == NULL) return NULL; 1066 if (race == NULL) return NULL;
1068 while(gl) { 1067 while(gl) {
1069 if (!strcasecmp(gl->arch->clone.race, race)) { 1068 if (!strcasecmp(gl->arch->clone.race, race)) {
1070 godname=gl->name; 1069 godname=gl->name;
1071 break; 1070 break;
1072 } 1071 }
1073 gl=gl->next; 1072 gl=gl->next;
1074 } 1073 }
1075 return godname; 1074 return godname;
1076} 1075}
1077/** 1076/**
1078 * Changes the attributes of cone, smite, and ball spells as needed by the code. 1077 * Changes the attributes of cone, smite, and ball spells as needed by the code.
… …
1108 free_string(spellop->slaying); 1107 free_string(spellop->slaying);
1109 spellop->slaying = NULL; 1108 spellop->slaying = NULL;
1110 } 1109 }
1111 if(!caster_is_spell) 1110 if(!caster_is_spell)
1112 spellop->slaying = add_string(god->slaying); 1111 spellop->slaying = add_string(god->slaying);
1113 else if(caster->slaying) 1112 else if(caster->slaying)
1114 spellop->slaying = add_string(caster->slaying); 1113 spellop->slaying = add_string(caster->slaying);
1115 } 1114 }
1116 1115
1117 /* only the godpower attacktype adds the god's attack onto the spell */ 1116 /* only the godpower attacktype adds the god's attack onto the spell */
1118 if(spellop->attacktype & AT_GODPOWER) 1117 if(spellop->attacktype & AT_GODPOWER)
1119 spellop->attacktype=spellop->attacktype|god->attacktype; 1118 spellop->attacktype=spellop->attacktype|god->attacktype;
1120 1119
1121 /* tack on the god's name to the spell */ 1120 /* tack on the god's name to the spell */
1122 if(spellop->attacktype&AT_HOLYWORD||spellop->attacktype&AT_GODPOWER) { 1121 if(spellop->attacktype&AT_HOLYWORD||spellop->attacktype&AT_GODPOWER) {
1123 if(spellop->title) 1122 if(spellop->title)
1124 free_string(spellop->title); 1123 free_string(spellop->title);
1125 spellop->title=add_string(god->name); 1124 spellop->title=add_string(god->name);
1126 if(spellop->title){ 1125 if(spellop->title){
1127 char buf[MAX_BUF]; 1126 char buf[MAX_BUF];
1128 sprintf(buf,"%s of %s",spellop->name,spellop->title); 1127 sprintf(buf,"%s of %s",spellop->name,spellop->title);
1129 FREE_AND_COPY(spellop->name, buf); 1128 FREE_AND_COPY(spellop->name, buf);
1130 FREE_AND_COPY(spellop->name_pl, buf); 1129 FREE_AND_COPY(spellop->name_pl, buf);
1131 } 1130 }
1132 } 1131 }
1133 1132
1134 return 1; 1133 return 1;
1135} 1134}
1136 1135

Diff Legend

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