static bool quaff_potion(object_type *o_ptr, bool *ident) { /* Analyze the potion */ switch (o_ptr->sval) { case SV_POTION_WATER: case SV_POTION_APPLE_JUICE: case SV_POTION_SLIME_MOLD: { msg_print("You feel less thirsty."); *ident = TRUE; break; } case SV_POTION_SLOWNESS: { if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE; break; } case SV_POTION_SALT_WATER: { msg_print("The potion makes you vomit!"); (void)set_food(PY_FOOD_STARVE - 1); (void)set_poisoned(0); (void)set_paralyzed(p_ptr->paralyzed + 4); *ident = TRUE; break; } case SV_POTION_POISON: { if (!(p_ptr->resist_pois || p_ptr->oppose_pois)) { if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10)) { *ident = TRUE; } } break; } case SV_POTION_BLINDNESS: { if (!p_ptr->resist_blind) { if (set_blind(p_ptr->blind + rand_int(100) + 100)) { *ident = TRUE; } } break; } case SV_POTION_CONFUSION: { if (!p_ptr->resist_confu) { if (set_confused(p_ptr->confused + rand_int(20) + 15)) { *ident = TRUE; } } break; } case SV_POTION_SLEEP: { if (!p_ptr->free_act) { if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4)) { *ident = TRUE; } } break; } case SV_POTION_LOSE_MEMORIES: { if (!p_ptr->hold_life && (p_ptr->exp > 0)) { msg_print("You feel your memories fade."); lose_exp(p_ptr->exp / 4); *ident = TRUE; } break; } case SV_POTION_RUINATION: { msg_print("Your nerves and muscles feel weak and lifeless!"); take_hit(damroll(10, 10), "a potion of Ruination"); (void)dec_stat(A_DEX, 25, TRUE); (void)dec_stat(A_WIS, 25, TRUE); (void)dec_stat(A_CON, 25, TRUE); (void)dec_stat(A_STR, 25, TRUE); (void)dec_stat(A_CHR, 25, TRUE); (void)dec_stat(A_INT, 25, TRUE); *ident = TRUE; break; } case SV_POTION_DEC_STR: { if (do_dec_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_DEC_INT: { if (do_dec_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_DEC_WIS: { if (do_dec_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_DEC_DEX: { if (do_dec_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_DEC_CON: { if (do_dec_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_DEC_CHR: { if (do_dec_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_DETONATIONS: { msg_print("Massive explosions rupture your body!"); take_hit(damroll(50, 20), "a potion of Detonation"); (void)set_stun(p_ptr->stun + 75); (void)set_cut(p_ptr->cut + 5000); *ident = TRUE; break; } case SV_POTION_DEATH: { msg_print("A feeling of Death flows through your body."); take_hit(5000, "a potion of Death"); *ident = TRUE; break; } case SV_POTION_INFRAVISION: { if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100))) { *ident = TRUE; } break; } case SV_POTION_DETECT_INVIS: { if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12))) { *ident = TRUE; } break; } case SV_POTION_SLOW_POISON: { if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE; break; } case SV_POTION_CURE_POISON: { if (set_poisoned(0)) *ident = TRUE; break; } case SV_POTION_BOLDNESS: { if (set_afraid(0)) *ident = TRUE; break; } case SV_POTION_SPEED: { if (!p_ptr->fast) { if (set_fast(randint(25) + 15)) *ident = TRUE; } else { (void)set_fast(p_ptr->fast + 5); } break; } case SV_POTION_RESIST_HEAT: { if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10)) { *ident = TRUE; } break; } case SV_POTION_RESIST_COLD: { if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10)) { *ident = TRUE; } break; } case SV_POTION_HEROISM: { if (hp_player(10)) *ident = TRUE; if (set_afraid(0)) *ident = TRUE; if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE; break; } case SV_POTION_BERSERK_STRENGTH: { if (hp_player(30)) *ident = TRUE; if (set_afraid(0)) *ident = TRUE; if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE; break; } case SV_POTION_CURE_LIGHT: { if (hp_player(damroll(2, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_cut(p_ptr->cut - 10)) *ident = TRUE; break; } case SV_POTION_CURE_SERIOUS: { if (hp_player(damroll(4, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE; break; } case SV_POTION_CURE_CRITICAL: { if (hp_player(damroll(6, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_HEALING: { if (hp_player(300)) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_STAR_HEALING: { if (hp_player(1200)) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_LIFE: { msg_print("You feel life flow through your body!"); restore_level(); (void)set_poisoned(0); (void)set_blind(0); (void)set_confused(0); (void)set_image(0); (void)set_stun(0); (void)set_cut(0); (void)do_res_stat(A_STR); (void)do_res_stat(A_CON); (void)do_res_stat(A_DEX); (void)do_res_stat(A_WIS); (void)do_res_stat(A_INT); (void)do_res_stat(A_CHR); /* Recalculate max. hitpoints */ update_stuff(); hp_player(5000); *ident = TRUE; break; } case SV_POTION_RESTORE_MANA: { if (p_ptr->csp < p_ptr->msp) { p_ptr->csp = p_ptr->msp; p_ptr->csp_frac = 0; msg_print("Your feel your head clear."); p_ptr->redraw |= (PR_MANA); p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1); *ident = TRUE; } break; } case SV_POTION_RESTORE_EXP: { if (restore_level()) *ident = TRUE; break; } case SV_POTION_RES_STR: { if (do_res_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_RES_INT: { if (do_res_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_RES_WIS: { if (do_res_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_RES_DEX: { if (do_res_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_RES_CON: { if (do_res_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_RES_CHR: { if (do_res_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_INC_STR: { if (do_inc_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_INC_INT: { if (do_inc_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_INC_WIS: { if (do_inc_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_INC_DEX: { if (do_inc_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_INC_CON: { if (do_inc_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_INC_CHR: { if (do_inc_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_AUGMENTATION: { if (do_inc_stat(A_STR)) *ident = TRUE; if (do_inc_stat(A_INT)) *ident = TRUE; if (do_inc_stat(A_WIS)) *ident = TRUE; if (do_inc_stat(A_DEX)) *ident = TRUE; if (do_inc_stat(A_CON)) *ident = TRUE; if (do_inc_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_ENLIGHTENMENT: { msg_print("An image of your surroundings forms in your mind..."); wiz_lite(); *ident = TRUE; break; } case SV_POTION_STAR_ENLIGHTENMENT: { msg_print("You begin to feel more enlightened..."); message_flush(); wiz_lite(); (void)do_inc_stat(A_INT); (void)do_inc_stat(A_WIS); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); (void)detect_treasure(); (void)detect_objects_gold(); (void)detect_objects_normal(); identify_pack(); self_knowledge(); *ident = TRUE; break; } case SV_POTION_SELF_KNOWLEDGE: { msg_print("You begin to know yourself a little better..."); message_flush(); self_knowledge(); *ident = TRUE; break; } case SV_POTION_EXPERIENCE: { if (p_ptr->exp < PY_MAX_EXP) { s32b ee = (p_ptr->exp / 2) + 10; if (ee > 100000L) ee = 100000L; msg_print("You feel more experienced."); gain_exp(ee); *ident = TRUE; } break; } } return (TRUE); }
static bool read_scroll(object_type *o_ptr, bool *ident) { int py = p_ptr->py; int px = p_ptr->px; int k; bool used_up = TRUE; /* Analyze the scroll */ switch (o_ptr->sval) { case SV_SCROLL_DARKNESS: { if (!p_ptr->resist_blind) { (void)set_blind(p_ptr->blind + 3 + randint(5)); } if (unlite_area(10, 3)) *ident = TRUE; break; } case SV_SCROLL_AGGRAVATE_MONSTER: { msg_print("There is a high pitched humming noise."); aggravate_monsters(0); *ident = TRUE; break; } case SV_SCROLL_CURSE_ARMOR: { if (curse_armor()) *ident = TRUE; break; } case SV_SCROLL_CURSE_WEAPON: { if (curse_weapon()) *ident = TRUE; break; } case SV_SCROLL_SUMMON_MONSTER: { for (k = 0; k < randint(3); k++) { if (summon_specific(py, px, p_ptr->depth, 0)) { *ident = TRUE; } } break; } case SV_SCROLL_SUMMON_UNDEAD: { for (k = 0; k < randint(3); k++) { if (summon_specific(py, px, p_ptr->depth, SUMMON_UNDEAD)) { *ident = TRUE; } } break; } case SV_SCROLL_TRAP_CREATION: { if (trap_creation()) *ident = TRUE; break; } case SV_SCROLL_PHASE_DOOR: { teleport_player(10); *ident = TRUE; break; } case SV_SCROLL_TELEPORT: { teleport_player(100); *ident = TRUE; break; } case SV_SCROLL_TELEPORT_LEVEL: { (void)teleport_player_level(); *ident = TRUE; break; } case SV_SCROLL_WORD_OF_RECALL: { set_recall(); *ident = TRUE; break; } case SV_SCROLL_IDENTIFY: { *ident = TRUE; if (!ident_spell()) used_up = FALSE; break; } case SV_SCROLL_STAR_IDENTIFY: { *ident = TRUE; if (!identify_fully()) used_up = FALSE; break; } case SV_SCROLL_REMOVE_CURSE: { if (remove_curse()) { msg_print("You feel as if someone is watching over you."); *ident = TRUE; } break; } case SV_SCROLL_STAR_REMOVE_CURSE: { remove_all_curse(); *ident = TRUE; break; } case SV_SCROLL_ENCHANT_ARMOR: { *ident = TRUE; if (!enchant_spell(0, 0, 1)) used_up = FALSE; break; } case SV_SCROLL_ENCHANT_WEAPON_TO_HIT: { if (!enchant_spell(1, 0, 0)) used_up = FALSE; *ident = TRUE; break; } case SV_SCROLL_ENCHANT_WEAPON_TO_DAM: { if (!enchant_spell(0, 1, 0)) used_up = FALSE; *ident = TRUE; break; } case SV_SCROLL_STAR_ENCHANT_ARMOR: { if (!enchant_spell(0, 0, randint(3) + 2)) used_up = FALSE; *ident = TRUE; break; } case SV_SCROLL_STAR_ENCHANT_WEAPON: { if (!enchant_spell(randint(3), randint(3), 0)) used_up = FALSE; *ident = TRUE; break; } case SV_SCROLL_RECHARGING: { if (!recharge(60)) used_up = FALSE; *ident = TRUE; break; } case SV_SCROLL_LIGHT: { if (lite_area(damroll(2, 8), 2)) *ident = TRUE; break; } case SV_SCROLL_MAPPING: { map_area(); *ident = TRUE; break; } case SV_SCROLL_DETECT_GOLD: { if (detect_treasure()) *ident = TRUE; if (detect_objects_gold()) *ident = TRUE; break; } case SV_SCROLL_DETECT_ITEM: { if (detect_objects_normal()) *ident = TRUE; break; } case SV_SCROLL_DETECT_TRAP: { if (detect_traps()) *ident = TRUE; break; } case SV_SCROLL_DETECT_DOOR: { if (detect_doors()) *ident = TRUE; if (detect_stairs()) *ident = TRUE; break; } case SV_SCROLL_DETECT_INVIS: { if (detect_monsters_invis()) *ident = TRUE; break; } case SV_SCROLL_SATISFY_HUNGER: { if (set_food(PY_FOOD_MAX - 1)) *ident = TRUE; break; } case SV_SCROLL_BLESSING: { if (set_blessed(p_ptr->blessed + randint(12) + 6)) *ident = TRUE; break; } case SV_SCROLL_HOLY_CHANT: { if (set_blessed(p_ptr->blessed + randint(24) + 12)) *ident = TRUE; break; } case SV_SCROLL_HOLY_PRAYER: { if (set_blessed(p_ptr->blessed + randint(48) + 24)) *ident = TRUE; break; } case SV_SCROLL_MONSTER_CONFUSION: { if (p_ptr->confusing == 0) { msg_print("Your hands begin to glow."); p_ptr->confusing = TRUE; *ident = TRUE; } break; } case SV_SCROLL_PROTECTION_FROM_EVIL: { k = 3 * p_ptr->lev; if (set_protevil(p_ptr->protevil + randint(25) + k)) *ident = TRUE; break; } case SV_SCROLL_RUNE_OF_PROTECTION: { warding_glyph(); *ident = TRUE; break; } case SV_SCROLL_TRAP_DOOR_DESTRUCTION: { if (destroy_doors_touch()) *ident = TRUE; break; } case SV_SCROLL_STAR_DESTRUCTION: { destroy_area(py, px, 15, TRUE); *ident = TRUE; break; } case SV_SCROLL_DISPEL_UNDEAD: { if (dispel_undead(60)) *ident = TRUE; break; } case SV_SCROLL_BANISHMENT: { (void)banishment(); *ident = TRUE; break; } case SV_SCROLL_MASS_BANISHMENT: { (void)mass_banishment(); *ident = TRUE; break; } case SV_SCROLL_ACQUIREMENT: { acquirement(py, px, 1, TRUE); *ident = TRUE; break; } case SV_SCROLL_STAR_ACQUIREMENT: { acquirement(py, px, randint(2) + 1, TRUE); *ident = TRUE; break; } } return (used_up); }
static bool zap_rod(object_type *o_ptr, bool *ident) { int chance, dir, lev; /* Get a direction (unless KNOWN not to need it) */ if ((o_ptr->sval >= SV_ROD_MIN_DIRECTION) || !object_aware_p(o_ptr)) { /* Get a direction, allow cancel */ if (!get_aim_dir(&dir)) return FALSE; } /* Take a turn */ p_ptr->energy_use = 100; /* Not identified yet */ *ident = FALSE; /* Extract the item level */ lev = k_info[o_ptr->k_idx].level; /* Base chance of success */ chance = p_ptr->skill_dev; /* Confusion hurts skill */ if (p_ptr->confused) chance = chance / 2; /* High level objects are harder */ chance = chance - ((lev > 50) ? 50 : lev); /* Give everyone a (slight) chance */ if ((chance < USE_DEVICE) && (rand_int(USE_DEVICE - chance + 1) == 0)) { chance = USE_DEVICE; } /* Roll for usage */ if ((chance < USE_DEVICE) || (randint(chance) < USE_DEVICE)) { if (flush_failure) flush(); msg_print("You failed to use the rod properly."); return FALSE; } /* Still charging */ if (o_ptr->pval) { if (flush_failure) flush(); msg_print("The rod is still charging."); return FALSE; } /* Sound */ sound(MSG_ZAP); /* Analyze the rod */ switch (o_ptr->sval) { case SV_ROD_DETECT_TRAP: { if (detect_traps()) *ident = TRUE; o_ptr->pval = 50; break; } case SV_ROD_DETECT_DOOR: { if (detect_doors()) *ident = TRUE; if (detect_stairs()) *ident = TRUE; o_ptr->pval = 70; break; } case SV_ROD_IDENTIFY: { *ident = TRUE; if (ident_spell()) o_ptr->pval = 10; break; } case SV_ROD_RECALL: { set_recall(); *ident = TRUE; o_ptr->pval = 60; break; } case SV_ROD_ILLUMINATION: { if (lite_area(damroll(2, 8), 2)) *ident = TRUE; o_ptr->pval = 30; break; } case SV_ROD_MAPPING: { map_area(); *ident = TRUE; o_ptr->pval = 99; break; } case SV_ROD_DETECTION: { detect_all(); *ident = TRUE; o_ptr->pval = 99; break; } case SV_ROD_PROBING: { probing(); *ident = TRUE; o_ptr->pval = 50; break; } case SV_ROD_CURING: { if (set_blind(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; o_ptr->pval = 999; break; } case SV_ROD_HEALING: { if (hp_player(500)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; o_ptr->pval = 999; break; } case SV_ROD_RESTORATION: { if (restore_level()) *ident = TRUE; if (do_res_stat(A_STR)) *ident = TRUE; if (do_res_stat(A_INT)) *ident = TRUE; if (do_res_stat(A_WIS)) *ident = TRUE; if (do_res_stat(A_DEX)) *ident = TRUE; if (do_res_stat(A_CON)) *ident = TRUE; if (do_res_stat(A_CHR)) *ident = TRUE; o_ptr->pval = 999; break; } case SV_ROD_SPEED: { if (!p_ptr->fast) { if (set_fast(randint(30) + 15)) *ident = TRUE; } else { (void)set_fast(p_ptr->fast + 5); } o_ptr->pval = 99; break; } case SV_ROD_TELEPORT_AWAY: { if (teleport_monster(dir)) *ident = TRUE; o_ptr->pval = 25; break; } case SV_ROD_DISARMING: { if (disarm_trap(dir)) *ident = TRUE; o_ptr->pval = 30; break; } case SV_ROD_LITE: { msg_print("A line of blue shimmering light appears."); lite_line(dir); *ident = TRUE; o_ptr->pval = 9; break; } case SV_ROD_SLEEP_MONSTER: { if (sleep_monster(dir)) *ident = TRUE; o_ptr->pval = 18; break; } case SV_ROD_SLOW_MONSTER: { if (slow_monster(dir)) *ident = TRUE; o_ptr->pval = 20; break; } case SV_ROD_DRAIN_LIFE: { if (drain_life(dir, 150)) *ident = TRUE; o_ptr->pval = 23; break; } case SV_ROD_POLYMORPH: { if (poly_monster(dir)) *ident = TRUE; o_ptr->pval = 25; break; } case SV_ROD_ACID_BOLT: { fire_bolt_or_beam(10, GF_ACID, dir, damroll(12, 8)); *ident = TRUE; o_ptr->pval = 12; break; } case SV_ROD_ELEC_BOLT: { fire_bolt_or_beam(10, GF_ELEC, dir, damroll(6, 6)); *ident = TRUE; o_ptr->pval = 11; break; } case SV_ROD_FIRE_BOLT: { fire_bolt_or_beam(10, GF_FIRE, dir, damroll(16, 8)); *ident = TRUE; o_ptr->pval = 15; break; } case SV_ROD_COLD_BOLT: { fire_bolt_or_beam(10, GF_COLD, dir, damroll(10, 8)); *ident = TRUE; o_ptr->pval = 13; break; } case SV_ROD_ACID_BALL: { fire_ball(GF_ACID, dir, 120, 2); *ident = TRUE; o_ptr->pval = 27; break; } case SV_ROD_ELEC_BALL: { fire_ball(GF_ELEC, dir, 64, 2); *ident = TRUE; o_ptr->pval = 23; break; } case SV_ROD_FIRE_BALL: { fire_ball(GF_FIRE, dir, 144, 2); *ident = TRUE; o_ptr->pval = 30; break; } case SV_ROD_COLD_BALL: { fire_ball(GF_COLD, dir, 96, 2); *ident = TRUE; o_ptr->pval = 25; break; } } return TRUE; }
/* * Activate a wielded object. Wielded objects never stack. * And even if they did, activatable objects never stack. * * Currently, only (some) artifacts, and Dragon Scale Mail, can be activated. * But one could, for example, easily make an activatable "Ring of Plasma". * * Note that it always takes a turn to activate an artifact, even if * the user hits "escape" at the "direction" prompt. */ static bool activate_object(object_type *o_ptr, bool *ident) { int k, dir, i, chance; /* Check the recharge */ if (o_ptr->timeout) { msg_print("It whines, glows and fades..."); return FALSE; } /* Activate the artifact */ message(MSG_ZAP, 0, "You activate it..."); /* Artifacts */ if (o_ptr->name1) { artifact_type *a_ptr = &a_info[o_ptr->name1]; char o_name[80]; /* Get the basic name of the object */ object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0); switch (a_ptr->activation) { case ACT_ILLUMINATION: { msg_format("The %s wells with clear light...", o_name); lite_area(damroll(2, 15), 3); break; } case ACT_MAGIC_MAP: { msg_format("The %s shines brightly...", o_name); map_area(); break; } case ACT_CLAIRVOYANCE: { msg_format("The %s glows a deep green...", o_name); wiz_lite(); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); break; } case ACT_PROT_EVIL: { msg_format("The %s lets out a shrill wail...", o_name); k = 3 * p_ptr->lev; (void)set_protevil(p_ptr->protevil + randint(25) + k); break; } case ACT_DISP_EVIL: { msg_format("The %s floods the area with goodness...", o_name); dispel_evil(p_ptr->lev * 5); break; } case ACT_HASTE2: { msg_format("The %s glows brightly...", o_name); if (!p_ptr->fast) { (void)set_fast(randint(75) + 75); } else { (void)set_fast(p_ptr->fast + 5); } break; } case ACT_FIRE3: { msg_format("The %s glows deep red...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_FIRE, dir, 120, 3); break; } case ACT_FROST5: { msg_format("The %s glows bright white...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 200, 3); break; } case ACT_ELEC2: { msg_format("The %s glows deep blue...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_ELEC, dir, 250, 3); break; } case ACT_BIZZARE: { msg_format("The %s glows intensely black...", o_name); if (!get_aim_dir(&dir)) return FALSE; ring_of_power(dir); break; } case ACT_STAR_BALL: { msg_format("Your %s is surrounded by lightning...", o_name); for (i = 0; i < 8; i++) fire_ball(GF_ELEC, ddd[i], 150, 3); break; } case ACT_RAGE_BLESS_RESIST: { msg_format("Your %s glows many colours...", o_name); (void)hp_player(30); (void)set_afraid(0); (void)set_shero(p_ptr->shero + randint(50) + 50); (void)set_blessed(p_ptr->blessed + randint(50) + 50); (void)set_oppose_acid(p_ptr->oppose_acid + randint(50) + 50); (void)set_oppose_elec(p_ptr->oppose_elec + randint(50) + 50); (void)set_oppose_fire(p_ptr->oppose_fire + randint(50) + 50); (void)set_oppose_cold(p_ptr->oppose_cold + randint(50) + 50); (void)set_oppose_pois(p_ptr->oppose_pois + randint(50) + 50); break; } case ACT_HEAL2: { msg_format("Your %s glows a bright white...", o_name); msg_print("You feel much better..."); (void)hp_player(1000); (void)set_cut(0); break; } case ACT_PHASE: { msg_format("Your %s twists space around you...", o_name); teleport_player(10); break; } case ACT_BANISHMENT: { msg_format("Your %s glows deep blue...", o_name); (void)banishment(); break; } case ACT_TRAP_DOOR_DEST: { msg_format("Your %s glows bright red...", o_name); destroy_doors_touch(); break; } case ACT_DETECT: { msg_format("Your %s glows bright white...", o_name); msg_print("An image forms in your mind..."); detect_all(); break; } case ACT_HEAL1: { msg_format("Your %s glows deep blue...", o_name); msg_print("You feel a warm tingling inside..."); (void)hp_player(500); (void)set_cut(0); break; } case ACT_RESIST: { msg_format("Your %s glows many colours...", o_name); (void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20); (void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); (void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); (void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); (void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20); break; } case ACT_SLEEP: { msg_format("Your %s glows deep blue...", o_name); sleep_monsters_touch(); break; } case ACT_RECHARGE1: { msg_format("Your %s glows bright yellow...", o_name); recharge(60); break; } case ACT_TELEPORT: { msg_format("Your %s twists space around you...", o_name); teleport_player(100); break; } case ACT_RESTORE_LIFE: { msg_format("Your %s glows a deep red...", o_name); restore_level(); break; } case ACT_MISSILE: { msg_format("Your %s glows extremely brightly...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_MISSILE, dir, damroll(2, 6)); break; } case ACT_FIRE1: { msg_format("Your %s is covered in fire...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_FIRE, dir, damroll(9, 8)); break; } case ACT_FROST1: { msg_format("Your %s is covered in frost...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_COLD, dir, damroll(6, 8)); break; } case ACT_LIGHTNING_BOLT: { msg_format("Your %s is covered in sparks...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ELEC, dir, damroll(4, 8)); break; } case ACT_ACID1: { msg_format("Your %s is covered in acid...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ACID, dir, damroll(5, 8)); break; } case ACT_ARROW: { msg_format("Your %s grows magical spikes...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ARROW, dir, 150); break; } case ACT_HASTE1: { msg_format("Your %s glows bright green...", o_name); if (!p_ptr->fast) { (void)set_fast(randint(20) + 20); } else { (void)set_fast(p_ptr->fast + 5); } break; } case ACT_REM_FEAR_POIS: { msg_format("Your %s glows deep blue...", o_name); (void)set_afraid(0); (void)set_poisoned(0); break; } case ACT_STINKING_CLOUD: { msg_format("Your %s throbs deep green...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_POIS, dir, 12, 3); break; } case ACT_FROST2: { msg_format("Your %s is covered in frost...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 48, 2); break; } case ACT_FROST4: { msg_format("Your %s glows a pale blue...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_COLD, dir, damroll(12, 8)); break; } case ACT_FROST3: { msg_format("Your %s glows a intense blue...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 100, 2); break; } case ACT_FIRE2: { msg_format("Your %s rages in fire...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_FIRE, dir, 72, 2); break; } case ACT_DRAIN_LIFE2: { msg_format("Your %s glows black...", o_name); if (!get_aim_dir(&dir)) return FALSE; drain_life(dir, 120); break; } case ACT_STONE_TO_MUD: { msg_format("Your %s pulsates...", o_name); if (!get_aim_dir(&dir)) return FALSE; wall_to_mud(dir); break; } case ACT_MASS_BANISHMENT: { msg_format("Your %s lets out a long, shrill note...", o_name); (void)mass_banishment(); break; } case ACT_CURE_WOUNDS: { msg_format("Your %s radiates deep purple...", o_name); hp_player(damroll(4, 8)); (void)set_cut((p_ptr->cut / 2) - 50); break; } case ACT_TELE_AWAY: { msg_format("Your %s glows deep red...", o_name); if (!get_aim_dir(&dir)) return FALSE; teleport_monster(dir); break; } case ACT_WOR: { msg_format("Your %s glows soft white...", o_name); set_recall(); break; } case ACT_CONFUSE: { msg_format("Your %s glows in scintillating colours...", o_name); if (!get_aim_dir(&dir)) return FALSE; confuse_monster(dir, 20); break; } case ACT_IDENTIFY: { msg_format("Your %s glows yellow...", o_name); if (!ident_spell()) return FALSE; break; } case ACT_PROBE: { msg_format("Your %s glows brightly...", o_name); probing(); break; } case ACT_DRAIN_LIFE1: { msg_format("Your %s glows white...", o_name); if (!get_aim_dir(&dir)) return FALSE; drain_life(dir, 90); break; } case ACT_FIREBRAND: { msg_format("Your %s glows deep red...", o_name); (void)brand_bolts(); break; } case ACT_STARLIGHT: { msg_format("Your %s glows with the light of a thousand stars...", o_name); for (k = 0; k < 8; k++) strong_lite_line(ddd[k]); break; } case ACT_MANA_BOLT: { msg_format("Your %s glows white...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_MANA, dir, damroll(12, 8)); break; } case ACT_BERSERKER: { msg_format("Your %s glows in anger...", o_name); set_shero(p_ptr->shero + randint(50) + 50); break; } } /* Set the recharge time */ if (a_ptr->randtime) o_ptr->timeout = a_ptr->time + (byte)randint(a_ptr->randtime); else o_ptr->timeout = a_ptr->time; /* Window stuff */ p_ptr->window |= (PW_INVEN | PW_EQUIP); /* Done */ return FALSE; } /* Hack -- Dragon Scale Mail can be activated as well */ if (o_ptr->tval == TV_DRAG_ARMOR) { /* Get a direction for breathing (or abort) */ if (!get_aim_dir(&dir)) return FALSE; /* Branch on the sub-type */ switch (o_ptr->sval) { case SV_DRAGON_BLUE: { msg_print("You breathe lightning."); fire_ball(GF_ELEC, dir, 100, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_WHITE: { msg_print("You breathe frost."); fire_ball(GF_COLD, dir, 110, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_BLACK: { msg_print("You breathe acid."); fire_ball(GF_ACID, dir, 130, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_GREEN: { msg_print("You breathe poison gas."); fire_ball(GF_POIS, dir, 150, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_RED: { msg_print("You breathe fire."); fire_ball(GF_FIRE, dir, 200, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_MULTIHUED: { chance = rand_int(5); msg_format("You breathe %s.", ((chance == 1) ? "lightning" : ((chance == 2) ? "frost" : ((chance == 3) ? "acid" : ((chance == 4) ? "poison gas" : "fire"))))); fire_ball(((chance == 1) ? GF_ELEC : ((chance == 2) ? GF_COLD : ((chance == 3) ? GF_ACID : ((chance == 4) ? GF_POIS : GF_FIRE)))), dir, 250, 2); o_ptr->timeout = rand_int(225) + 225; break; } case SV_DRAGON_BRONZE: { msg_print("You breathe confusion."); fire_ball(GF_CONFUSION, dir, 120, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_GOLD: { msg_print("You breathe sound."); fire_ball(GF_SOUND, dir, 130, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_CHAOS: { chance = rand_int(2); msg_format("You breathe %s.", ((chance == 1 ? "chaos" : "disenchantment"))); fire_ball((chance == 1 ? GF_CHAOS : GF_DISENCHANT), dir, 220, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_LAW: { chance = rand_int(2); msg_format("You breathe %s.", ((chance == 1 ? "sound" : "shards"))); fire_ball((chance == 1 ? GF_SOUND : GF_SHARD), dir, 230, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_BALANCE: { chance = rand_int(4); msg_format("You breathe %s.", ((chance == 1) ? "chaos" : ((chance == 2) ? "disenchantment" : ((chance == 3) ? "sound" : "shards")))); fire_ball(((chance == 1) ? GF_CHAOS : ((chance == 2) ? GF_DISENCHANT : ((chance == 3) ? GF_SOUND : GF_SHARD))), dir, 250, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_SHINING: { chance = rand_int(2); msg_format("You breathe %s.", ((chance == 0 ? "light" : "darkness"))); fire_ball((chance == 0 ? GF_LITE : GF_DARK), dir, 200, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_POWER: { msg_print("You breathe the elements."); fire_ball(GF_MISSILE, dir, 300, 2); o_ptr->timeout = rand_int(300) + 300; break; } } /* Window stuff */ p_ptr->window |= (PW_INVEN | PW_EQUIP); /* Success */ return FALSE; } /* Hack -- some Rings can be activated for double resist and element ball */ if (o_ptr->tval == TV_RING) { /* Get a direction for firing (or abort) */ if (!get_aim_dir(&dir)) return FALSE; /* Branch on the sub-type */ switch (o_ptr->sval) { case SV_RING_ACID: { fire_ball(GF_ACID, dir, 70, 2); set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_FLAMES: { fire_ball(GF_FIRE, dir, 80, 2); set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_ICE: { fire_ball(GF_COLD, dir, 75, 2); set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_LIGHTNING: { fire_ball(GF_ELEC, dir, 85, 2); set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } } /* Window stuff */ p_ptr->window |= (PW_EQUIP); /* Success */ return FALSE; } /* Mistake */ msg_print("Oops. That object cannot be activated."); /* Not used up */ return (FALSE); }
/* * do_cmd_mind calls this function if the player's class * is 'Naturalist'. */ static bool cast_nature_spell(int spell) { /* this will vary based on the spells, and what they depend on */ int plev = p_ptr->lev; int dir; int px = p_ptr->px; int py = p_ptr->py; /* spell code */ switch (spell) { case 0: /* Detect Creatures */ (void)detect_monsters_normal(); break; case 1: /* First Aid */ (void)hp_player(damroll(2, 8)); (void)set_cut(p_ptr->cut - 15); break; case 2: /* Detect Doors + Traps */ (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); break; case 3: /* Produce Food */ (void)set_food(PY_FOOD_MAX - 1); break; case 4: /* Daylight */ (void)lite_area(damroll(2, (plev / 2)), (plev / 10) + 1); break; case 5: /* Animal Taming */ if (!get_aim_dir(&dir)) return FALSE; (void)charm_animal(dir, plev); break; case 6: /* Resist Environment */ (void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); (void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); (void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); break; case 7: /* Cure Wounds + Poison */ (void)hp_player(damroll(plev, 8)); (void)set_cut(0); (void)set_poisoned(0); break; case 8: /* Stone to Mud */ if (!get_aim_dir(&dir)) return FALSE; (void)wall_to_mud(dir); break; case 9: /* Lightning Bolt */ if (!get_aim_dir(&dir)) return FALSE; fire_bolt_or_beam(100, GF_ELEC, dir, damroll(3 + ((plev - 5) / 4), 8)); break; case 10: /* Ray of Sunlight */ if (!get_aim_dir(&dir)) return FALSE; msg_print("A line of sunlight appears."); (void)lite_line(dir); break; case 11: /* Entangle */ slow_monsters(); break; case 12: /* Stone Skin */ (void)set_shield(p_ptr->shield + randint(20) + 30); break; case 13: /* Resistance True */ (void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20); (void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); (void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); (void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); (void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20); break; case 14: /* Stone Tell */ return identify_fully(); case 15: /* Earthquake */ earthquake(py, px, 10); break; case 16: /* Blizzard */ if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 70 + plev, (plev / 12) + 1); break; case 17: /* Lightning Storm */ if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_ELEC, dir, 90 + plev, (plev / 12) + 1); break; case 18: /* Whirlpool */ if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_WATER, dir, 100 + plev, (plev / 12) + 1); break; case 19: /* Call Sunlight */ fire_ball(GF_LITE, 0, 150, 8); wiz_lite(); break; case 20: /* Nature's Wrath */ (void)dispel_monsters(plev * 4); earthquake(py, px, 20 + (plev / 2)); project(0, 1 + plev / 12, py, px, 100 + plev, GF_DISINTEGRATE, PROJECT_KILL | PROJECT_ITEM); break; default: msg_format("You cast an unknown Nature spell: %d.", spell); msg_print(NULL); } return TRUE; }
static bool use_staff(object_type *o_ptr, bool *ident) { int py = p_ptr->py; int px = p_ptr->px; int k; bool use_charge = TRUE; /* Analyze the staff */ switch (o_ptr->sval) { case SV_STAFF_DARKNESS: { if (!p_ptr->resist_blind) { if (set_blind(p_ptr->blind + 3 + randint(5))) *ident = TRUE; } if (unlite_area(10, 3)) *ident = TRUE; break; } case SV_STAFF_SLOWNESS: { if (set_slow(p_ptr->slow + randint(30) + 15)) *ident = TRUE; break; } case SV_STAFF_HASTE_MONSTERS: { if (speed_monsters()) *ident = TRUE; break; } case SV_STAFF_SUMMONING: { for (k = 0; k < randint(4); k++) { if (summon_specific(py, px, p_ptr->depth, 0)) { *ident = TRUE; } } break; } case SV_STAFF_TELEPORTATION: { teleport_player(100); *ident = TRUE; break; } case SV_STAFF_IDENTIFY: { if (!ident_spell()) use_charge = FALSE; *ident = TRUE; break; } case SV_STAFF_REMOVE_CURSE: { if (remove_curse()) { if (!p_ptr->blind) { msg_print("The staff glows blue for a moment..."); } *ident = TRUE; } break; } case SV_STAFF_STARLITE: { if (!p_ptr->blind) { msg_print("The end of the staff glows brightly..."); } for (k = 0; k < 8; k++) lite_line(ddd[k]); *ident = TRUE; break; } case SV_STAFF_LITE: { if (lite_area(damroll(2, 8), 2)) *ident = TRUE; break; } case SV_STAFF_MAPPING: { map_area(); *ident = TRUE; break; } case SV_STAFF_DETECT_GOLD: { if (detect_treasure()) *ident = TRUE; if (detect_objects_gold()) *ident = TRUE; break; } case SV_STAFF_DETECT_ITEM: { if (detect_objects_normal()) *ident = TRUE; break; } case SV_STAFF_DETECT_TRAP: { if (detect_traps()) *ident = TRUE; break; } case SV_STAFF_DETECT_DOOR: { if (detect_doors()) *ident = TRUE; if (detect_stairs()) *ident = TRUE; break; } case SV_STAFF_DETECT_INVIS: { if (detect_monsters_invis()) *ident = TRUE; break; } case SV_STAFF_DETECT_EVIL: { if (detect_monsters_evil()) *ident = TRUE; break; } case SV_STAFF_CURE_LIGHT: { if (hp_player(randint(8))) *ident = TRUE; break; } case SV_STAFF_CURING: { if (set_blind(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_STAFF_HEALING: { if (hp_player(300)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_STAFF_THE_MAGI: { if (do_res_stat(A_INT)) *ident = TRUE; if (p_ptr->csp < p_ptr->msp) { p_ptr->csp = p_ptr->msp; p_ptr->csp_frac = 0; *ident = TRUE; msg_print("Your feel your head clear."); p_ptr->redraw |= (PR_MANA); p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1); } break; } case SV_STAFF_SLEEP_MONSTERS: { if (sleep_monsters()) *ident = TRUE; break; } case SV_STAFF_SLOW_MONSTERS: { if (slow_monsters()) *ident = TRUE; break; } case SV_STAFF_SPEED: { if (!p_ptr->fast) { if (set_fast(randint(30) + 15)) *ident = TRUE; } else { (void)set_fast(p_ptr->fast + 5); } break; } case SV_STAFF_PROBING: { probing(); *ident = TRUE; break; } case SV_STAFF_DISPEL_EVIL: { if (dispel_evil(60)) *ident = TRUE; break; } case SV_STAFF_POWER: { if (dispel_monsters(120)) *ident = TRUE; break; } case SV_STAFF_HOLINESS: { if (dispel_evil(120)) *ident = TRUE; k = 3 * p_ptr->lev; if (set_protevil(p_ptr->protevil + randint(25) + k)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_afraid(0)) *ident = TRUE; if (hp_player(50)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_STAFF_BANISHMENT: { (void)banishment(); *ident = TRUE; break; } case SV_STAFF_EARTHQUAKES: { earthquake(py, px, 10); *ident = TRUE; break; } case SV_STAFF_DESTRUCTION: { destroy_area(py, px, 15, TRUE); *ident = TRUE; break; } } return (use_charge); }
/********************************************************************** * Spells: Note, we are still using the old "Book Spell System" **********************************************************************/ cptr do_necromancy_spell(int spell, int mode) { bool name = (mode == SPELL_NAME) ? TRUE : FALSE; bool desc = (mode == SPELL_DESC) ? TRUE : FALSE; bool info = (mode == SPELL_INFO) ? TRUE : FALSE; bool cast = (mode == SPELL_CAST) ? TRUE : FALSE; bool fail = (mode == SPELL_FAIL) ? TRUE : FALSE; int plev = p_ptr->lev; switch (spell) { /* Stench of Death */ case 0: if (name) return "Cold Touch"; if (desc) return "Damage an adjacent monster with a chilling touch."; if (info) return _necro_info_damage(2, 6, plev + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_COLD, 2, 6, plev + p_ptr->to_d_spell)) return NULL; break; case 1: if (name) return "Summon Rat"; if (desc) return "Summons a rat to feast on the dead!"; if (cast || fail) _necro_do_summon(SUMMON_RAT, 1, fail); break; case 2: if (name) return "Detect Life"; if (desc) return "Detects all living monsters in your vicinity."; if (info) return info_radius(DETECT_RAD_DEFAULT); if (cast) detect_monsters_living(DETECT_RAD_DEFAULT, "You sense the presence of life around you."); break; case 3: if (name) return "Detect Unlife"; if (desc) return "Detects all nonliving monsters in your vicinity."; if (info) return info_radius(DETECT_RAD_DEFAULT); if (cast) detect_monsters_nonliving(DETECT_RAD_DEFAULT); break; case 4: if (name) return "Poison Touch"; if (desc) return "Damage an adjacent monster with a venomous touch."; if (info) return _necro_info_damage(4, 6, plev + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_POIS, 4, 6, plev + p_ptr->to_d_spell)) return NULL; break; case 5: if (name) return "Summon Bats"; if (desc) return "Summons bats to feast on the living!"; if (cast || fail) _necro_do_summon(SUMMON_BAT, 1 + randint1(2), fail); break; case 6: if (name) return "Eldritch Howl"; if (desc) return "Emit a terrifying howl."; if (cast) project_hack(GF_ELDRITCH_HOWL, spell_power(plev * 3)); break; case 7: if (name) return "Black Touch"; if (desc) return "Damage an adjacent monster with a dark touch."; if (info) return _necro_info_damage(6, 6, plev * 3 / 2 + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_DARK, 6, 6, plev * 3 / 2 + p_ptr->to_d_spell)) return NULL; break; /* Sepulchral Ways */ case 8: if (name) return "Summon Wolves"; if (desc) return "Summons wolves to feast on the living!"; if (cast || fail) _necro_do_summon(SUMMON_WOLF, 1 + randint1(2), fail); break; case 9: if (name) return "Black Cloak"; if (desc) return "You become shrouded in darkness."; if (cast) { set_tim_dark_stalker(spell_power(randint1(plev) + plev), FALSE); } break; case 10: if (name) return "Undead Sight"; if (desc) return "Learn about your nearby surroundings by communing with the dead."; if (info) return info_radius(DETECT_RAD_MAP); if (cast) { map_area(DETECT_RAD_MAP); detect_traps(DETECT_RAD_DEFAULT, TRUE); detect_doors(DETECT_RAD_DEFAULT); detect_stairs(DETECT_RAD_DEFAULT); } break; case 11: if (name) return "Undead Lore"; if (desc) return "Ask the dead to examine an object for you."; if (cast) ident_spell(NULL); break; case 12: if (name) return "Repelling Touch"; if (desc) return "Conjure a foul wind to blow an adjacent monster away."; if (cast) { int y, x, dir; if (!_necro_check_touch()) return NULL; if (!get_rep_dir2(&dir)) return NULL; if (dir == 5) return NULL; y = py + ddy[dir]; x = px + ddx[dir]; if (!cave[y][x].m_idx) { msg_print("There is no monster."); return NULL; } else { int i; int ty = y, tx = x; int oy = y, ox = x; int m_idx = cave[y][x].m_idx; monster_type *m_ptr = &m_list[m_idx]; char m_name[80]; monster_desc(m_name, m_ptr, 0); touch_zap_player(cave[y][x].m_idx); for (i = 0; i < 10; i++) { y += ddy[dir]; x += ddx[dir]; if (cave_empty_bold(y, x)) { ty = y; tx = x; } else break; } if ((ty != oy) || (tx != ox)) { msg_format("A foul wind blows %s away!", m_name); cave[oy][ox].m_idx = 0; cave[ty][tx].m_idx = m_idx; m_ptr->fy = ty; m_ptr->fx = tx; update_mon(m_idx, TRUE); lite_spot(oy, ox); lite_spot(ty, tx); if (r_info[m_ptr->r_idx].flags7 & (RF7_LITE_MASK | RF7_DARK_MASK)) p_ptr->update |= (PU_MON_LITE); } } } break; case 13: if (name) return "Vampiric Touch"; if (desc) return "Steal life from an adjacent foe."; if (info) return _necro_info_damage(0, 0, plev * 4 + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_OLD_DRAIN, 0, 0, plev * 4 + p_ptr->to_d_spell)) return NULL; break; case 14: if (name) return "Dread of Night"; if (desc) return "Summons Dread to do your bidding. Beware of failure!"; if (cast || fail) _necro_do_summon(SUMMON_DREAD, 1 + randint0(3), fail); break; case 15: if (name) return "Entomb"; if (desc) return "Entombs chosen foe."; if (cast) { int dir; if (!get_fire_dir(&dir)) return NULL; fire_ball_hide(GF_ENTOMB, dir, plev, 0); p_ptr->update |= (PU_FLOW); p_ptr->redraw |= (PR_MAP); } break; /* Return of the Dead */ case 16: if (name) return "Summon Zombies"; if (desc) return "The dead are back and hungry for brains!"; if (cast || fail) _necro_do_summon(SUMMON_ZOMBIE, 2 + randint1(3), fail); break; case 17: if (name) return "Summon Skeletons"; if (desc) return "Summon skeletal assistance."; if (cast || fail) _necro_do_summon(SUMMON_SKELETON, 1 + randint0(3), fail); break; case 18: if (name) return "Summon Ghosts"; if (desc) return "Recall the spirits of slain warriors for unholy servitude."; if (cast || fail) _necro_do_summon(SUMMON_GHOST, 1 + randint0(3), fail); break; case 19: if (name) return "Summon Vampires"; if (desc) return "Its time to command the commanders!"; if (cast || fail) _necro_do_summon(SUMMON_VAMPIRE, 1 + randint0(2), fail); break; case 20: if (name) return "Summon Wraiths"; if (desc) return "Summon wights and wraiths to do your bidding."; if (cast || fail) _necro_do_summon(SUMMON_WIGHT, 1 + randint0(2), fail); break; case 21: if (name) return "Summon Liches"; if (desc) return "Call forth former necromancers."; if (cast || fail) _necro_do_summon(SUMMON_LICH, 1 + randint0(2), fail); break; case 22: if (name) return "Unholy Word"; if (desc) return "Utter an unspeakable word. The morale of your visible evil pets is temporarily boosted and they will serve you with renewed enthusiasm."; if (cast) project_hack(GF_UNHOLY_WORD, plev * 6); break; case 23: if (name) return "Lost Cause"; if (desc) return "Make a last ditch Kamikaze effort for victory!"; if (cast) discharge_minion(); break; /* Necromatic Tome */ case 24: if (name) return "Draining Touch"; if (desc) return "Steal mana from an adjacent foe."; if (info) return _necro_info_damage(5, 5, plev/2 + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_DRAINING_TOUCH, 5, 5, plev/2 + p_ptr->to_d_spell)) return NULL; break; case 25: if (name) return "Unhallow Ground"; if (desc) return "Makes the current square unholy."; if (cast) warding_glyph(); /* TODO: Add new cave feature! */ break; case 26: { int base = spell_power(20); if (name) return "Shield of the Dead"; if (desc) return "Grants temporary protection"; if (info) return info_duration(base, base); if (cast) { set_tim_res_nether(randint1(base) + base, FALSE); set_oppose_pois(randint1(base) + base, FALSE); set_oppose_cold(randint1(base) + base, FALSE); set_shield(randint1(base) + base, FALSE); } break; } case 27: if (name) return "Rending Touch"; if (desc) return "Damage an adjacent monster with a disintegrating touch."; if (info) return _necro_info_damage(20, 20, plev + p_ptr->to_d_spell); if (cast && !_necro_do_touch(GF_DISINTEGRATE, 20, 20, plev + p_ptr->to_d_spell)) return NULL; break; case 28: if (name) return "Repose of the Dead"; if (desc) return "Sleep the sleep of the dead for a few rounds, during which time nothing can awaken you, except perhaps death. When (if?) you wake up, you will be thoroughly refreshed!"; if (cast) { if (!get_check("You will enter a deep slumber. Are you sure?")) return NULL; repose_of_the_dead = TRUE; set_paralyzed(4 + randint1(4), FALSE); } break; case 29: if (name) return "Sepulchral Wind"; if (desc) return "You call forth the wind of the dead. All nearby monsters are blown away!"; { int power = spell_power(plev * 4); if (info) return info_power(power); if (cast) banish_monsters(power); } break; case 30: if (name) return "Deadly Touch"; if (desc) return "Attempt to kill an adjacent monster."; if (cast && !_necro_do_touch(GF_DEATH_TOUCH, 0, 0, plev * 200)) return NULL; break; case 31: if (name) return "Necromancy"; if (desc) return "Bridge the world of the living with the world of the dead! Vast hordes of undead will come forth to serve the one true necromancer!"; if (cast) { int i; int sp_sides = 20 + plev; int sp_base = plev; int power = spell_power(plev); power += randint1(power); for (i = 0; i < 18; i++) { int attempt = 10; int my, mx, what; while (attempt--) { scatter(&my, &mx, py, px, 4, 0); /* Require empty grids */ if (cave_empty_bold2(my, mx)) break; } if (attempt < 0) continue; switch (randint1(4)) { case 1: what = SUMMON_LICH; break; case 2: what = SUMMON_WIGHT; break; case 3: what = SUMMON_VAMPIRE; break; case 4: default: what = SUMMON_GHOST; break; } summon_specific(-1, my, mx, power, what, (PM_ALLOW_GROUP | PM_FORCE_PET | PM_HASTE)); } set_fast(randint1(sp_sides) + sp_base, FALSE); } break; } return ""; }
static void cmd_racial_power_aux(const mutation_type *mut_ptr) { s16b plev = p_ptr->lev; int dir = 0; if (racial_aux(mut_ptr->level, mut_ptr->cost, mut_ptr->stat, mut_ptr->diff)) { switch (p_ptr->prace) { case RACE_DWARF: { msg_print("You examine your surroundings."); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); break; } case RACE_HOBBIT: { object_type *q_ptr; object_type forge; /* Get local object */ q_ptr = &forge; /* Create the food ration */ object_prep(q_ptr, 21); /* Drop the object from heaven */ (void)drop_near(q_ptr, -1, p_ptr->py, p_ptr->px); msg_print("You cook some food."); break; } case RACE_GNOME: { msg_print("Blink!"); teleport_player(10 + plev); break; } case RACE_HALF_ORC: { msg_print("You play tough."); (void)set_afraid(0); break; } case RACE_HALF_TROLL: { msg_print("RAAAGH!"); if (!p_ptr->shero) { (void)hp_player(30); } (void)set_afraid(0); (void)set_shero(p_ptr->shero + 10 + randint1(plev)); break; } case RACE_AMBERITE: { /* Hack - use levels to choose ability */ if (mut_ptr->level == 30) { msg_print("You picture the Pattern in your mind and walk it..."); (void)set_poisoned(0); (void)set_image(0); (void)set_stun(0); (void)set_cut(0); (void)set_blind(0); (void)set_afraid(0); (void)do_res_stat(A_STR, 200); (void)do_res_stat(A_INT, 200); (void)do_res_stat(A_WIS, 200); (void)do_res_stat(A_DEX, 200); (void)do_res_stat(A_CON, 200); (void)do_res_stat(A_CHR, 200); (void)restore_level(); } else if (mut_ptr->level == 40) { /* No effect in arena or quest */ if (p_ptr->inside_quest) { msg_print("There is no effect."); } else { msg_print("You start walking around. Your surroundings change."); if (autosave_l) do_cmd_save_game(TRUE); /* Leaving */ p_ptr->leaving = TRUE; } } break; } case RACE_BARBARIAN: { msg_print("Raaagh!"); if (!p_ptr->shero) { (void)hp_player(30); } (void)set_afraid(0); (void)set_shero(p_ptr->shero + 10 + randint1(plev)); break; } case RACE_HALF_OGRE: { msg_print("You carefully set an explosive rune..."); (void)explosive_rune(); break; } case RACE_HALF_GIANT: { if (!get_aim_dir(&dir)) break; msg_print("You bash at a stone wall."); (void)wall_to_mud(dir); break; } case RACE_HALF_TITAN: { msg_print("You examine your foes..."); (void)probing(); break; } case RACE_CYCLOPS: { if (!get_aim_dir(&dir)) break; msg_print("You throw a huge boulder."); (void)fire_bolt(GF_MISSILE, dir, (3 * plev) / 2); break; } case RACE_YEEK: { if (!get_aim_dir(&dir)) break; msg_print("You make a horrible scream!"); (void)fear_monster(dir, plev); break; } case RACE_KLACKON: { if (!get_aim_dir(&dir)) break; msg_print("You spit acid."); if (plev < 25) (void)fire_bolt(GF_ACID, dir, plev); else (void)fire_ball(GF_ACID, dir, plev, 2); break; } case RACE_KOBOLD: { if (!get_aim_dir(&dir)) break; msg_print("You throw a dart of poison."); (void)fire_bolt(GF_POIS, dir, plev); break; } case RACE_NIBELUNG: { msg_print("You examine your surroundings."); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); break; } case RACE_DARK_ELF: { if (!get_aim_dir(&dir)) break; msg_print("You cast a magic missile."); (void)fire_bolt_or_beam(10, GF_MISSILE, dir, damroll(3 + ((plev - 1) / 5), 4)); break; } case RACE_DRACONIAN: { int Type = (one_in_(3) ? GF_COLD : GF_FIRE); cptr Type_desc = ((Type == GF_COLD) ? "cold" : "fire"); if (randint1(100) < plev) { switch (p_ptr->pclass) { case CLASS_WARRIOR: case CLASS_RANGER: if (one_in_(3)) { Type = GF_MISSILE; Type_desc = "the elements"; } else { Type = GF_SHARDS; Type_desc = "shards"; } break; case CLASS_MAGE: case CLASS_WARRIOR_MAGE: case CLASS_HIGH_MAGE: if (one_in_(3)) { Type = GF_MANA; Type_desc = "mana"; } else { Type = GF_DISENCHANT; Type_desc = "disenchantment"; } break; case CLASS_CHAOS_WARRIOR: if (!one_in_(3)) { Type = GF_CONFUSION; Type_desc = "confusion"; } else { Type = GF_CHAOS; Type_desc = "chaos"; } break; case CLASS_MONK: if (!one_in_(3)) { Type = GF_CONFUSION; Type_desc = "confusion"; } else { Type = GF_SOUND; Type_desc = "sound"; } break; case CLASS_MINDCRAFTER: if (!one_in_(3)) { Type = GF_CONFUSION; Type_desc = "confusion"; } else { Type = GF_PSI; Type_desc = "mental energy"; } break; case CLASS_PRIEST: case CLASS_PALADIN: if (one_in_(3)) { Type = GF_HELL_FIRE; Type_desc = "hellfire"; } else { Type = GF_HOLY_FIRE; Type_desc = "holy fire"; } break; case CLASS_ROGUE: if (one_in_(3)) { Type = GF_DARK; Type_desc = "darkness"; } else { Type = GF_POIS; Type_desc = "poison"; } break; } } if (!get_aim_dir(&dir)) break; msg_format("You breathe %s.", Type_desc); (void)fire_ball(Type, dir, plev * 2, (plev / 15) + 1); break; } case RACE_MIND_FLAYER: { if (!get_aim_dir(&dir)) break; else { msg_print("You concentrate and your eyes glow red..."); (void)fire_bolt(GF_PSI, dir, plev); } break; } case RACE_IMP: { if (!get_aim_dir(&dir)) break; if (plev >= 30) { msg_print("You cast a ball of fire."); (void)fire_ball(GF_FIRE, dir, plev, 2); } else { msg_print("You cast a bolt of fire."); (void)fire_bolt(GF_FIRE, dir, plev); } break; } case RACE_GOLEM: { (void)set_shield(p_ptr->shield + rand_range(30, 50)); break; } case RACE_SKELETON: case RACE_ZOMBIE: { msg_print("You attempt to restore your lost energies."); (void)restore_level(); break; } case RACE_VAMPIRE: { int y, x, dummy; cave_type *c_ptr; /* Only works on adjacent monsters */ if (!get_rep_dir(&dir)) break; y = p_ptr->py + ddy[dir]; x = p_ptr->px + ddx[dir]; /* Paranoia */ if (!in_bounds2(y, x)) break; c_ptr = area(y, x); if (!c_ptr->m_idx) { msg_print("You bite into thin air!"); break; } msg_print("You grin and bare your fangs..."); dummy = plev + randint1(plev) * MAX(1, plev / 10); /* Dmg */ if (drain_gain_life(dir, dummy)) { /* Gain nutritional sustenance: 150/hp drained */ /* A Food ration gives 5000 food points (by contrast) */ /* Don't ever get more than "Full" this way */ /* But if we ARE Gorged, it won't cure us */ dummy = p_ptr->food + MIN(5000, 100 * dummy); if (p_ptr->food < PY_FOOD_MAX) /* Not gorged already */ (void)set_food(dummy >= PY_FOOD_MAX ? PY_FOOD_MAX - 1 : dummy); } else msg_print("Yechh. That tastes foul."); break; } case RACE_SPECTRE: { msg_print("You emit an eldritch howl!"); if (!get_aim_dir(&dir)) break; (void)fear_monster(dir, plev); break; } case RACE_SPRITE: { msg_print("You throw some magic dust..."); if (plev < 25) (void)sleep_monsters_touch(); else (void)sleep_monsters(); break; } case RACE_GHOUL: { if (mut_ptr->level == 30) { /* Sense living */ (void)detect_monsters_living(); } else { eat_corpse(); } break; } default: msg_print("This race has no bonus power."); p_ptr->energy_use = 0; } } /* Redraw mana and hp */ p_ptr->redraw |= (PR_HP | PR_MANA); /* Window stuff */ p_ptr->window |= (PW_PLAYER | PW_SPELL); }
static bool quaff_potion(object_type *o_ptr, bool *ident) { /* Analyze the potion */ switch (o_ptr->sval) { case SV_POTION_WATER: case SV_POTION_APPLE_JUICE: case SV_POTION_SLIME_MOLD: { msg_print("Вы утолили жажду."); *ident = TRUE; break; } case SV_POTION_SLOWNESS: { if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE; break; } case SV_POTION_SALT_WATER: { msg_print("Вя-а-а! Вас стошнило!"); (void)set_food(PY_FOOD_STARVE - 1); (void)set_poisoned(0); (void)set_paralyzed(p_ptr->paralyzed + 4); *ident = TRUE; break; } case SV_POTION_POISON: { if (!(p_ptr->resist_pois || p_ptr->oppose_pois)) { if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10)) { *ident = TRUE; } } break; } case SV_POTION_BLINDNESS: { if (!p_ptr->resist_blind) { if (set_blind(p_ptr->blind + rand_int(100) + 100)) { *ident = TRUE; } } break; } case SV_POTION_CONFUSION: { if (!p_ptr->resist_confu) { if (set_confused(p_ptr->confused + rand_int(20) + 15)) { *ident = TRUE; } } break; } case SV_POTION_SLEEP: { if (!p_ptr->free_act) { if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4)) { *ident = TRUE; } } break; } case SV_POTION_LOSE_MEMORIES: { if (!p_ptr->hold_life && (p_ptr->exp > 0)) { msg_print("Ваша жизнь меркнет."); lose_exp(p_ptr->exp / 4); *ident = TRUE; } break; } case SV_POTION_RUINATION: { msg_print("Ваши нервы и мускулы кажутся слабыми и безжизненными!"); take_hit(damroll(10, 10), "зельем Ослабевания"); (void)dec_stat(A_DEX, 25, TRUE); (void)dec_stat(A_WIS, 25, TRUE); (void)dec_stat(A_CON, 25, TRUE); (void)dec_stat(A_STR, 25, TRUE); (void)dec_stat(A_CHR, 25, TRUE); (void)dec_stat(A_INT, 25, TRUE); *ident = TRUE; break; } case SV_POTION_DEC_STR: { if (do_dec_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_DEC_INT: { if (do_dec_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_DEC_WIS: { if (do_dec_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_DEC_DEX: { if (do_dec_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_DEC_CON: { if (do_dec_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_DEC_CHR: { if (do_dec_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_DETONATIONS: { msg_print("Массивные взрывы сотрясают ваше тело!"); take_hit(damroll(50, 20), "зельем взрыва"); (void)set_stun(p_ptr->stun + 75); (void)set_cut(p_ptr->cut + 5000); *ident = TRUE; break; } case SV_POTION_DEATH: { msg_print("Чувство Смерти протекает сквозь вас..."); take_hit(5000, "зельем Смерти"); *ident = TRUE; break; } case SV_POTION_INFRAVISION: { if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100))) { *ident = TRUE; } break; } case SV_POTION_DETECT_INVIS: { if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12))) { *ident = TRUE; } break; } case SV_POTION_SLOW_POISON: { if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE; break; } case SV_POTION_CURE_POISON: { if (set_poisoned(0)) *ident = TRUE; break; } case SV_POTION_BOLDNESS: { if (set_afraid(0)) *ident = TRUE; break; } case SV_POTION_SPEED: { if (!p_ptr->fast) { if (set_fast(randint(25) + 15)) *ident = TRUE; } else { (void)set_fast(p_ptr->fast + 5); } break; } case SV_POTION_RESIST_HEAT: { if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10)) { *ident = TRUE; } break; } case SV_POTION_RESIST_COLD: { if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10)) { *ident = TRUE; } break; } case SV_POTION_HEROISM: { if (hp_player(10)) *ident = TRUE; if (set_afraid(0)) *ident = TRUE; if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE; break; } case SV_POTION_BERSERK_STRENGTH: { if (hp_player(30)) *ident = TRUE; if (set_afraid(0)) *ident = TRUE; if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE; break; } case SV_POTION_CURE_LIGHT: { if (hp_player(damroll(2, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_cut(p_ptr->cut - 10)) *ident = TRUE; break; } case SV_POTION_CURE_SERIOUS: { if (hp_player(damroll(4, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE; break; } case SV_POTION_CURE_CRITICAL: { if (hp_player(damroll(6, 8))) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_HEALING: { if (hp_player(300)) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_STAR_HEALING: { if (hp_player(1200)) *ident = TRUE; if (set_blind(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_POTION_LIFE: { msg_print("Чуство Жизни протекает в вас!"); restore_level(); (void)set_poisoned(0); (void)set_blind(0); (void)set_confused(0); (void)set_image(0); (void)set_stun(0); (void)set_cut(0); (void)do_res_stat(A_STR); (void)do_res_stat(A_CON); (void)do_res_stat(A_DEX); (void)do_res_stat(A_WIS); (void)do_res_stat(A_INT); (void)do_res_stat(A_CHR); /* Recalculate max. hitpoints */ update_stuff(); hp_player(5000); *ident = TRUE; break; } case SV_POTION_RESTORE_MANA: { if (p_ptr->csp < p_ptr->msp) { p_ptr->csp = p_ptr->msp; p_ptr->csp_frac = 0; msg_print("Ваша голова проясняется."); p_ptr->redraw |= (PR_MANA); p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1); *ident = TRUE; } break; } case SV_POTION_RESTORE_EXP: { if (restore_level()) *ident = TRUE; break; } case SV_POTION_RES_STR: { if (do_res_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_RES_INT: { if (do_res_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_RES_WIS: { if (do_res_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_RES_DEX: { if (do_res_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_RES_CON: { if (do_res_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_RES_CHR: { if (do_res_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_INC_STR: { if (do_inc_stat(A_STR)) *ident = TRUE; break; } case SV_POTION_INC_INT: { if (do_inc_stat(A_INT)) *ident = TRUE; break; } case SV_POTION_INC_WIS: { if (do_inc_stat(A_WIS)) *ident = TRUE; break; } case SV_POTION_INC_DEX: { if (do_inc_stat(A_DEX)) *ident = TRUE; break; } case SV_POTION_INC_CON: { if (do_inc_stat(A_CON)) *ident = TRUE; break; } case SV_POTION_INC_CHR: { if (do_inc_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_AUGMENTATION: { if (do_inc_stat(A_STR)) *ident = TRUE; if (do_inc_stat(A_INT)) *ident = TRUE; if (do_inc_stat(A_WIS)) *ident = TRUE; if (do_inc_stat(A_DEX)) *ident = TRUE; if (do_inc_stat(A_CON)) *ident = TRUE; if (do_inc_stat(A_CHR)) *ident = TRUE; break; } case SV_POTION_ENLIGHTENMENT: { msg_print("Изображение подземелья формируется у вас в голове..."); wiz_lite(); *ident = TRUE; break; } case SV_POTION_STAR_ENLIGHTENMENT: { msg_print("Вы чувствуете себя просвещенным..."); message_flush(); wiz_lite(); (void)do_inc_stat(A_INT); (void)do_inc_stat(A_WIS); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); (void)detect_treasure(); (void)detect_objects_gold(); (void)detect_objects_normal(); identify_pack(); self_knowledge(); *ident = TRUE; break; } case SV_POTION_SELF_KNOWLEDGE: { msg_print("Вы познаете себя немного лучше..."); message_flush(); self_knowledge(); *ident = TRUE; break; } case SV_POTION_EXPERIENCE: { if (p_ptr->exp < PY_MAX_EXP) { s32b ee = (p_ptr->exp / 2) + 10; if (ee > 100000L) ee = 100000L; msg_print("Вы чувствуете себя более опытным."); gain_exp(ee); *ident = TRUE; } break; } } return (TRUE); }
/* * Activate a wielded object. Wielded objects never stack. * And even if they did, activatable objects never stack. * * Currently, only (some) artifacts, and Dragon Scale Mail, can be activated. * But one could, for example, easily make an activatable "Ring of Plasma". * * Note that it always takes a turn to activate an artifact, even if * the user hits "escape" at the "direction" prompt. */ static bool activate_object(object_type *o_ptr, bool *ident) { int k, dir, i, chance, rod; char o_name[80]; /* Get the basic name of the object */ rod = object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0, PAD_IMEN); /* Check the recharge */ if (o_ptr->timeout) { msg_format("Он%s светится и затухает...", (rod == ROD_M ? "" : rod == ROD_F ? "а" : rod == ROD_N ? "о" : "и")); return FALSE; } /* Activate the artifact */ message(MSG_ZAP, 0, "Вы активируете его..."); /* Artifacts */ if (o_ptr->name1) { artifact_type *a_ptr = &a_info[o_ptr->name1]; switch (a_ptr->activation) { case ACT_ILLUMINATION: { msg_format("%s озаряется чистым светом...", o_name); lite_area(damroll(2, 15), 3); break; } case ACT_MAGIC_MAP: { msg_format("%s ярко сверкает...", o_name); map_area(); break; } case ACT_CLAIRVOYANCE: { msg_format("%s светится глубоким зеленым...", o_name); wiz_lite(); (void)detect_traps(); (void)detect_doors(); (void)detect_stairs(); break; } case ACT_PROT_EVIL: { msg_format("%s издает протяжный стон...", o_name); k = 3 * p_ptr->lev; (void)set_protevil(p_ptr->protevil + randint(25) + k); break; } case ACT_DISP_EVIL: { msg_format("%s заполняет подземелье добром...", o_name); dispel_evil(p_ptr->lev * 5); break; } case ACT_HASTE2: { msg_format("%s ярко светится...", o_name); if (!p_ptr->fast) { (void)set_fast(randint(75) + 75); } else { (void)set_fast(p_ptr->fast + 5); } break; } case ACT_FIRE3: { msg_format("%s светится глубоким красным...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_FIRE, dir, 120, 3); break; } case ACT_FROST5: { msg_format("%s светится ярко-белым...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 200, 3); break; } case ACT_ELEC2: { msg_format("%s светится глубоким синим...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_ELEC, dir, 250, 3); break; } case ACT_BIZZARE: { msg_format("%s светится черным...", o_name); if (!get_aim_dir(&dir)) return FALSE; ring_of_power(dir); break; } case ACT_STAR_BALL: { msg_format("%s окружается молнией...", o_name); for (i = 0; i < 8; i++) fire_ball(GF_ELEC, ddd[i], 150, 3); break; } case ACT_RAGE_BLESS_RESIST: { msg_format("%s светится всеми цветами...", o_name); (void)hp_player(30); (void)set_afraid(0); (void)set_shero(p_ptr->shero + randint(50) + 50); (void)set_blessed(p_ptr->blessed + randint(50) + 50); (void)set_oppose_acid(p_ptr->oppose_acid + randint(50) + 50); (void)set_oppose_elec(p_ptr->oppose_elec + randint(50) + 50); (void)set_oppose_fire(p_ptr->oppose_fire + randint(50) + 50); (void)set_oppose_cold(p_ptr->oppose_cold + randint(50) + 50); (void)set_oppose_pois(p_ptr->oppose_pois + randint(50) + 50); break; } case ACT_HEAL2: { msg_format("%s светится ярким белым...", o_name); msg_print("Вы чувствуете себя намного лучше..."); (void)hp_player(1000); (void)set_cut(0); break; } case ACT_PHASE: { msg_format("%s искривляет пространство вокруг вас...", o_name); teleport_player(10); break; } case ACT_BANISHMENT: { msg_format("%s светится угрожающим синим...", o_name); if (!banishment()) return FALSE; break; } case ACT_TRAP_DOOR_DEST: { msg_format("%s светится ярко-красным...", o_name); destroy_doors_touch(); break; } case ACT_DETECT: { msg_format("%s светится лучистым белым...", o_name); msg_print("Изображение формируется в вашей голове..."); detect_all(); break; } case ACT_HEAL1: { msg_format("%s светится спокойным синим...", o_name); msg_print("Вы чувствуете теплое покалывание..."); (void)hp_player(500); (void)set_cut(0); break; } case ACT_RESIST: { msg_format("%s светится цветами радуги...", o_name); (void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20); (void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); (void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); (void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); (void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20); break; } case ACT_SLEEP: { msg_format("%s светится ярко-синим...", o_name); sleep_monsters_touch(); break; } case ACT_RECHARGE1: { msg_format("%s светится ярко-желтым...", o_name); recharge(60); break; } case ACT_TELEPORT: { msg_format("%s распрямляет пространство вокруг вас...", o_name); teleport_player(100); break; } case ACT_RESTORE_LIFE: { msg_format("%s светится спокойным красным...", o_name); restore_level(); break; } case ACT_MISSILE: { msg_format("%s ярко горит...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_MISSILE, dir, damroll(2, 6)); break; } case ACT_FIRE1: { msg_format("%s покрывается пламенем...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_FIRE, dir, damroll(9, 8)); break; } case ACT_FROST1: { msg_format("%s излучает холод...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_COLD, dir, damroll(6, 8)); break; } case ACT_LIGHTNING_BOLT: { msg_format("%s сыплет искрамиs...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ELEC, dir, damroll(4, 8)); break; } case ACT_ACID1: { msg_format("%s покрывается кислотой...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ACID, dir, damroll(5, 8)); break; } case ACT_ARROW: { msg_format("%s покрывается шипами...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_ARROW, dir, 150); break; } case ACT_HASTE1: { msg_format("%s светится ярко-зеленым...", o_name); if (!p_ptr->fast) { (void)set_fast(randint(20) + 20); } else { (void)set_fast(p_ptr->fast + 5); } break; } case ACT_REM_FEAR_POIS: { msg_format("%s вспыхивает синим...", o_name); (void)set_afraid(0); (void)set_poisoned(0); break; } case ACT_STINKING_CLOUD: { msg_format("%s светится ядовито-зеленым...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_POIS, dir, 12, 3); break; } case ACT_FROST2: { msg_format("%s покрывается инеем...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 48, 2); break; } case ACT_FROST4: { msg_format("%s горит бледно-синим...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_COLD, dir, damroll(12, 8)); break; } case ACT_FROST3: { msg_format("%s светится насыщенным синим...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_COLD, dir, 100, 2); break; } case ACT_FIRE2: { msg_format("%s пылает огнем...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_ball(GF_FIRE, dir, 72, 2); break; } case ACT_DRAIN_LIFE2: { msg_format("%s светится черным...", o_name); if (!get_aim_dir(&dir)) return FALSE; drain_life(dir, 120); break; } case ACT_STONE_TO_MUD: { msg_format("%s пульсирует...", o_name); if (!get_aim_dir(&dir)) return FALSE; wall_to_mud(dir); break; } case ACT_MASS_BANISHMENT: { msg_format("%s издает протяжную ноту...", o_name); (void)mass_banishment(); break; } case ACT_CURE_WOUNDS: { msg_format("%s светится глубоким фиолетовым...", o_name); hp_player(damroll(4, 8)); (void)set_cut((p_ptr->cut / 2) - 50); break; } case ACT_TELE_AWAY: { msg_format("%s вспыхивает глубоким красным...", o_name); if (!get_aim_dir(&dir)) return FALSE; teleport_monster(dir); break; } case ACT_WOR: { msg_format("%s светится мягким белым...", o_name); set_recall(); break; } case ACT_CONFUSE: { msg_format("%s светится странными цветами...", o_name); if (!get_aim_dir(&dir)) return FALSE; confuse_monster(dir, 20); break; } case ACT_IDENTIFY: { msg_format("%s вспыхивает желтым...", o_name); if (!ident_spell()) return FALSE; break; } case ACT_PROBE: { msg_format("%s ярко загорается...", o_name); probing(); break; } case ACT_DRAIN_LIFE1: { msg_format("%s горит белым...", o_name); if (!get_aim_dir(&dir)) return FALSE; drain_life(dir, 90); break; } case ACT_FIREBRAND: { msg_format("%s светится огненно-красным...", o_name); (void)brand_bolts(); break; } case ACT_STARLIGHT: { msg_format("%s вспыхивает светом тысячи звезд...", o_name); for (k = 0; k < 8; k++) strong_lite_line(ddd[k]); break; } case ACT_MANA_BOLT: { msg_format("%s светится белым...", o_name); if (!get_aim_dir(&dir)) return FALSE; fire_bolt(GF_MANA, dir, damroll(12, 8)); break; } case ACT_BERSERKER: { msg_format("%s горит яростью...", o_name); set_shero(p_ptr->shero + randint(50) + 50); break; } } /* Set the recharge time */ if (a_ptr->randtime) o_ptr->timeout = a_ptr->time + (byte)randint(a_ptr->randtime); else o_ptr->timeout = a_ptr->time; /* Window stuff */ p_ptr->window |= (PW_INVEN | PW_EQUIP); /* Done */ return FALSE; } /* Hack -- Dragon Scale Mail can be activated as well */ if (o_ptr->tval == TV_DRAG_ARMOR) { /* Get a direction for breathing (or abort) */ if (!get_aim_dir(&dir)) return FALSE; /* Branch on the sub-type */ switch (o_ptr->sval) { case SV_DRAGON_BLUE: { msg_print("Вы дышите молнией."); fire_ball(GF_ELEC, dir, 100, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_WHITE: { msg_print("Вы дышите холодом."); fire_ball(GF_COLD, dir, 110, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_BLACK: { msg_print("Вы дышите кислотой."); fire_ball(GF_ACID, dir, 130, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_GREEN: { msg_print("Вы дышите ядовитым газом."); fire_ball(GF_POIS, dir, 150, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_RED: { msg_print("Вы дышите огнем."); fire_ball(GF_FIRE, dir, 200, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_MULTIHUED: { chance = rand_int(5); msg_format("Вы дышите %s.", ((chance == 1) ? "молнией" : ((chance == 2) ? "холодом" : ((chance == 3) ? "кислотой" : ((chance == 4) ? "ядовитым газом" : "огнем"))))); fire_ball(((chance == 1) ? GF_ELEC : ((chance == 2) ? GF_COLD : ((chance == 3) ? GF_ACID : ((chance == 4) ? GF_POIS : GF_FIRE)))), dir, 250, 2); o_ptr->timeout = rand_int(225) + 225; break; } case SV_DRAGON_BRONZE: { msg_print("Вы дышите контузией."); fire_ball(GF_CONFUSION, dir, 120, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_GOLD: { msg_print("Вы дышите звуком."); fire_ball(GF_SOUND, dir, 130, 2); o_ptr->timeout = rand_int(450) + 450; break; } case SV_DRAGON_CHAOS: { chance = rand_int(2); msg_format("Вы дышите %s.", ((chance == 1 ? "хаосом" : "антимагией"))); fire_ball((chance == 1 ? GF_CHAOS : GF_DISENCHANT), dir, 220, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_LAW: { chance = rand_int(2); msg_format("Вы дышите %s.", ((chance == 1 ? "звуком" : "осколками"))); fire_ball((chance == 1 ? GF_SOUND : GF_SHARD), dir, 230, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_BALANCE: { chance = rand_int(4); msg_format("Вы дышите %s.", ((chance == 1) ? "хаосом" : ((chance == 2) ? "антимагией" : ((chance == 3) ? "звуком" : "осколками")))); fire_ball(((chance == 1) ? GF_CHAOS : ((chance == 2) ? GF_DISENCHANT : ((chance == 3) ? GF_SOUND : GF_SHARD))), dir, 250, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_SHINING: { chance = rand_int(2); msg_format("Вы дышите %s.", ((chance == 0 ? "светом" : "темнотой"))); fire_ball((chance == 0 ? GF_LITE : GF_DARK), dir, 200, 2); o_ptr->timeout = rand_int(300) + 300; break; } case SV_DRAGON_POWER: { msg_print("Вы дышите элементами."); fire_ball(GF_MISSILE, dir, 300, 2); o_ptr->timeout = rand_int(300) + 300; break; } } /* Window stuff */ p_ptr->window |= (PW_INVEN | PW_EQUIP); /* Success */ return FALSE; } /* Hack -- some Rings can be activated for double resist and element ball */ if (o_ptr->tval == TV_RING) { /* Get a direction for firing (or abort) */ if (!get_aim_dir(&dir)) return FALSE; /* Branch on the sub-type */ switch (o_ptr->sval) { case SV_RING_ACID: { fire_ball(GF_ACID, dir, 70, 2); set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_FLAMES: { fire_ball(GF_FIRE, dir, 80, 2); set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_ICE: { fire_ball(GF_COLD, dir, 75, 2); set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } case SV_RING_LIGHTNING: { fire_ball(GF_ELEC, dir, 85, 2); set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20); o_ptr->timeout = rand_int(50) + 50; break; } } /* Window stuff */ p_ptr->window |= (PW_EQUIP); /* Success */ return FALSE; } /* Mistake */ msg_print("Oops. That object cannot be activated."); /* Not used up */ return (FALSE); }
static bool zap_rod(object_type *o_ptr, bool *ident) { int chance, dir, lev; bool used_charge = TRUE; object_kind *k_ptr = &k_info[o_ptr->k_idx]; /* Get a direction (unless KNOWN not to need it) */ if ((o_ptr->sval >= SV_ROD_MIN_DIRECTION) || !object_aware_p(o_ptr)) { /* Get a direction, allow cancel */ if (!get_aim_dir(&dir)) return FALSE; } /* Take a turn */ p_ptr->energy_use = 100; /* Not identified yet */ *ident = FALSE; /* Extract the item level */ lev = k_info[o_ptr->k_idx].level; /* Base chance of success */ chance = p_ptr->skill_dev; /* Confusion hurts skill */ if (p_ptr->confused) chance = chance / 2; /* High level objects are harder */ chance = chance - ((lev > 50) ? 50 : lev); /* Give everyone a (slight) chance */ if ((chance < USE_DEVICE) && (rand_int(USE_DEVICE - chance + 1) == 0)) { chance = USE_DEVICE; } /* Roll for usage */ if ((chance < USE_DEVICE) || (randint(chance) < USE_DEVICE)) { if (flush_failure) flush(); msg_print("Вы не смогли использовать жезл."); return FALSE; } /* Still charging? */ if (o_ptr->timeout > (o_ptr->pval - k_ptr->pval)) { if (flush_failure) flush(); if (o_ptr->number == 1) msg_print("Жезл все еще заряжается."); else msg_print("Все жезлы все еще заряжаются."); return FALSE; } /* Sound */ sound(MSG_ZAP); /* Analyze the rod */ switch (o_ptr->sval) { case SV_ROD_DETECT_TRAP: { if (detect_traps()) *ident = TRUE; break; } case SV_ROD_DETECT_DOOR: { if (detect_doors()) *ident = TRUE; if (detect_stairs()) *ident = TRUE; break; } case SV_ROD_IDENTIFY: { *ident = TRUE; if (ident_spell()) used_charge = FALSE; break; } case SV_ROD_RECALL: { set_recall(); *ident = TRUE; break; } case SV_ROD_ILLUMINATION: { if (lite_area(damroll(2, 8), 2)) *ident = TRUE; break; } case SV_ROD_MAPPING: { map_area(); *ident = TRUE; break; } case SV_ROD_DETECTION: { detect_all(); *ident = TRUE; break; } case SV_ROD_PROBING: { probing(); *ident = TRUE; break; } case SV_ROD_CURING: { if (set_blind(0)) *ident = TRUE; if (set_poisoned(0)) *ident = TRUE; if (set_confused(0)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_ROD_HEALING: { if (hp_player(500)) *ident = TRUE; if (set_stun(0)) *ident = TRUE; if (set_cut(0)) *ident = TRUE; break; } case SV_ROD_RESTORATION: { if (restore_level()) *ident = TRUE; if (do_res_stat(A_STR)) *ident = TRUE; if (do_res_stat(A_INT)) *ident = TRUE; if (do_res_stat(A_WIS)) *ident = TRUE; if (do_res_stat(A_DEX)) *ident = TRUE; if (do_res_stat(A_CON)) *ident = TRUE; if (do_res_stat(A_CHR)) *ident = TRUE; break; } case SV_ROD_SPEED: { if (!p_ptr->fast) { if (set_fast(randint(30) + 15)) *ident = TRUE; } else { (void)set_fast(p_ptr->fast + 5); } break; } case SV_ROD_TELEPORT_AWAY: { if (teleport_monster(dir)) *ident = TRUE; break; } case SV_ROD_DISARMING: { if (disarm_trap(dir)) *ident = TRUE; break; } case SV_ROD_LITE: { msg_print("Появляется коридор синего мерцающего света."); lite_line(dir); *ident = TRUE; break; } case SV_ROD_SLEEP_MONSTER: { if (sleep_monster(dir)) *ident = TRUE; break; } case SV_ROD_SLOW_MONSTER: { if (slow_monster(dir)) *ident = TRUE; break; } case SV_ROD_DRAIN_LIFE: { if (drain_life(dir, 150)) *ident = TRUE; break; } case SV_ROD_POLYMORPH: { if (poly_monster(dir)) *ident = TRUE; break; } case SV_ROD_ACID_BOLT: { fire_bolt_or_beam(10, GF_ACID, dir, damroll(12, 8)); *ident = TRUE; break; } case SV_ROD_ELEC_BOLT: { fire_bolt_or_beam(10, GF_ELEC, dir, damroll(6, 6)); *ident = TRUE; break; } case SV_ROD_FIRE_BOLT: { fire_bolt_or_beam(10, GF_FIRE, dir, damroll(16, 8)); *ident = TRUE; break; } case SV_ROD_COLD_BOLT: { fire_bolt_or_beam(10, GF_COLD, dir, damroll(10, 8)); *ident = TRUE; break; } case SV_ROD_ACID_BALL: { fire_ball(GF_ACID, dir, 120, 2); *ident = TRUE; break; } case SV_ROD_ELEC_BALL: { fire_ball(GF_ELEC, dir, 64, 2); *ident = TRUE; break; } case SV_ROD_FIRE_BALL: { fire_ball(GF_FIRE, dir, 144, 2); *ident = TRUE; break; } case SV_ROD_COLD_BALL: { fire_ball(GF_COLD, dir, 96, 2); *ident = TRUE; break; } } /* Drain the charge */ if (used_charge) o_ptr->timeout += k_ptr->pval; return TRUE; }