diff options
Diffstat (limited to 'src/gods.cc')
| -rw-r--r-- | src/gods.cc | 212 |
1 files changed, 212 insertions, 0 deletions
diff --git a/src/gods.cc b/src/gods.cc new file mode 100644 index 00000000..1163e9b6 --- /dev/null +++ b/src/gods.cc @@ -0,0 +1,212 @@ +/* + * Copyright (c) 2002 DarkGod + * + * This software may be copied and distributed for educational, research, and + * not for profit purposes provided that this copyright and statement are + * included in all such copies. + */ +#include "gods.hpp" + +#include "player_type.hpp" +#include "skills.hpp" +#include "skill_type.hpp" +#include "stats.hpp" +#include "util.hpp" +#include "util.h" +#include "variable.h" +#include "variable.hpp" +#include "xtra2.hpp" + +#include <cassert> + +/* + * Add amt piety is god is god + */ +void inc_piety(int god, s32b amt) +{ + s32b old = p_ptr->grace; + + if ((god == GOD_ALL) || (god == p_ptr->pgod)) + { + set_grace(p_ptr->grace + amt); + + if(amt > 0 && p_ptr->grace <= old) + set_grace(300000); + + if(amt < 0 && p_ptr->grace >= old) + set_grace(-300000); + } +} + +/* + * Renounce to religion + */ +void abandon_god(int god) +{ + if ((god == GOD_ALL) || (god == p_ptr->pgod)) + { + p_ptr->pgod = GOD_NONE; + set_grace(0); + } +} + +/* + * Check if god may be followed by player + */ +static bool_ may_follow_god(int god) +{ + if (god == GOD_MELKOR) + { + int i; + + /* Check if player has wielded The One Ring */ + for (i = INVEN_WIELD; i < INVEN_TOTAL; i++) + { + if (p_ptr->inventory[i].name1 == ART_POWER) + { + msg_print("The One Ring has corrupted " + "you, and you are rejected."); + return FALSE; + } + } + } + /* Default is to allow */ + return TRUE; +} + +/* + * Get a religion + */ +void follow_god(int god, bool_ silent) +{ + /* Poor unbelievers, i'm so mean ... BOUHAHAHA */ + if (get_skill(SKILL_ANTIMAGIC)) + { + msg_print("Don't be silly; you don't believe in gods."); + return; + } + + /* Are we allowed ? */ + if (!may_follow_god(god)) + return; + + if (p_ptr->pgod == GOD_NONE) + { + p_ptr->pgod = god; + + /* Melkor offer Udun magic */ + if (p_ptr->pgod == GOD_MELKOR) + { + s_info[SKILL_UDUN].hidden = FALSE; + if (!silent) msg_print("You feel the dark powers of Melkor in you. You can now use the Udun skill."); + } + } +} + +/* + * Show religious info. + */ +bool_ show_god_info() +{ + int pgod = p_ptr->pgod; + + deity_type *d_ptr; + + if (pgod < 0) + { + msg_print("You don't worship anyone."); + msg_print(NULL); + return FALSE; + } + else + { + int i; + + d_ptr = &deity_info[pgod]; + + msg_print(NULL); + + character_icky = TRUE; + Term_save(); + + text_out(format("You worship %s. ", d_ptr->name)); + for (i = 0; (i < 10) && (strcmp(d_ptr->desc[i], "")); i++) + text_out(d_ptr->desc[i]); + text_out("\n"); + + inkey(); + + Term_load(); + character_icky = FALSE; + } + + return TRUE; +} + +/* + * Rescale the wisdom value to a 0 <-> max range + */ +int wisdom_scale(int max) +{ + int i = p_ptr->stat_ind[A_WIS]; + + return (i * max) / 37; +} + +/* + * Get deity info for a given god index. + * Returns NULL for the "atheist" god. + */ +deity_type *god_at(byte god_idx) +{ + assert(god_idx >= 0); + assert(god_idx < MAX_GODS); + + if (god_idx == 0) + { + return NULL; + } + + return &deity_info[god_idx]; +} + +/* + * Check if god is enabled for the current module + */ +bool_ god_enabled(struct deity_type *deity) +{ + int i; + + for (i = 0; deity->modules[i] != -1; i++) + { + if (deity->modules[i] == game_module_idx) + { + return TRUE; + } + } + /* Not enabled */ + return FALSE; +} + +/* Find a god by name */ +int find_god(cptr name) +{ + int i; + + for (i = 0; i < MAX_GODS; i++) + { + /* The name matches and god is "enabled" for the + current module. */ + if (god_enabled(&deity_info[i]) && + streq(deity_info[i].name, name)) + { + return (i); + } + } + return -1; +} + +bool praying_to(int god) +{ + return (p_ptr->pgod == god) && p_ptr->praying; +} |