diff options
Diffstat (limited to 'src/ghost.c')
| -rw-r--r-- | src/ghost.c | 1140 |
1 files changed, 0 insertions, 1140 deletions
diff --git a/src/ghost.c b/src/ghost.c deleted file mode 100644 index 30a8f81a..00000000 --- a/src/ghost.c +++ /dev/null @@ -1,1140 +0,0 @@ -/* File: ghost.c */ - -/* - * Purpose: ghost functions - * - * Created by DarkGod for PernAngband 4.1.0 - * Lot of code from Drangband - */ - -/* - * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke - * - * 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 "angband.h" - - -/* - * Save a "bones" file for a dead character - * - * Should probably attempt some form of locking... - */ -void make_bones(void) -{ -#if 0 /* DGDGDGDG */ - FILE *fp; - - int i; - - char str[1024]; - - - /* Ignore wizards and borgs */ - if (!(noscore & 0x00FF)) - { - /* Ignore people who die in town */ - if (dun_level) - { - int level; - char tmp[128]; - - /* Slightly more tenacious saving routine. */ - for (i = 0; i < 5; i++) - { - /* Ghost hovers near level of death. */ - if (i == 0) level = dun_level; - else level = dun_level + 5 - damroll(2, 4); - if (level < 1) level = randint(4); - - /* XXX XXX XXX "Bones" name */ - sprintf(tmp, "bone%03d.%03d", dungeon_type, level); - - /* Build the filename */ - path_build(str, 1024, ANGBAND_DIR_BONE, tmp); - - /* Grab permission */ - safe_setuid_grab(); - - /* Attempt to open the bones file */ - fp = my_fopen(str, "r"); - - /* Drop permission */ - safe_setuid_drop(); - - /* Close it right away */ - if (fp) my_fclose(fp); - - /* Do not over-write a previous ghost */ - if (fp) continue; - - /* If no file by that name exists, we can make a new one. */ - if (!(fp)) break; - } - - - /* File type is "TEXT" */ - FILE_TYPE(FILE_TYPE_TEXT); - - /* Grab permission */ - safe_setuid_grab(); - - /* Try to write a new "Bones File" */ - fp = my_fopen(str, "w"); - - /* Drop permission */ - safe_setuid_drop(); - - /* Not allowed to write it? Weird. */ - if (!fp) return; - - /* Save the info */ - fprintf(fp, "%s\n", player_name); - fprintf(fp, "%d\n", p_ptr->mhp); - fprintf(fp, "%d\n", p_ptr->prace); - fprintf(fp, "%d\n", p_ptr->pclass); - - /* Close and save the Bones file */ - my_fclose(fp); - } - } -#endif -} - -#if 0 /* DGDGDGDG */ -/* - * Ghost generation info - */ - -static int ghost_race; -static int ghost_class; - -static char gb_name[32]; - - -/* - * Set a "blow" record for the ghost - */ -static void ghost_blow(int i, int m, int e, int d, int s) -{ - monster_race *g = &r_info[max_r_idx - 1]; - - /* Save the data */ - g->blow[i].method = m; - g->blow[i].effect = e; - g->blow[i].d_dice = d; - g->blow[i].d_side = s; -} - - -/* - * Prepare the "ghost" race (method 1) - */ -static void set_ghost_aux_1(void) -{ - monster_race *r_ptr = &r_info[max_r_idx - 1]; - - int i, d1, d2; - - int attack1, attack2; - - int lev = r_ptr->level; - - int grace = ghost_race; - int gclass = ghost_class; - - cptr gr_name = rp_name + race_info[grace].title; - cptr gc_name = class_info[grace].title; - - - /* A wanderer from the town */ - sprintf(r_name + r_ptr->name, "%s, the skeletal %s %s", - gb_name, gr_name, gc_name); - - - /* Use a "player" symbol */ - r_ptr->d_char = 's'; - - /* Open doors, bash doors */ - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - - - /* Treasure drops */ - r_ptr->flags1 |= (RF1_DROP_60 | RF1_DROP_90); - - /* Treasure drops */ - if (lev >= 10) r_ptr->flags1 |= (RF1_DROP_1D2); - if (lev >= 20) r_ptr->flags1 |= (RF1_DROP_2D2); - if (lev >= 30) r_ptr->flags1 |= (RF1_DROP_4D2); - - /* Treasure drops */ - if (lev >= 40) r_ptr->flags1 &= ~(RF1_DROP_4D2); - if (lev >= 40) r_ptr->flags1 |= (RF1_DROP_GREAT); - - - /* Extract an "immunity power" */ - i = (lev / 5) + randint(5); - - /* Immunity (by level) */ - switch ((i > 12) ? 12 : i) - { - case 12 : - { - r_ptr->flags3 |= (RF3_IM_POIS); - } - - case 11: - case 10: - { - r_ptr->flags3 |= (RF3_IM_ACID); - } - - case 9: - case 8: - case 7: - { - r_ptr->flags3 |= (RF3_IM_FIRE); - } - - case 6: - case 5: - case 4: - { - r_ptr->flags3 |= (RF3_IM_COLD); - } - - case 3: - case 2: - case 1: - { - r_ptr->flags3 |= (RF3_IM_ELEC); - } - } - - - /* Extract some spells */ - switch (gclass) - { - /* Warrior */ - case CLASS_WARRIOR: - case CLASS_UNBELIEVER: - case CLASS_ARCHER: - case CLASS_MONK: - case CLASS_SYMBIANT: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 8; - r_ptr->flags4 |= (RF4_ARROW_1); - if (lev > 15) r_ptr->flags4 |= (RF4_ARROW_2); - if (lev > 30) r_ptr->flags4 |= (RF4_ARROW_3); - if (lev > 45) r_ptr->flags4 |= (RF4_ARROW_4); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_UMBER; - break; - } - - /* Mage */ - case CLASS_MAGE: - case CLASS_HIGH_MAGE: - case CLASS_POWERMAGE: - case CLASS_RUNECRAFTER: - case CLASS_HARPER: - case CLASS_SORCERER: - case CLASS_ILLUSIONIST: - case CLASS_DRUID: - case CLASS_NECRO: - case CLASS_ALCHEMIST: - case CLASS_CHAOS_WARRIOR: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 2; - r_ptr->flags4 |= (RF4_ARROW_1); - r_ptr->flags5 |= (RF5_SLOW | RF5_CONF); - r_ptr->flags6 |= (RF6_BLINK); - if (lev > 5) r_ptr->flags5 |= (RF5_BA_POIS); - if (lev > 7) r_ptr->flags5 |= (RF5_BO_ELEC); - if (lev > 10) r_ptr->flags5 |= (RF5_BO_COLD); - if (lev > 12) r_ptr->flags6 |= (RF6_TPORT); - if (lev > 15) r_ptr->flags5 |= (RF5_BO_ACID); - if (lev > 20) r_ptr->flags5 |= (RF5_BO_FIRE); - if (lev > 25) r_ptr->flags5 |= (RF5_BA_COLD); - if (lev > 25) r_ptr->flags6 |= (RF6_HASTE); - if (lev > 30) r_ptr->flags5 |= (RF5_BA_FIRE); - if (lev > 40) r_ptr->flags5 |= (RF5_BO_MANA); - if (lev > 50) r_ptr->flags6 |= (RF6_S_DRAGON); - if (lev > 60) r_ptr->flags5 |= (RF5_BA_MANA); - if (lev > 70) r_ptr->flags6 |= (RF6_S_HI_UNDEAD); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_RED; - break; - } - - /* Priest */ - case CLASS_PRIEST: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 4; - r_ptr->flags5 |= (RF5_CAUSE_1 | RF5_SCARE); - if (lev > 5) r_ptr->flags6 |= (RF6_HEAL); - if (lev > 10) r_ptr->flags5 |= (RF5_BLIND); - if (lev > 12) r_ptr->flags5 |= (RF5_CAUSE_2); - if (lev > 18) r_ptr->flags5 |= (RF5_HOLD); - if (lev > 25) r_ptr->flags5 |= (RF5_CONF); - if (lev > 30) r_ptr->flags5 |= (RF5_CAUSE_3); - if (lev > 35) r_ptr->flags5 |= (RF5_DRAIN_MANA); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_L_BLUE; - break; - } - - /* Rogue */ - case CLASS_ROGUE: - case CLASS_MERCHANT: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 6; - r_ptr->flags6 |= (RF6_BLINK); - if (lev > 10) r_ptr->flags5 |= (RF5_CONF); - if (lev > 18) r_ptr->flags5 |= (RF5_SLOW); - if (lev > 25) r_ptr->flags6 |= (RF6_TPORT); - if (lev > 30) r_ptr->flags5 |= (RF5_HOLD); - if (lev > 35) r_ptr->flags6 |= (RF6_TELE_TO); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_BLUE; - break; - } - - /* Ranger */ - case CLASS_RANGER: - case CLASS_WARLOCK: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 6; - r_ptr->flags4 |= (RF4_ARROW_1); - if (lev > 5) r_ptr->flags5 |= (RF5_BA_POIS); - if (lev > 7) r_ptr->flags5 |= (RF5_BO_ELEC); - if (lev > 10) r_ptr->flags5 |= (RF5_BO_COLD); - if (lev > 18) r_ptr->flags5 |= (RF5_BO_ACID); - if (lev > 25) r_ptr->flags5 |= (RF5_BO_FIRE); - if (lev > 30) r_ptr->flags5 |= (RF5_BA_COLD); - if (lev > 35) r_ptr->flags5 |= (RF5_BA_FIRE); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_GREEN; - break; - } - - /* Paladin */ - case CLASS_PALADIN: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 8; - r_ptr->flags5 |= (RF5_CAUSE_1 | RF5_SCARE); - if (lev > 5) r_ptr->flags6 |= (RF6_HEAL); - if (lev > 10) r_ptr->flags5 |= (RF5_BLIND); - if (lev > 12) r_ptr->flags5 |= (RF5_CAUSE_2); - if (lev > 18) r_ptr->flags5 |= (RF5_HOLD); - if (lev > 25) r_ptr->flags5 |= (RF5_CONF); - if (lev > 30) r_ptr->flags5 |= (RF5_CAUSE_3); - if (lev > 35) r_ptr->flags5 |= (RF5_DRAIN_MANA); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_WHITE; - break; - } - - /* Beastmaster */ - case CLASS_BEASTMASTER: - case CLASS_DAEMONOLOGIST: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 3; - r_ptr->flags6 |= (RF6_S_KIN); - if (lev > 10) r_ptr->flags6 |= (RF6_S_SPIDER); - if (lev > 15) r_ptr->flags6 |= (RF6_S_MONSTERS); - if (lev > 20) r_ptr->flags6 |= (RF6_S_HOUND); - if (lev > 35) r_ptr->flags6 |= (RF6_S_DEMON); - if (lev > 30) r_ptr->flags6 |= (RF6_S_UNDEAD); - if (lev > 35) r_ptr->flags6 |= (RF6_S_DRAGON); - if (lev > 40) r_ptr->flags6 |= (RF6_S_HI_UNDEAD); - if (lev > 45) r_ptr->flags6 |= (RF6_S_HI_DRAGON); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_UMBER; - break; - } - - /* Mindcrafter */ - case CLASS_MINDCRAFTER: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 4; - r_ptr->flags5 |= (RF5_CAUSE_1 | RF5_SCARE); - if (lev > 5) r_ptr->flags6 |= (RF6_HEAL); - if (lev > 10) r_ptr->flags5 |= (RF5_MIND_BLAST); - if (lev > 12) r_ptr->flags6 |= (RF6_FORGET); - if (lev > 18) r_ptr->flags5 |= (RF5_BRAIN_SMASH); - if (lev > 25) r_ptr->flags5 |= (RF5_CONF); - if (lev > 30) r_ptr->flags5 |= (RF5_CAUSE_3); - if (lev > 35) r_ptr->flags5 |= (RF5_DRAIN_MANA); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_L_BLUE; - break; - } - - /* Possessor */ - case CLASS_POSSESSOR: - case CLASS_MIMIC: - { - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 4; - if (lev > 7) r_ptr->flags4 |= (RF4_BR_ELEC); - if (lev > 10) r_ptr->flags4 |= (RF4_BR_COLD); - if (lev > 18) r_ptr->flags4 |= (RF4_BR_ACID); - if (lev > 25) r_ptr->flags4 |= (RF4_BR_FIRE); - if (lev > 35) r_ptr->flags4 |= (RF4_BR_CHAO); - if (lev > 45) r_ptr->flags4 |= (RF4_BR_TIME); - r_ptr->flags1 |= (RF1_CHAR_MULTI); - r_ptr->flags1 |= (RF1_ATTR_MULTI); - - /* Use a "player" color */ - r_ptr->d_attr = TERM_UMBER; - break; - } - - default: - { - /* Use a "player" color */ - r_ptr->d_attr = TERM_WHITE; - break; - } - } - - - /* Racial properties */ - if (grace == RACE_HALF_ORC) r_ptr->flags3 |= (RF3_ORC); - if (grace == RACE_KOBOLD) r_ptr->flags3 |= (RF3_ORC); - if (grace == RACE_HALF_TROLL) r_ptr->flags3 |= (RF3_TROLL); - if (grace == RACE_THUNDERLORD) r_ptr->flags3 |= (RF3_THUNDERLORD); - - - /* Armor class */ - r_ptr->ac = 15 + randint(15); - - /* Non mage/priest gets extra armor */ - if ((gclass != CLASS_MAGE) && (gclass != CLASS_PRIEST)) - { - r_ptr->ac += randint(60); - } - - - /* Default speed (normal) */ - r_ptr->speed = 110; - - /* Higher level they are faster */ - if (lev >= 50) r_ptr->speed += 10; - - /* High level mages are fast... */ - if ((gclass == CLASS_MAGE) && (lev >= 20)) r_ptr->speed += 10; - - /* High level rogues are fast... */ - if ((gclass == CLASS_ROGUE) && (lev >= 30)) r_ptr->speed += 10; - - - /* Base damage */ - d1 = 1; - d2 = 2 * (lev + 5); - - /* Break up the damage */ - while ((d1 * 8) < d2) - { - d1 = d1 * 2; - d2 = d2 / 2; - } - - attack1 = attack2 = RBM_HIT; - - /* Extract attacks */ - switch (gclass) - { - - /* Warrior */ - case CLASS_WARRIOR: - case CLASS_UNBELIEVER: - case CLASS_ARCHER: - case CLASS_MONK: - case CLASS_SYMBIANT: - case CLASS_BEASTMASTER: - case CLASS_DAEMONOLOGIST: - case CLASS_POSSESSOR: - case CLASS_MIMIC: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 2; - - /* Normal attacks (four) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(1, attack2, RBE_HURT, d1, d2); - ghost_blow(2, attack1, RBE_HURT, d1, d2); - ghost_blow(3, attack2, RBE_HURT, d1, d2); - - break; - } - - /* Mage */ - case CLASS_MAGE: - case CLASS_HIGH_MAGE: - case CLASS_POWERMAGE: - case CLASS_RUNECRAFTER: - case CLASS_HARPER: - case CLASS_SORCERER: - case CLASS_ILLUSIONIST: - case CLASS_DRUID: - case CLASS_NECRO: - case CLASS_ALCHEMIST: - case CLASS_CHAOS_WARRIOR: - case CLASS_MERCHANT: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 3 / 2; - - /* Normal attacks (one) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - - break; - } - - /* Priest */ - case CLASS_PRIEST: - case CLASS_MINDCRAFTER: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 3 / 2; - - /* Normal attacks (two) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(0, attack2, RBE_HURT, d1, d2); - - break; - } - - /* Rogue */ - case CLASS_ROGUE: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 2; - - /* Normal attacks */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(1, attack2, RBE_HURT, d1, d2); - - /* Special attacks -- Touch to steal */ - ghost_blow(2, RBM_TOUCH, RBE_EAT_ITEM, 0, 0); - ghost_blow(3, RBM_TOUCH, RBE_EAT_ITEM, 0, 0); - - break; - } - - /* Ranger */ - case CLASS_RANGER: - case CLASS_WARLOCK: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 2; - - /* Normal attacks (three) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(1, attack2, RBE_HURT, d1, d2); - ghost_blow(2, attack1, RBE_HURT, d1, d2); - - break; - } - - /* Paladin */ - case CLASS_PALADIN: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 2; - - /* Normal attacks (three) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(1, attack2, RBE_HURT, d1, d2); - ghost_blow(2, attack1, RBE_HURT, d1, d2); - break; - } - - default: - { - /* Sometimes increase damage */ - if (lev >= 30) d2 = d2 * 2; - - /* Normal attacks (four) */ - ghost_blow(0, attack1, RBE_HURT, d1, d2); - ghost_blow(1, attack2, RBE_HURT, d1, d2); - ghost_blow(2, attack1, RBE_HURT, d1, d2); - ghost_blow(3, attack2, RBE_HURT, d1, d2); - - break; - } - } -} - - - -/* - * Prepare the ghost -- method 2 - */ -static void set_ghost_aux_2(void) -{ - monster_race *r_ptr = &r_info[max_r_idx - 1]; - - int lev = r_ptr->level; - - int grace = ghost_race; - - cptr gr_name = rp_name + race_info[grace].title; - - - /* The ghost is cold blooded */ - r_ptr->flags2 |= (RF2_COLD_BLOOD); - - /* The ghost is undead */ - r_ptr->flags3 |= (RF3_UNDEAD); - - /* The ghost is immune to poison */ - r_ptr->flags3 |= (RF3_IM_POIS); - - - switch ((lev / 4) + randint(3)) - { - case 1: - case 2: - case 3: - { - sprintf(r_name + r_ptr->name, "%s, the Skeleton %s", gb_name, gr_name); - r_ptr->d_char = 's'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - r_ptr->flags3 |= (RF3_IM_COLD); - if (grace == RACE_HALF_ORC) r_ptr->flags3 |= (RF3_ORC); - if (grace == RACE_HALF_TROLL) r_ptr->flags3 |= (RF3_TROLL); - if (grace == RACE_THUNDERLORD) r_ptr->flags3 |= (RF3_THUNDERLORD); - r_ptr->ac = 26; - r_ptr->speed = 110; - - ghost_blow(0, RBM_HIT, RBE_HURT, 2, 6); - ghost_blow(1, RBM_HIT, RBE_HURT, 2, 6); - - break; - } - - case 4: - case 5: - { - sprintf(r_name + r_ptr->name, "%s, the Zombified %s", gb_name, gr_name); - r_ptr->d_char = 'z'; - r_ptr->d_attr = TERM_L_DARK; - r_ptr->flags1 |= (RF1_DROP_60 | RF1_DROP_90); - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - if (grace == RACE_HALF_ORC) r_ptr->flags3 |= (RF3_ORC); - if (grace == RACE_HALF_TROLL) r_ptr->flags3 |= (RF3_TROLL); - if (grace == RACE_THUNDERLORD) r_ptr->flags3 |= (RF3_THUNDERLORD); - r_ptr->ac = 30; - r_ptr->speed = 110; - r_ptr->hside *= 2; - - ghost_blow(0, RBM_HIT, RBE_HURT, 2, 9); - - break; - } - - case 6: - case 7: - { - sprintf(r_name + r_ptr->name, "%s, the Mummified %s", gb_name, gr_name); - r_ptr->d_char = 'z'; - r_ptr->d_attr = TERM_L_DARK; - r_ptr->flags1 |= (RF1_DROP_1D2); - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - if (grace == RACE_HALF_ORC) r_ptr->flags3 |= (RF3_ORC); - if (grace == RACE_HALF_TROLL) r_ptr->flags3 |= (RF3_TROLL); - if (grace == RACE_THUNDERLORD) r_ptr->flags3 |= (RF3_THUNDERLORD); - r_ptr->ac = 35; - r_ptr->speed = 110; - r_ptr->hside *= 2; - r_ptr->mexp = (r_ptr->mexp * 3) / 2; - - ghost_blow(0, RBM_HIT, RBE_HURT, 3, 8); - ghost_blow(1, RBM_HIT, RBE_HURT, 3, 8); - ghost_blow(2, RBM_HIT, RBE_HURT, 3, 8); - - break; - } - - case 8: - { - sprintf(r_name + r_ptr->name, "%s, the Poltergeist", gb_name); - r_ptr->d_char = 'G'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_RAND_50 | RF1_RAND_25 | RF1_DROP_1D2); - r_ptr->flags2 |= (RF2_INVISIBLE | RF2_PASS_WALL); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->ac = 20; - r_ptr->speed = 130; - r_ptr->mexp = (r_ptr->mexp * 3) / 2; - - ghost_blow(0, RBM_HIT, RBE_HURT, 2, 6); - ghost_blow(1, RBM_HIT, RBE_HURT, 2, 6); - ghost_blow(2, RBM_TOUCH, RBE_TERRIFY, 0, 0); - ghost_blow(3, RBM_TOUCH, RBE_TERRIFY, 0, 0); - - break; - } - - case 9: - case 10: - { - sprintf(r_name + r_ptr->name, "%s, the Spirit", gb_name); - r_ptr->d_char = 'G'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_DROP_1D2); - r_ptr->flags2 |= (RF2_INVISIBLE | RF2_PASS_WALL); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->ac = 20; - r_ptr->speed = 110; - r_ptr->hside *= 2; - r_ptr->mexp = r_ptr->mexp * 3; - - ghost_blow(0, RBM_TOUCH, RBE_LOSE_WIS, 2, 6); - ghost_blow(1, RBM_TOUCH, RBE_LOSE_DEX, 2, 6); - ghost_blow(2, RBM_HIT, RBE_HURT, 4, 6); - ghost_blow(3, RBM_WAIL, RBE_TERRIFY, 0, 0); - - break; - } - - case 11: - { - sprintf(r_name + r_ptr->name, "%s, the Ghost", gb_name); - r_ptr->d_char = 'G'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_DROP_1D2); - r_ptr->flags2 |= (RF2_INVISIBLE | RF2_PASS_WALL); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->flags5 |= (RF5_BLIND | RF5_HOLD | RF5_DRAIN_MANA); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 15; - r_ptr->ac = 40; - r_ptr->speed = 120; - r_ptr->hside *= 2; - r_ptr->mexp = (r_ptr->mexp * 7) / 2; - - ghost_blow(0, RBM_WAIL, RBE_TERRIFY, 0, 0); - ghost_blow(1, RBM_TOUCH, RBE_EXP_20, 0, 0); - ghost_blow(2, RBM_CLAW, RBE_LOSE_INT, 2, 6); - ghost_blow(3, RBM_CLAW, RBE_LOSE_WIS, 2, 6); - - break; - } - - case 12: - { - sprintf(r_name + r_ptr->name, "%s, the Vampire", gb_name); - r_ptr->d_char = 'V'; - r_ptr->d_attr = TERM_VIOLET; - r_ptr->flags1 |= (RF1_DROP_2D2); - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - r_ptr->flags3 |= (RF3_HURT_LITE); - r_ptr->flags5 |= (RF5_SCARE | RF5_HOLD | RF5_CAUSE_2); - r_ptr->flags6 |= (RF6_TELE_TO); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 8; - r_ptr->ac = 40; - r_ptr->speed = 110; - r_ptr->hside *= 3; - r_ptr->mexp = r_ptr->mexp * 3; - - ghost_blow(0, RBM_HIT, RBE_HURT, 5, 8); - ghost_blow(1, RBM_HIT, RBE_HURT, 5, 8); - ghost_blow(2, RBM_BITE, RBE_EXP_40, 0, 0); - - break; - } - - case 13: - { - sprintf(r_name + r_ptr->name, "%s, the Wraith", gb_name); - r_ptr->d_char = 'W'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_DROP_2D2 | RF1_DROP_4D2); - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - r_ptr->flags3 |= (RF3_IM_COLD | RF3_HURT_LITE); - r_ptr->flags5 |= (RF5_BLIND | RF5_SCARE | RF5_HOLD); - r_ptr->flags5 |= (RF5_CAUSE_3 | RF5_BO_NETH); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 7; - r_ptr->ac = 60; - r_ptr->speed = 120; - r_ptr->hside *= 3; - r_ptr->mexp = r_ptr->mexp * 5; - - ghost_blow(0, RBM_HIT, RBE_HURT, 6, 8); - ghost_blow(1, RBM_HIT, RBE_HURT, 6, 8); - ghost_blow(2, RBM_TOUCH, RBE_EXP_20, 0, 0); - - break; - } - - case 14: - { - sprintf(r_name + r_ptr->name, "%s, the Vampire Lord", gb_name); - r_ptr->d_char = 'V'; - r_ptr->d_attr = TERM_BLUE; - r_ptr->flags1 |= (RF1_DROP_1D2 | RF1_DROP_GREAT); - r_ptr->flags2 |= (RF2_OPEN_DOOR | RF2_BASH_DOOR); - r_ptr->flags3 |= (RF3_HURT_LITE); - r_ptr->flags5 |= (RF5_SCARE | RF5_HOLD | RF5_CAUSE_3 | RF5_BO_NETH); - r_ptr->flags6 |= (RF6_TELE_TO); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 8; - r_ptr->ac = 80; - r_ptr->speed = 110; - r_ptr->hside *= 2; - r_ptr->hdice *= 2; - r_ptr->mexp = r_ptr->mexp * 20; - - ghost_blow(0, RBM_HIT, RBE_HURT, 6, 8); - ghost_blow(1, RBM_HIT, RBE_HURT, 6, 8); - ghost_blow(2, RBM_HIT, RBE_HURT, 6, 8); - ghost_blow(3, RBM_BITE, RBE_EXP_80, 0, 0); - - break; - } - - case 15: - { - sprintf(r_name + r_ptr->name, "%s, the Ghost", gb_name); - r_ptr->d_char = 'G'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_DROP_2D2 | RF1_DROP_GREAT); - r_ptr->flags2 |= (RF2_INVISIBLE | RF2_PASS_WALL); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->flags5 |= (RF5_BLIND | RF5_CONF | RF5_HOLD | RF5_DRAIN_MANA); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 5; - r_ptr->ac = 90; - r_ptr->speed = 130; - r_ptr->hside *= 3; - r_ptr->mexp = r_ptr->mexp * 20; - - ghost_blow(0, RBM_WAIL, RBE_TERRIFY, 0, 0); - ghost_blow(1, RBM_TOUCH, RBE_EXP_20, 0, 0); - ghost_blow(2, RBM_CLAW, RBE_LOSE_INT, 2, 6); - ghost_blow(3, RBM_CLAW, RBE_LOSE_WIS, 2, 6); - - break; - } - - case 17: - { - sprintf(r_name + r_ptr->name, "%s, the Lich", gb_name); - r_ptr->d_char = 'L'; - r_ptr->d_attr = TERM_ORANGE; - r_ptr->flags1 |= (RF1_DROP_2D2 | RF1_DROP_1D2 | RF1_DROP_GREAT); - r_ptr->flags2 |= (RF2_SMART | RF2_OPEN_DOOR | RF2_BASH_DOOR); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->flags5 |= (RF5_BLIND | RF5_SCARE | RF5_CONF | RF5_HOLD); - r_ptr->flags5 |= (RF5_DRAIN_MANA | RF5_BA_FIRE | RF5_BA_COLD); - r_ptr->flags5 |= (RF5_CAUSE_3 | RF5_CAUSE_4 | RF5_BRAIN_SMASH); - r_ptr->flags6 |= (RF6_BLINK | RF6_TPORT | RF6_TELE_TO | RF6_S_UNDEAD); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 3; - r_ptr->ac = 120; - r_ptr->speed = 120; - r_ptr->hside *= 3; - r_ptr->hdice *= 2; - r_ptr->mexp = r_ptr->mexp * 50; - - ghost_blow(0, RBM_TOUCH, RBE_LOSE_DEX, 4, 12); - ghost_blow(1, RBM_TOUCH, RBE_LOSE_DEX, 4, 12); - ghost_blow(2, RBM_TOUCH, RBE_UN_POWER, 0, 0); - ghost_blow(3, RBM_TOUCH, RBE_EXP_40, 0, 0); - - break; - } - - default: - { - sprintf(r_name + r_ptr->name, "%s, the Ghost", gb_name); - r_ptr->d_char = 'G'; - r_ptr->d_attr = TERM_WHITE; - r_ptr->flags1 |= (RF1_DROP_1D2 | RF1_DROP_2D2 | RF1_DROP_GREAT); - r_ptr->flags2 |= (RF2_SMART | RF2_INVISIBLE | RF2_PASS_WALL); - r_ptr->flags3 |= (RF3_IM_COLD); - r_ptr->flags5 |= (RF5_BLIND | RF5_CONF | RF5_HOLD | RF5_BRAIN_SMASH); - r_ptr->flags5 |= (RF5_DRAIN_MANA | RF5_BA_NETH | RF5_BO_NETH); - r_ptr->flags6 |= (RF6_TELE_TO | RF6_TELE_LEVEL); - r_ptr->freq_inate = r_ptr->freq_spell = 100 / 2; - r_ptr->ac = 130; - r_ptr->speed = 130; - r_ptr->hside *= 2; - r_ptr->hdice *= 2; - r_ptr->mexp = r_ptr->mexp * 30; - - ghost_blow(0, RBM_WAIL, RBE_TERRIFY, 0, 0); - ghost_blow(1, RBM_TOUCH, RBE_EXP_20, 0, 0); - ghost_blow(2, RBM_CLAW, RBE_LOSE_INT, 2, 6); - ghost_blow(3, RBM_CLAW, RBE_LOSE_WIS, 2, 6); - - break; - } - } -} - - -/* - * Hack -- Prepare the "ghost" race - * - * We are given a "name" of the form "Bob" (or "Bob, the xxx"), and - * a race/class (by index), and a level (usually the dungeon level), - * and a special "town" flag (which chooses the major ghost "type"). - * - * Note that "town" ghosts are always level 1 to 50, and other ghosts - * are always level 1 to 100 (or deeper?) - * - * Currently we save the current "ghost race info" in the savefile. - * Note that ghosts from pre-2.7.7 savefiles are always ignored. - * - * Eventually we should probably save the ghost in such a way as - * to allow it to be "re-extracted" from a small amount of info, - * such as the "base name", the "race", the "class", the base "hp", - * the "level", the "town" flag, and the "random seed". This would - * make the savefile impervious to changes in the race format. - * - * Thus we would need to save "pn", "hp", "gr", "gc", and "lev", - * plus the "town" flag, plus a random seed of some form. Note that - * we already save the "pn" value, followed by a "comma" and "title", - * and we have the "lev" field as the actual ghost level. But it is - * probably best to ignore this storage method for a few versions. - * - * We "could" extract the "hp" from the ghost name and current hp's. - * We "could" extract the "town" flag from the ghost race symbol. - * - * Note that each new ghost needs a new "random seed". And actually, - * we do not really need a "full" random seed, we could just use a - * random value from which random numbers can be extracted. (?) - */ -static void set_ghost(cptr pname, int hp, int grace, int gclass, int lev, bool town) -{ - int i; - - monster_race *r_ptr = &r_info[max_r_idx - 1]; - - /* Ghosts are too weak otherwise */ - hp *= 2; - - /* Extract the basic ghost name */ - strcpy(gb_name, pname); - - /* Find the first comma, or end of string */ - for (i = 0; (i < 16) && (gb_name[i]) && (gb_name[i] != ','); i++); - - /* Terminate the name */ - gb_name[i] = '\0'; - - /* Force a name */ - if (!gb_name[1]) strcpy(gb_name, "Nobody"); - - /* Capitalize the name */ - if (islower(gb_name[0])) gb_name[0] = toupper(gb_name[0]); - - - /* Clear the normal flags */ - r_ptr->flags1 = r_ptr->flags2 = r_ptr->flags3 = r_ptr->flags7 = r_ptr->flags8 = r_ptr->flags9 = 0L; - - /* Clear the spell flags */ - r_ptr->flags4 = r_ptr->flags5 = r_ptr->flags6 = 0L; - - - /* Clear the attacks */ - ghost_blow(0, 0, 0, 0, 0); - ghost_blow(1, 0, 0, 0, 0); - ghost_blow(2, 0, 0, 0, 0); - ghost_blow(3, 0, 0, 0, 0); - - - /* The ghost never sleeps */ - r_ptr->sleep = 0; - - /* The ghost is very attentive */ - r_ptr->aaf = 100; - - - /* Save the level */ - r_ptr->level = lev; - - /* Extract the default experience */ - r_ptr->mexp = lev * 5 + 5; - - - /* Hack -- Break up the hitpoints */ - for (i = 1; i * i < hp; i++); - - /* Extract the basic hit dice and sides */ - r_ptr->hdice = r_ptr->hside = i; - - - /* Unique monster */ - r_ptr->flags1 |= (RF1_UNIQUE); - - /* Only carry good items */ - r_ptr->flags1 |= (RF1_ONLY_ITEM | RF1_DROP_GOOD); - - /* The ghost is always evil */ - r_ptr->flags3 |= (RF3_EVIL); - - /* Cannot be slept or confused */ - r_ptr->flags3 |= (RF3_NO_SLEEP | RF3_NO_CONF); - - /* All ghosts are undeads */ - r_ptr->flags3 |= RF3_UNDEAD; - - - /* Save the race and class */ - ghost_race = grace; - ghost_class = gclass; - - - /* Prepare the ghost (method 1) */ - if (town) - { - /* Method 1 */ - set_ghost_aux_1(); - } - - /* Prepare the ghost (method 2) */ - else - { - /* Method 2 */ - set_ghost_aux_2(); - } -} -#endif - - -/* - * Places a ghost somewhere. - */ -s16b place_ghost(void) -{ -#if 0 /* DGDGDGDG */ - int y, x, hp, level, grace, gclass; - - monster_race *r_ptr = &r_info[max_r_idx - 1]; - - FILE *fp; - - bool err = FALSE; - bool town = FALSE; - - char name[100]; - char tmp[1024]; - - /* Hack -- no ghosts in the town */ - if (!dun_level) return (FALSE); - - /* Already have a ghost */ - if (r_ptr->cur_num >= r_ptr->max_num) - { - return (FALSE); - } - - /* Dungeon -- Use Dungeon Level */ - else - { - /* And even then, it only happens sometimes */ - if (14 > randint((dun_level / 2) + 11)) return (FALSE); - - /* Only a 45% chance */ - if (magik(45)) return (FALSE); - - /* Level is dungeon level */ - level = dun_level; - } - - - /* Choose a bones file */ - sprintf(tmp, "%s%sbone%03d.%03d", ANGBAND_DIR_BONE, PATH_SEP, dungeon_type, level); - - /* Grab permission */ - safe_setuid_grab(); - - /* Open the bones file */ - fp = my_fopen(tmp, "r"); - - /* Drop permission */ - safe_setuid_drop(); - - /* No bones file to use */ - if (!fp) return (FALSE); - - /* Scan the file */ - err = (fscanf(fp, "%[^\n]\n%d\n%d\n%d", name, &hp, &grace, &gclass) != 4); - - - /* Close the file */ - fclose(fp); - - /* Previously, the bone file would now be deleted. The new - * method is to only remove the bone file when the ghost is - * destroyed. This means that failing to kill a ghost will - * not lose it permenently -TM- - * fd_kill(tmp); */ - - /* Catch errors */ - if (err) - { - msg_print("Warning -- deleted corrupt 'ghost' file!"); - return (FALSE); - } - - /* Create "town" flag */ - /* TM- What is this? Previously, if the player and dungeon levels - * were equal then a 'town' ghost was created. I can't see why - * 'town'. They are simply ghosts with abilities determined by - * previous class. Currently we just pick between the two. - * WAS: if (level == p_ptr->lev) town = TRUE; - */ - if (!rand_int(2)) town = TRUE; - - /* Set up the ghost */ - set_ghost(name, hp, grace, gclass, level, town); - - - /* Hack -- pick a nice (far away) location */ - while (1) - { - - /* Pick a location */ - y = randint(cur_hgt - 2); - x = randint(cur_wid - 2); - - /* Require "naked" floor grid */ - if (!cave_empty_bold(y, x)) continue; - - /* Accept far away grids */ - if (distance(p_ptr->py, p_ptr->px, y, x) > MAX_SIGHT + 5) break; - } - - - /*** Place the Ghost by Hand (so no-one else does it accidentally) ***/ - - r_ptr->cur_num = 0; - r_ptr->max_num = 1; - - if (!place_monster_one(y, x, max_r_idx - 1, 0, FALSE, MSTATUS_ENEMY)) - { - return FALSE; - } - - /* Make sure it looks right */ - r_ptr->x_attr = r_ptr->d_attr; - r_ptr->x_char = r_ptr->d_char; - return TRUE; -#else - return (FALSE); -#endif -} |