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 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);
}
/*
* do_cmd_mind calls this function if the player's class
* is 'Reckoner'.
*/
static bool cast_reckoner_spell(int spell)
{
/* this will vary based on the spells, and what they depend on */
int plev = p_ptr->lev;
int b;
int py = p_ptr->py;
int px = p_ptr->px;
int dir;
/* spell code */
switch (spell)
{
case 0:
if (plev < 30)
{
teleport_player(plev);
}
else
{
teleport_player(plev * 3);
}
break;
case 1:
b = (randint(50) + plev);
if (b < 10)
{
unlite_area(randint(plev *2), (randint(plev / 5) + 2));
}
else if (b < 25)
{
unlite_room(py, px);
}
else if (b < 50)
{
lite_room(py, px);
}
else
{
lite_area(randint(plev * 2), (randint(plev / 5) + 3));
}
break;
case 2: b = (randint(50) + plev);
if (b < 20)
{
speed_monsters();
}
else if (b < 30)
{
slow_monsters();
}
else if (b < 55)
{
sleep_monsters();
}
else if (b < 75)
{
if (!p_ptr->fast)
{
(void)set_fast(randint(plev) + plev);
}
else
{
(void)set_fast(p_ptr->fast + randint(5));
}
break;
}
else
{
(void)set_fast(p_ptr->fast + b);
slow_monsters();
sleep_monsters();
}
break;
case 3: if (!get_aim_dir(&dir)) return FALSE;
(void)fire_bolt(GF_NETHER, dir,
damroll((plev / 2), (3 + plev / 3)));
break;
case 4: if (!get_aim_dir(&dir)) return FALSE;
(void)wall_to_mud(dir);
break;
case 5: (void)hp_player(damroll((plev / 3), plev));
(void)set_cut(0);
break;
case 6: set_recall(); break;
case 7: if (!get_aim_dir(&dir)) return FALSE;
(void)poly_monster(dir);
break;
case 8: if (plev < 40)
{
map_area();
(void)set_tim_esp(p_ptr->tim_esp + 10);
}
else
{
wiz_lite();
(void)set_tim_esp(p_ptr->tim_esp + plev);
}
break;
case 9: msg_print("The world changes!");
/* Leaving */
p_ptr->leaving = TRUE;
break;
case 10: break;
case 11: break;
case 12: break;
case 13: break;
case 14: break;
case 15: break;
case 16: break;
case 17: break;
case 18: break;
case 19: break;
case 20: break;
}
return TRUE;
}
/*!
* @brief 青魔法の発動 /
* do_cmd_cast calls this function if the player's class is 'blue-mage'.
* @param spell 発動するモンスター攻撃のID
* @param success TRUEは成功時、FALSEは失敗時の処理を行う
* @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
*/
static bool cast_learned_spell(int spell, bool success)
{
int dir;
int plev = pseudo_plev();
int summon_lev = p_ptr->lev * 2 / 3 + randint1(p_ptr->lev/2);
int damage = 0;
bool pet = success;
bool no_trump = FALSE;
u32b p_mode, u_mode = 0L, g_mode;
if (pet)
{
p_mode = PM_FORCE_PET;
g_mode = 0;
}
else
{
p_mode = PM_NO_PET;
g_mode = PM_ALLOW_GROUP;
}
if (!success || (randint1(50+plev) < plev/10)) u_mode = PM_ALLOW_UNIQUE;
/* spell code */
switch (spell)
{
case MS_SHRIEK:
msg_print(_("かん高い金切り声をあげた。", "You make a high pitched shriek."));
aggravate_monsters(0);
break;
case MS_XXX1:
break;
case MS_DISPEL:
{
int m_idx;
if (!target_set(TARGET_KILL)) return FALSE;
m_idx = cave[target_row][target_col].m_idx;
if (!m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(p_ptr->y, p_ptr->x, target_row, target_col)) break;
dispel_monster_status(m_idx);
break;
}
case MS_ROCKET:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("ロケットを発射した。", "You fire a rocket."));
damage = monspell_bluemage_damage((MS_ROCKET), plev, DAM_ROLL);
fire_rocket(GF_ROCKET, dir, damage, 2);
break;
case MS_SHOOT:
{
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("矢を放った。", "You fire an arrow."));
damage = monspell_bluemage_damage((MS_SHOOT), plev, DAM_ROLL);
fire_bolt(GF_ARROW, dir, damage);
break;
}
case MS_XXX2:
break;
case MS_XXX3:
break;
case MS_XXX4:
break;
case MS_BR_ACID:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("酸のブレスを吐いた。", "You breathe acid."));
damage = monspell_bluemage_damage((MS_BR_ACID), plev, DAM_ROLL);
fire_ball(GF_ACID, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("稲妻のブレスを吐いた。", "You breathe lightning."));
damage = monspell_bluemage_damage((MS_BR_ELEC), plev, DAM_ROLL);
fire_ball(GF_ELEC, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("火炎のブレスを吐いた。", "You breathe fire."));
damage = monspell_bluemage_damage((MS_BR_FIRE), plev, DAM_ROLL);
fire_ball(GF_FIRE, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_COLD:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("冷気のブレスを吐いた。", "You breathe frost."));
damage = monspell_bluemage_damage((MS_BR_COLD), plev, DAM_ROLL);
fire_ball(GF_COLD, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_POIS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("ガスのブレスを吐いた。", "You breathe gas."));
damage = monspell_bluemage_damage((MS_BR_POIS), plev, DAM_ROLL);
fire_ball(GF_POIS, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("地獄のブレスを吐いた。", "You breathe nether."));
damage = monspell_bluemage_damage((MS_BR_NETHER), plev, DAM_ROLL);
fire_ball(GF_NETHER, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_LITE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("閃光のブレスを吐いた。", "You breathe light."));
damage = monspell_bluemage_damage((MS_BR_LITE), plev, DAM_ROLL);
fire_ball(GF_LITE, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_DARK:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("暗黒のブレスを吐いた。", "You breathe darkness."));
damage = monspell_bluemage_damage((MS_BR_DARK), plev, DAM_ROLL);
fire_ball(GF_DARK, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_CONF:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("混乱のブレスを吐いた。", "You breathe confusion."));
damage = monspell_bluemage_damage((MS_BR_CONF), plev, DAM_ROLL);
fire_ball(GF_CONFUSION, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_SOUND:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("轟音のブレスを吐いた。", "You breathe sound."));
damage = monspell_bluemage_damage((MS_BR_SOUND), plev, DAM_ROLL);
fire_ball(GF_SOUND, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("カオスのブレスを吐いた。", "You breathe chaos."));
damage = monspell_bluemage_damage((MS_BR_CHAOS), plev, DAM_ROLL);
fire_ball(GF_CHAOS, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_DISEN:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("劣化のブレスを吐いた。", "You breathe disenchantment."));
damage = monspell_bluemage_damage((MS_BR_DISEN), plev, DAM_ROLL);
fire_ball(GF_DISENCHANT, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_NEXUS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("因果混乱のブレスを吐いた。", "You breathe nexus."));
damage = monspell_bluemage_damage((MS_BR_NEXUS), plev, DAM_ROLL);
fire_ball(GF_NEXUS, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_TIME:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("時間逆転のブレスを吐いた。", "You breathe time."));
damage = monspell_bluemage_damage((MS_BR_TIME), plev, DAM_ROLL);
fire_ball(GF_TIME, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_INERTIA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("遅鈍のブレスを吐いた。", "You breathe inertia."));
damage = monspell_bluemage_damage((MS_BR_INERTIA), plev, DAM_ROLL);
fire_ball(GF_INERTIAL, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_GRAVITY:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("重力のブレスを吐いた。", "You breathe gravity."));
damage = monspell_bluemage_damage((MS_BR_GRAVITY), plev, DAM_ROLL);
fire_ball(GF_GRAVITY, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_SHARDS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("破片のブレスを吐いた。", "You breathe shards."));
damage = monspell_bluemage_damage((MS_BR_SHARDS), plev, DAM_ROLL);
fire_ball(GF_SHARDS, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("プラズマのブレスを吐いた。", "You breathe plasma."));
damage = monspell_bluemage_damage((MS_BR_PLASMA), plev, DAM_ROLL);
fire_ball(GF_PLASMA, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_FORCE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("フォースのブレスを吐いた。", "You breathe force."));
damage = monspell_bluemage_damage((MS_BR_FORCE), plev, DAM_ROLL);
fire_ball(GF_FORCE, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BR_MANA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("魔力のブレスを吐いた。", "You breathe mana."));
damage = monspell_bluemage_damage((MS_BR_MANA), plev, DAM_ROLL);
fire_ball(GF_MANA, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BALL_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("放射能球を放った。", "You cast a ball of radiation."));
damage = monspell_bluemage_damage((MS_BALL_NUKE), plev, DAM_ROLL);
fire_ball(GF_NUKE, dir, damage, 2);
break;
case MS_BR_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("放射性廃棄物のブレスを吐いた。", "You breathe toxic waste."));
damage = monspell_bluemage_damage((MS_BR_NUKE), plev, DAM_ROLL);
fire_ball(GF_NUKE, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BALL_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("純ログルスを放った。", "You invoke a raw Logrus."));
damage = monspell_bluemage_damage((MS_BALL_CHAOS), plev, DAM_ROLL);
fire_ball(GF_CHAOS, dir, damage, 4);
break;
case MS_BR_DISI:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("分解のブレスを吐いた。", "You breathe disintegration."));
damage = monspell_bluemage_damage((MS_BR_DISI), plev, DAM_ROLL);
fire_ball(GF_DISINTEGRATE, dir, damage, (plev > 40 ? -3 : -2));
break;
case MS_BALL_ACID:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("アシッド・ボールの呪文を唱えた。", "You cast an acid ball."));
damage = monspell_bluemage_damage((MS_BALL_ACID), plev, DAM_ROLL);
fire_ball(GF_ACID, dir, damage, 2);
break;
case MS_BALL_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("サンダー・ボールの呪文を唱えた。", "You cast a lightning ball."));
damage = monspell_bluemage_damage((MS_BALL_ELEC), plev, DAM_ROLL);
fire_ball(GF_ELEC, dir, damage, 2);
break;
case MS_BALL_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("ファイア・ボールの呪文を唱えた。", "You cast a fire ball."));
damage = monspell_bluemage_damage((MS_BALL_FIRE), plev, DAM_ROLL);
fire_ball(GF_FIRE, dir, damage, 2);
break;
case MS_BALL_COLD:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("アイス・ボールの呪文を唱えた。", "You cast a frost ball."));
damage = monspell_bluemage_damage((MS_BALL_COLD), plev, DAM_ROLL);
fire_ball(GF_COLD, dir, damage, 2);
break;
case MS_BALL_POIS:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("悪臭雲の呪文を唱えた。", "You cast a stinking cloud."));
damage = monspell_bluemage_damage((MS_BALL_POIS), plev, DAM_ROLL);
fire_ball(GF_POIS, dir, damage, 2);
break;
case MS_BALL_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("地獄球の呪文を唱えた。", "You cast a nether ball."));
damage = monspell_bluemage_damage((MS_BALL_NETHER), plev, DAM_ROLL);
fire_ball(GF_NETHER, dir, damage, 2);
break;
case MS_BALL_WATER:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("流れるような身振りをした。", "You gesture fluidly."));
damage = monspell_bluemage_damage((MS_BALL_WATER), plev, DAM_ROLL);
fire_ball(GF_WATER, dir, damage, 4);
break;
case MS_BALL_MANA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("魔力の嵐の呪文を念じた。", "You invoke a mana storm."));
damage = monspell_bluemage_damage((MS_BALL_MANA), plev, DAM_ROLL);
fire_ball(GF_MANA, dir, damage, 4);
break;
case MS_BALL_DARK:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("暗黒の嵐の呪文を念じた。", "You invoke a darkness storm."));
damage = monspell_bluemage_damage((MS_BALL_DARK), plev, DAM_ROLL);
fire_ball(GF_DARK, dir, damage, 4);
break;
case MS_DRAIN_MANA:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_DRAIN_MANA), plev, DAM_ROLL);
fire_ball_hide(GF_DRAIN_MANA, dir, damage, 0);
break;
case MS_MIND_BLAST:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_MIND_BLAST), plev, DAM_ROLL);
fire_ball_hide(GF_MIND_BLAST, dir, damage, 0);
break;
case MS_BRAIN_SMASH:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_BRAIN_SMASH), plev, DAM_ROLL);
fire_ball_hide(GF_BRAIN_SMASH, dir, damage, 0);
break;
case MS_CAUSE_1:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_CAUSE_1), plev, DAM_ROLL);
fire_ball_hide(GF_CAUSE_1, dir, damage, 0);
break;
case MS_CAUSE_2:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_CAUSE_2), plev, DAM_ROLL);
fire_ball_hide(GF_CAUSE_2, dir, damage, 0);
break;
case MS_CAUSE_3:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_CAUSE_3), plev, DAM_ROLL);
fire_ball_hide(GF_CAUSE_3, dir, damage, 0);
break;
case MS_CAUSE_4:
if (!get_aim_dir(&dir)) return FALSE;
damage = monspell_bluemage_damage((MS_CAUSE_4), plev, DAM_ROLL);
fire_ball_hide(GF_CAUSE_4, dir, damage, 0);
break;
case MS_BOLT_ACID:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("アシッド・ボルトの呪文を唱えた。", "You cast an acid bolt."));
damage = monspell_bluemage_damage((MS_BOLT_ACID), plev, DAM_ROLL);
fire_bolt(GF_ACID, dir, damage);
break;
case MS_BOLT_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("サンダー・ボルトの呪文を唱えた。", "You cast a lightning bolt."));
damage = monspell_bluemage_damage((MS_BOLT_ELEC), plev, DAM_ROLL);
fire_bolt(GF_ELEC, dir, damage);
break;
case MS_BOLT_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("ファイア・ボルトの呪文を唱えた。", "You cast a fire bolt."));
damage = monspell_bluemage_damage((MS_BOLT_FIRE), plev, DAM_ROLL);
fire_bolt(GF_FIRE, dir, damage);
break;
case MS_BOLT_COLD:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("アイス・ボルトの呪文を唱えた。", "You cast a frost bolt."));
damage = monspell_bluemage_damage((MS_BOLT_COLD), plev, DAM_ROLL);
fire_bolt(GF_COLD, dir, damage);
break;
case MS_STARBURST:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("スターバーストの呪文を念じた。", "You invoke a starburst."));
damage = monspell_bluemage_damage((MS_STARBURST), plev, DAM_ROLL);
fire_ball(GF_LITE, dir, damage, 4);
break;
case MS_BOLT_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("地獄の矢の呪文を唱えた。", "You cast a nether bolt."));
damage = monspell_bluemage_damage((MS_BOLT_NETHER), plev, DAM_ROLL);
fire_bolt(GF_NETHER, dir, damage);
break;
case MS_BOLT_WATER:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("ウォーター・ボルトの呪文を唱えた。", "You cast a water bolt."));
damage = monspell_bluemage_damage((MS_BOLT_WATER), plev, DAM_ROLL);
fire_bolt(GF_WATER, dir, damage);
break;
case MS_BOLT_MANA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("魔力の矢の呪文を唱えた。", "You cast a mana bolt."));
damage = monspell_bluemage_damage((MS_BOLT_MANA), plev, DAM_ROLL);
fire_bolt(GF_MANA, dir, damage);
break;
case MS_BOLT_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("プラズマ・ボルトの呪文を唱えた。", "You cast a plasma bolt."));
damage = monspell_bluemage_damage((MS_BOLT_PLASMA), plev, DAM_ROLL);
fire_bolt(GF_PLASMA, dir, damage);
break;
case MS_BOLT_ICE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("極寒の矢の呪文を唱えた。", "You cast a ice bolt."));
damage = monspell_bluemage_damage((MS_BOLT_ICE), plev, DAM_ROLL);
fire_bolt(GF_ICE, dir, damage);
break;
case MS_MAGIC_MISSILE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("マジック・ミサイルの呪文を唱えた。", "You cast a magic missile."));
damage = monspell_bluemage_damage((MS_MAGIC_MISSILE), plev, DAM_ROLL);
fire_bolt(GF_MISSILE, dir, damage);
break;
case MS_SCARE:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("恐ろしげな幻覚を作り出した。", "You cast a fearful illusion."));
fear_monster(dir, plev+10);
break;
case MS_BLIND:
if (!get_aim_dir(&dir)) return FALSE;
confuse_monster(dir, plev * 2);
break;
case MS_CONF:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("誘惑的な幻覚をつくり出した。", "You cast a mesmerizing illusion."));
confuse_monster(dir, plev * 2);
break;
case MS_SLOW:
if (!get_aim_dir(&dir)) return FALSE;
slow_monster(dir, plev);
break;
case MS_SLEEP:
if (!get_aim_dir(&dir)) return FALSE;
sleep_monster(dir, plev);
break;
case MS_SPEED:
(void)set_fast(randint1(20 + plev) + plev, FALSE);
break;
case MS_HAND_DOOM:
{
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("<破滅の手>を放った！", "You invoke the Hand of Doom!"));
fire_ball_hide(GF_HAND_DOOM, dir, plev * 3, 0);
break;
}
case MS_HEAL:
msg_print(_("自分の傷に念を集中した。", "You concentrate on your wounds!"));
(void)hp_player(plev*4);
(void)set_stun(0);
(void)set_cut(0);
break;
case MS_INVULNER:
msg_print(_("無傷の球の呪文を唱えた。", "You cast a Globe of Invulnerability."));
(void)set_invuln(randint1(4) + 4, FALSE);
break;
case MS_BLINK:
teleport_player(10, 0L);
break;
case MS_TELEPORT:
teleport_player(plev * 5, 0L);
break;
case MS_WORLD:
world_player = TRUE;
msg_print(_("「時よ！」", "'Time!'"));
msg_print(NULL);
/* Hack */
p_ptr->energy_need -= 1000 + (100 + randint1(200)+200)*TURNS_PER_TICK/10;
/* Redraw map */
p_ptr->redraw |= (PR_MAP);
/* Update monsters */
p_ptr->update |= (PU_MONSTERS);
/* Window stuff */
p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
handle_stuff();
break;
case MS_SPECIAL:
break;
case MS_TELE_TO:
{
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
if (!cave[target_row][target_col].m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(p_ptr->y, p_ptr->x, target_row, target_col)) break;
m_ptr = &m_list[cave[target_row][target_col].m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
if (r_ptr->flagsr & RFR_RES_TELE)
{
if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format(_("%sには効果がなかった！", "%s is unaffected!"), m_name);
break;
}
else if (r_ptr->level > randint1(100))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format(_("%sには耐性がある！", "%s resists!"), m_name);
break;
}
}
msg_format(_("%sを引き戻した。", "You command %s to return."), m_name);
teleport_monster_to(cave[target_row][target_col].m_idx, p_ptr->y, p_ptr->x, 100, TELEPORT_PASSIVE);
break;
}
case MS_TELE_AWAY:
if (!get_aim_dir(&dir)) return FALSE;
(void)fire_beam(GF_AWAY_ALL, dir, 100);
break;
case MS_TELE_LEVEL:
{
int target_m_idx;
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
target_m_idx = cave[target_row][target_col].m_idx;
if (!target_m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(p_ptr->y, p_ptr->x, target_row, target_col)) break;
m_ptr = &m_list[target_m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
msg_format(_("%^sの足を指さした。", "You gesture at %^s's feet."), m_name);
if ((r_ptr->flagsr & (RFR_EFF_RES_NEXU_MASK | RFR_RES_TELE)) ||
(r_ptr->flags1 & RF1_QUESTOR) || (r_ptr->level + randint1(50) > plev + randint1(60)))
{
msg_format(_("しかし効果がなかった！", "%^s is unaffected!"), m_name);
}
else teleport_level(target_m_idx);
break;
}
case MS_PSY_SPEAR:
if (!get_aim_dir(&dir)) return FALSE;
msg_print(_("光の剣を放った。", "You throw a psycho-spear."));
damage = monspell_bluemage_damage((MS_PSY_SPEAR), plev, DAM_ROLL);
(void)fire_beam(GF_PSY_SPEAR, dir, damage);
break;
case MS_DARKNESS:
msg_print(_("暗闇の中で手を振った。", "You gesture in shadow."));
(void)unlite_area(10, 3);
break;
case MS_MAKE_TRAP:
if (!target_set(TARGET_KILL)) return FALSE;
msg_print(_("呪文を唱えて邪悪に微笑んだ。", "You cast a spell and cackle evilly."));
trap_creation(target_row, target_col);
break;
case MS_FORGET:
msg_print(_("しかし何も起きなかった。", "Nothing happen."));
break;
case MS_RAISE_DEAD:
msg_print(_("死者復活の呪文を唱えた。", "You cast a animate dead."));
(void)animate_dead(0, p_ptr->y, p_ptr->x);
break;
case MS_S_KIN:
{
int k;
msg_print(_("援軍を召喚した。", "You summon minions."));
for (k = 0;k < 1; k++)
{
if (summon_kin_player(summon_lev, p_ptr->y, p_ptr->x, (pet ? PM_FORCE_PET : 0L)))
{
if (!pet) msg_print(_("召喚された仲間は怒っている！", "Summoned fellows are angry!"));
}
else
{
no_trump = TRUE;
}
}
break;
}
case MS_S_CYBER:
{
int k;
msg_print(_("サイバーデーモンを召喚した！", "You summon a Cyberdemon!"));
for (k = 0 ;k < 1 ; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_CYBER, p_mode))
{
if (!pet)
msg_print(_("召喚されたサイバーデーモンは怒っている！", "The summoned Cyberdemon are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_MONSTER:
{
int k;
msg_print(_("仲間を召喚した。", "You summon help."));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, 0, p_mode))
{
if (!pet)
msg_print(_("召喚されたモンスターは怒っている！", "The summoned monster is angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_MONSTERS:
{
int k;
msg_print(_("モンスターを召喚した！", "You summon monsters!"));
for (k = 0;k < plev / 15 + 2; k++)
if(summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, 0, (p_mode | u_mode)))
{
if (!pet)
msg_print(_("召喚されたモンスターは怒っている！", "The summoned monsters are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_ANT:
{
int k;
msg_print(_("アリを召喚した。", "You summon ants."));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_ANT, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print(_("召喚されたアリは怒っている！", "The summoned ants are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_SPIDER:
{
int k;
msg_print(_("蜘蛛を召喚した。", "You summon spiders."));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_SPIDER, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print(_("召喚された蜘蛛は怒っている！", "Summoned spiders are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HOUND:
{
int k;
msg_print(_("ハウンドを召喚した。", "You summon hounds."));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_HOUND, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print(_("召喚されたハウンドは怒っている！", "Summoned hounds are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HYDRA:
{
int k;
msg_print(_("ヒドラを召喚した。", "You summon a hydras."));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_HYDRA, (g_mode | p_mode)))
{
if (!pet)
msg_print(_("召喚されたヒドラは怒っている！", "Summoned hydras are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_ANGEL:
{
int k;
msg_print(_("天使を召喚した！", "You summon an angel!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_ANGEL, (g_mode | p_mode)))
{
if (!pet)
msg_print(_("召喚された天使は怒っている！", "Summoned angels are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_DEMON:
{
int k;
msg_print(_("混沌の宮廷から悪魔を召喚した！", "You summon a demon from the Courts of Chaos!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_DEMON, (g_mode | p_mode)))
{
if (!pet)
msg_print(_("召喚されたデーモンは怒っている！", "Summoned demons are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_UNDEAD:
{
int k;
msg_print(_("アンデッドの強敵を召喚した！", "You summon an undead adversary!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_UNDEAD, (g_mode | p_mode)))
{
if (!pet)
msg_print(_("召喚されたアンデッドは怒っている！", "Summoned undeads are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_DRAGON:
{
int k;
msg_print(_("ドラゴンを召喚した！", "You summon a dragon!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_DRAGON, (g_mode | p_mode)))
{
if (!pet)
msg_print(_("召喚されたドラゴンは怒っている！", "Summoned dragons are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HI_UNDEAD:
{
int k;
msg_print(_("強力なアンデッドを召喚した！", "You summon a greater undead!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_UNDEAD, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print(_("召喚された上級アンデッドは怒っている！", "Summoned greater undeads are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HI_DRAGON:
{
int k;
msg_print(_("古代ドラゴンを召喚した！", "You summon an ancient dragon!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_DRAGON, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print(_("召喚された古代ドラゴンは怒っている！", "Summoned ancient dragons are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_AMBERITE:
{
int k;
msg_print(_("アンバーの王族を召喚した！", "You summon a Lord of Amber!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_AMBERITES, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print(_("召喚されたアンバーの王族は怒っている！", "Summoned Lords of Amber are angry!"));
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_UNIQUE:
{
int k, count = 0;
msg_print(_("特別な強敵を召喚した！", "You summon a special opponent!"));
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_UNIQUE, (g_mode | p_mode | PM_ALLOW_UNIQUE)))
{
count++;
if (!pet)
msg_print(_("召喚されたユニーク・モンスターは怒っている！", "Summoned special opponents are angry!"));
}
for (k = count;k < 1; k++)
if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_UNDEAD, (g_mode | p_mode | PM_ALLOW_UNIQUE)))
{
count++;
if (!pet)
msg_print(_("召喚された上級アンデッドは怒っている！", "Summoned greater undeads are angry!"));
}
if (!count)
{
no_trump = TRUE;
}
break;
}
default:
msg_print("hoge?");
}
if (no_trump)
{
msg_print(_("何も現れなかった。", "No one have appeared."));
}
return TRUE;
}
/*
* do_cmd_cast calls this function if the player's class
* is 'imitator'.
*/
static bool cast_learned_spell(int spell, bool success)
{
int dir;
int plev = pseudo_plev();
int summon_lev = p_ptr->lev * 2 / 3 + randint1(p_ptr->lev/2);
int hp = p_ptr->chp;
int damage = 0;
bool pet = success;
bool no_trump = FALSE;
u32b p_mode, u_mode = 0L, g_mode;
if (pet)
{
p_mode = PM_FORCE_PET;
g_mode = 0;
}
else
{
p_mode = PM_NO_PET;
g_mode = PM_ALLOW_GROUP;
}
if (!success || (randint1(50+plev) < plev/10)) u_mode = PM_ALLOW_UNIQUE;
/* spell code */
switch (spell)
{
case MS_SHRIEK:
msg_print("You make a high pitched shriek.");
aggravate_monsters(0);
break;
case MS_XXX1:
break;
case MS_DISPEL:
{
int m_idx;
if (!target_set(TARGET_KILL)) return FALSE;
m_idx = cave[target_row][target_col].m_idx;
if (!m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
dispel_monster_status(m_idx);
break;
}
case MS_ROCKET:
if (!get_aim_dir(&dir)) return FALSE;
else
msg_print("You fire a rocket.");
damage = hp / 4;
fire_rocket(GF_ROCKET, dir, spell_power(damage), 2);
break;
case MS_SHOOT:
{
int slot;
if (!get_aim_dir(&dir)) return FALSE;
msg_print("You fire an arrow.");
damage = 1;
slot = equip_find_first(object_is_melee_weapon);
if (slot)
{
object_type *o_ptr = equip_obj(slot);
damage = damroll(o_ptr->dd, o_ptr->ds)+ o_ptr->to_d;
if (damage < 1) damage = 1;
}
fire_bolt(GF_ARROW, dir, spell_power(damage));
break;
}
case MS_XXX2:
break;
case MS_XXX3:
break;
case MS_BR_STORM:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe storm.");
damage = MIN(hp / 3, 300);
fire_ball(GF_STORM, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe acid.");
damage = hp / 3;
fire_ball(GF_ACID, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe lightning.");
damage = hp / 3;
fire_ball(GF_ELEC, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe fire.");
damage = hp / 3;
fire_ball(GF_FIRE, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe frost.");
damage = hp / 3;
fire_ball(GF_COLD, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_POIS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe gas.");
damage = hp / 3;
fire_ball(GF_POIS, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe nether.");
damage = hp / 6;
fire_ball(GF_NETHER, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_LITE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe light.");
damage = hp / 6;
fire_ball(GF_LITE, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_DARK:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe darkness.");
damage = hp / 6;
fire_ball(GF_DARK, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_CONF:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe confusion.");
damage = hp / 6;
fire_ball(GF_CONFUSION, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_SOUND:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe sound.");
damage = hp / 6;
fire_ball(GF_SOUND, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe chaos.");
damage = hp / 6;
fire_ball(GF_CHAOS, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_DISEN:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe disenchantment.");
damage = hp / 6;
fire_ball(GF_DISENCHANT, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_NEXUS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe nexus.");
damage = MIN(hp / 3, 250);
fire_ball(GF_NEXUS, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_TIME:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe time.");
damage = MIN(hp / 3, 150);
fire_ball(GF_TIME, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_INERTIA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe inertia.");
damage = MIN(hp / 6, 200);
fire_ball(GF_INERT, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_GRAVITY:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe gravity.");
damage = MIN(hp / 3, 200);
fire_ball(GF_GRAVITY, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_SHARDS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe shards.");
damage = hp / 6;
fire_ball(GF_SHARDS, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe plasma.");
damage = MIN(hp / 6, 150);
fire_ball(GF_PLASMA, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_FORCE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe force.");
damage = MIN(hp / 6, 200);
fire_ball(GF_FORCE, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BR_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe mana.");
damage = MIN(hp / 3, 250);
fire_ball(GF_MANA, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BALL_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a ball of radiation.");
damage = plev * 2 + damroll(10, 6);
fire_ball(GF_NUKE, dir, spell_power(damage), 2);
break;
case MS_BR_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe toxic waste.");
damage = hp / 3;
fire_ball(GF_NUKE, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BALL_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a raw Logrus.");
damage = plev * 4 + damroll(10, 10);
fire_ball(GF_CHAOS, dir, spell_power(damage), 4);
break;
case MS_BR_DISI:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe disintegration.");
damage = MIN(hp / 6, 150);
fire_ball(GF_DISINTEGRATE, dir, spell_power(damage), (plev > 40 ? -3 : -2));
break;
case MS_BALL_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast an acid ball.");
damage = randint1(plev * 6) + 15;
fire_ball(GF_ACID, dir, spell_power(damage), 2);
break;
case MS_BALL_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a lightning ball.");
damage = randint1(plev * 3) + 8;
fire_ball(GF_ELEC, dir, spell_power(damage), 2);
break;
case MS_BALL_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fire ball.");
damage = randint1(plev * 7) + 10;
fire_ball(GF_FIRE, dir, spell_power(damage), 2);
break;
case MS_BALL_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a frost ball.");
damage = randint1(plev * 3) + 10;
fire_ball(GF_COLD, dir, spell_power(damage), 2);
break;
case MS_BALL_POIS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a stinking cloud.");
damage = damroll(12,2);
fire_ball(GF_POIS, dir, spell_power(damage), 2);
break;
case MS_BALL_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a nether ball.");
damage = plev * 2 + 50 + damroll(10, 10);
fire_ball(GF_NETHER, dir, spell_power(damage), 2);
break;
case MS_BALL_WATER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You gesture fluidly.");
damage = randint1(plev * 4) + 50;
fire_ball(GF_WATER, dir, spell_power(damage), 4);
break;
case MS_BALL_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a mana storm.");
damage = plev * 8 + 50 + damroll(10, 10);
fire_ball(GF_MANA, dir, spell_power(damage), 4);
break;
case MS_BALL_DARK:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a darkness storm.");
damage = plev * 8 + 50 + damroll(10, 10);
fire_ball(GF_DARK, dir, spell_power(damage), 4);
break;
case MS_DRAIN_MANA:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_DRAIN_MANA, dir, spell_power(randint1(plev)+plev), 0);
break;
case MS_MIND_BLAST:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(7, 7);
fire_ball_hide(GF_MIND_BLAST, dir, spell_power(damage), 0);
break;
case MS_BRAIN_SMASH:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(12, 12);
fire_ball_hide(GF_BRAIN_SMASH, dir, spell_power(damage), 0);
break;
case MS_CAUSE_1:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(3, 8);
fire_ball_hide(GF_CAUSE_1, dir, spell_power(damage), 0);
break;
case MS_CAUSE_2:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(8, 8);
fire_ball_hide(GF_CAUSE_2, dir, spell_power(damage), 0);
break;
case MS_CAUSE_3:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(10, 15);
fire_ball_hide(GF_CAUSE_3, dir, spell_power(damage), 0);
break;
case MS_CAUSE_4:
if (!get_aim_dir(&dir)) return FALSE;
damage = damroll(15, 15);
fire_ball_hide(GF_CAUSE_4, dir, spell_power(damage), 0);
break;
case MS_BOLT_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast an acid bolt.");
damage = damroll(7, 8) + plev * 2 / 3;
fire_bolt(GF_ACID, dir, spell_power(damage));
break;
case MS_BOLT_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a lightning bolt.");
damage = damroll(4, 8) + plev * 2 / 3;
fire_bolt(GF_ELEC, dir, spell_power(damage));
break;
case MS_BOLT_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fire bolt.");
damage = damroll(9, 8) + plev * 2 / 3;
fire_bolt(GF_FIRE, dir, spell_power(damage));
break;
case MS_BOLT_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a frost bolt.");
damage = damroll(6, 8) + plev * 2 / 3;
fire_bolt(GF_COLD, dir, spell_power(damage));
break;
case MS_STARBURST:
if (!get_aim_dir(&dir)) return FALSE;
else
msg_print("You invoke a starburst.");
damage = plev * 8 + 50 + damroll(10, 10);
fire_ball(GF_LITE, dir, spell_power(damage), 4);
break;
case MS_BOLT_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a nether bolt.");
damage = 30 + damroll(5, 5) + plev * 8 / 3;
fire_bolt(GF_NETHER, dir, spell_power(damage));
break;
case MS_BOLT_WATER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a water bolt.");
damage = damroll(10, 10) + plev * 2;
fire_bolt(GF_WATER, dir, spell_power(damage));
break;
case MS_BOLT_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a mana bolt.");
damage = randint1(plev * 7) + 50;
fire_bolt(GF_MANA, dir, spell_power(damage));
break;
case MS_BOLT_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a plasma bolt.");
damage = 10 + damroll(8, 7) + plev * 2;
fire_bolt(GF_PLASMA, dir, spell_power(damage));
break;
case MS_BOLT_ICE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a ice bolt.");
damage = damroll(6, 6) + plev * 2;
fire_bolt(GF_ICE, dir, spell_power(damage));
break;
case MS_MAGIC_MISSILE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a magic missile.");
damage = damroll(2, 6) + plev * 2 / 3;
fire_bolt(GF_MISSILE, dir, spell_power(damage));
break;
case MS_SCARE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fearful illusion.");
fear_monster(dir, spell_power(plev+10));
break;
case MS_BLIND:
if (!get_aim_dir(&dir)) return FALSE;
confuse_monster(dir, spell_power(plev * 2));
break;
case MS_CONF:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a mesmerizing illusion.");
confuse_monster(dir, spell_power(plev * 2));
break;
case MS_SLOW:
if (!get_aim_dir(&dir)) return FALSE;
slow_monster(dir);
break;
case MS_SLEEP:
if (!get_aim_dir(&dir)) return FALSE;
sleep_monster(dir, plev*3);
break;
case MS_SPEED:
(void)set_fast(randint1(20 + plev) + plev, FALSE);
break;
case MS_HAND_DOOM:
{
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke the Hand of Doom!");
fire_ball_hide(GF_HAND_DOOM, dir, spell_power(plev * 3), 0);
break;
}
case MS_HEAL:
msg_print("You concentrate on your wounds!");
(void)hp_player(spell_power(plev*4));
(void)set_stun(0, TRUE);
(void)set_cut(0, TRUE);
break;
case MS_INVULNER:
msg_print("You cast a Globe of Invulnerability.");
(void)set_invuln(spell_power(randint1(4) + 4), FALSE);
break;
case MS_BLINK:
teleport_player(10, 0L);
break;
case MS_TELEPORT:
teleport_player(plev * 5, 0L);
break;
case MS_WORLD:
world_player = TRUE;
msg_print("'Time!'");
msg_print(NULL);
/* Hack */
p_ptr->energy_need -= 1000 + (100 + randint1(200)+200)*TURNS_PER_TICK/10;
/* Redraw map */
p_ptr->redraw |= (PR_MAP | PR_STATUS);
/* Update monsters */
p_ptr->update |= (PU_MONSTERS);
/* Window stuff */
p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
handle_stuff();
break;
case MS_SPECIAL:
break;
case MS_TELE_TO:
{
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
if (!cave[target_row][target_col].m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
m_ptr = &m_list[cave[target_row][target_col].m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
if (r_ptr->flagsr & RFR_RES_TELE)
{
if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format("%s is unaffected!", m_name);
break;
}
else if (r_ptr->level > randint1(100))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format("%s resists!", m_name);
break;
}
}
msg_format("You command %s to return.", m_name);
teleport_monster_to(cave[target_row][target_col].m_idx, py, px, 100, TELEPORT_PASSIVE);
break;
}
case MS_TELE_AWAY:
if (!get_aim_dir(&dir)) return FALSE;
(void)fire_beam(GF_AWAY_ALL, dir, spell_power(100));
break;
case MS_TELE_LEVEL:
{
int target_m_idx;
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
target_m_idx = cave[target_row][target_col].m_idx;
if (!target_m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
m_ptr = &m_list[target_m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
msg_format("You gesture at %^s's feet.", m_name);
if ((r_ptr->flagsr & (RFR_EFF_RES_NEXU_MASK | RFR_RES_TELE)) ||
(r_ptr->flags1 & RF1_QUESTOR) || (r_ptr->level + randint1(50) > plev + randint1(60)))
{
msg_format("%^s is unaffected!", m_name);
}
else teleport_level(target_m_idx);
break;
}
case MS_PSY_SPEAR:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You throw a psycho-spear.");
damage = randint1(plev * 3) + 100;
(void)fire_beam(GF_PSY_SPEAR, dir, spell_power(damage));
break;
case MS_DARKNESS:
msg_print("You gesture in shadow.");
(void)unlite_area(10, 3);
break;
case MS_MAKE_TRAP:
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You cast a spell and cackle evilly.");
trap_creation(target_row, target_col);
break;
case MS_FORGET:
msg_print("Nothing happen.");
break;
case MS_RAISE_DEAD:
msg_print("You cast a animate dead.");
(void)animate_dead(0, py, px);
break;
case MS_S_KIN:
{
int k;
msg_print("You summon minions.");
for (k = 0;k < 1; k++)
{
if (summon_kin_player(summon_lev, py, px, (pet ? PM_FORCE_PET : 0L)))
{
if (!pet)
msg_print("Summoned fellows are angry!");
}
else
{
no_trump = TRUE;
}
}
break;
}
case MS_S_CYBER:
{
int k;
msg_print("You summon a Cyberdemon!");
for (k = 0 ;k < 1 ; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_CYBER, p_mode))
{
if (!pet)
msg_print("The summoned Cyberdemon are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_MONSTER:
{
int k;
msg_print("You summon help.");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, 0, p_mode))
{
if (!pet)
msg_print("The summoned monster is angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_MONSTERS:
{
int k;
msg_print("You summon monsters!");
for (k = 0;k < plev / 15 + 2; k++)
if(summon_specific((pet ? -1 : 0), py, px, summon_lev, 0, (p_mode | u_mode)))
{
if (!pet)
msg_print("Summoned monsters are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_ANT:
{
int k;
msg_print("You summon ants.");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_ANT, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print("Summoned ants are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_SPIDER:
{
int k;
msg_print("You summon spiders.");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_SPIDER, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print("Summoned spiders are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HOUND:
{
int k;
msg_print("You summon hounds.");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_HOUND, (PM_ALLOW_GROUP | p_mode)))
{
if (!pet)
msg_print("Summoned hounds are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HYDRA:
{
int k;
msg_print("You summon a hydras.");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_HYDRA, (g_mode | p_mode)))
{
if (!pet)
msg_print("Summoned hydras are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_ANGEL:
{
int k;
msg_print("You summon an angel!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_ANGEL, (g_mode | p_mode)))
{
if (!pet)
msg_print("Summoned angels are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_DEMON:
{
int k;
msg_print("You summon a demon from the Courts of Chaos!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_DEMON, (g_mode | p_mode)))
{
if (!pet)
msg_print("Summoned demons are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_UNDEAD:
{
int k;
msg_print("You summon an undead adversary!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_UNDEAD, (g_mode | p_mode)))
{
if (!pet)
msg_print("Summoned undeads are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_DRAGON:
{
int k;
msg_print("You summon a dragon!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_DRAGON, (g_mode | p_mode)))
{
if (!pet)
msg_print("Summoned dragons are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HI_UNDEAD:
{
int k;
msg_print("You summon a greater undead!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_HI_UNDEAD, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print("Summoned greater undeads are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_HI_DRAGON:
{
int k;
msg_print("You summon an ancient dragon!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_HI_DRAGON, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print("Summoned ancient dragons are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_AMBERITE:
{
int k;
msg_print("You summon a Lord of Amber!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_AMBERITE, (g_mode | p_mode | u_mode)))
{
if (!pet)
msg_print("Summoned Lords of Amber are angry!");
}
else
{
no_trump = TRUE;
}
break;
}
case MS_S_UNIQUE:
{
int k, count = 0;
msg_print("You summon a special opponent!");
for (k = 0;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_UNIQUE, (g_mode | p_mode | PM_ALLOW_UNIQUE)))
{
count++;
if (!pet)
msg_print("Summoned special opponents are angry!");
}
for (k = count;k < 1; k++)
if (summon_specific((pet ? -1 : 0), py, px, summon_lev, SUMMON_HI_UNDEAD, (g_mode | p_mode | PM_ALLOW_UNIQUE)))
{
count++;
if (!pet)
msg_print("Summoned greater undeads are angry!");
}
if (!count)
{
no_trump = TRUE;
}
break;
}
default:
msg_print("hoge?");
}
if (no_trump)
{
msg_print("No one have appeared.");
}
return TRUE;
}
/*
* do_cmd_cast calls this function if the player's class
* is 'imitator'.
*/
static bool use_mane(int spell)
{
int dir;
int plev = p_ptr->lev;
u32b mode = (PM_ALLOW_GROUP | PM_FORCE_PET);
u32b u_mode = 0L;
if (randint1(50+plev) < plev/10) u_mode = PM_ALLOW_UNIQUE;
/* spell code */
switch (spell)
{
case MS_SHRIEK:
msg_print("You make a high pitched shriek.");
aggravate_monsters(0);
break;
case MS_XXX1:
break;
case MS_DISPEL:
{
int m_idx;
if (!target_set(TARGET_KILL)) return FALSE;
m_idx = cave[target_row][target_col].m_idx;
if (!m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
dispel_monster_status(m_idx);
break;
}
case MS_ROCKET:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You fire a rocket.");
fire_rocket(GF_ROCKET, dir, damage, 2);
break;
case MS_SHOOT:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You fire an arrow.");
fire_bolt(GF_ARROW, dir, damage);
break;
case MS_XXX2:
break;
case MS_XXX3:
break;
case MS_BR_STORM:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe storm.");
fire_ball(GF_STORM, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe acid.");
fire_ball(GF_ACID, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe lightning.");
fire_ball(GF_ELEC, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe fire.");
fire_ball(GF_FIRE, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe frost.");
fire_ball(GF_COLD, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_POIS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe gas.");
fire_ball(GF_POIS, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe nether.");
fire_ball(GF_NETHER, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_LITE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe light.");
fire_ball(GF_LITE, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_DARK:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe darkness.");
fire_ball(GF_DARK, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_CONF:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe confusion.");
fire_ball(GF_CONFUSION, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_SOUND:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe sound.");
fire_ball(GF_SOUND, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe chaos.");
fire_ball(GF_CHAOS, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_DISEN:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe disenchantment.");
fire_ball(GF_DISENCHANT, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_NEXUS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe nexus.");
fire_ball(GF_NEXUS, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_TIME:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe time.");
fire_ball(GF_TIME, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_INERTIA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe inertia.");
fire_ball(GF_INERT, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_GRAVITY:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe gravity.");
fire_ball(GF_GRAVITY, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_SHARDS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe shards.");
fire_ball(GF_SHARDS, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe plasma.");
fire_ball(GF_PLASMA, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_FORCE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe force.");
fire_ball(GF_FORCE, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BR_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe mana.");
fire_ball(GF_MANA, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BALL_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a ball of radiation.");
fire_ball(GF_NUKE, dir, damage, 2);
break;
case MS_BR_NUKE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe toxic waste.");
fire_ball(GF_NUKE, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BALL_CHAOS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a raw Logrus.");
fire_ball(GF_CHAOS, dir, damage, 4);
break;
case MS_BR_DISI:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You breathe disintegration.");
fire_ball(GF_DISINTEGRATE, dir, damage, (plev > 35 ? -3 : -2));
break;
case MS_BALL_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast an acid ball.");
fire_ball(GF_ACID, dir, damage, 2);
break;
case MS_BALL_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a lightning ball.");
fire_ball(GF_ELEC, dir, damage, 2);
break;
case MS_BALL_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fire ball.");
fire_ball(GF_FIRE, dir, damage, 2);
break;
case MS_BALL_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a frost ball.");
fire_ball(GF_COLD, dir, damage, 2);
break;
case MS_BALL_POIS:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a stinking cloud.");
fire_ball(GF_POIS, dir, damage, 2);
break;
case MS_BALL_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a nether ball.");
fire_ball(GF_NETHER, dir, damage, 2);
break;
case MS_BALL_WATER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You gesture fluidly.");
fire_ball(GF_WATER, dir, damage, 4);
break;
case MS_BALL_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a mana storm.");
fire_ball(GF_MANA, dir, damage, 4);
break;
case MS_BALL_DARK:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a darkness storm.");
fire_ball(GF_DARK, dir, damage, 4);
break;
case MS_DRAIN_MANA:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_DRAIN_MANA, dir, randint1(plev*3)+plev, 0);
break;
case MS_MIND_BLAST:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_MIND_BLAST, dir, damage, 0);
break;
case MS_BRAIN_SMASH:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_BRAIN_SMASH, dir, damage, 0);
break;
case MS_CAUSE_1:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_CAUSE_1, dir, damage, 0);
break;
case MS_CAUSE_2:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_CAUSE_2, dir, damage, 0);
break;
case MS_CAUSE_3:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_CAUSE_3, dir, damage, 0);
break;
case MS_CAUSE_4:
if (!get_aim_dir(&dir)) return FALSE;
fire_ball_hide(GF_CAUSE_4, dir, damage, 0);
break;
case MS_BOLT_ACID:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast an acid bolt.");
fire_bolt(GF_ACID, dir, damage);
break;
case MS_BOLT_ELEC:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a lightning bolt.");
fire_bolt(GF_ELEC, dir, damage);
break;
case MS_BOLT_FIRE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fire bolt.");
fire_bolt(GF_FIRE, dir, damage);
break;
case MS_BOLT_COLD:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a frost bolt.");
fire_bolt(GF_COLD, dir, damage);
break;
case MS_STARBURST:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke a starburst.");
fire_ball(GF_LITE, dir, damage, 4);
break;
case MS_BOLT_NETHER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a nether bolt.");
fire_bolt(GF_NETHER, dir, damage);
break;
case MS_BOLT_WATER:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a water bolt.");
fire_bolt(GF_WATER, dir, damage);
break;
case MS_BOLT_MANA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a mana bolt.");
fire_bolt(GF_MANA, dir, damage);
break;
case MS_BOLT_PLASMA:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a plasma bolt.");
fire_bolt(GF_PLASMA, dir, damage);
break;
case MS_BOLT_ICE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a ice bolt.");
fire_bolt(GF_ICE, dir, damage);
break;
case MS_MAGIC_MISSILE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a magic missile.");
fire_bolt(GF_MISSILE, dir, damage);
break;
case MS_SCARE:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a fearful illusion.");
fear_monster(dir, plev+10);
break;
case MS_BLIND:
if (!get_aim_dir(&dir)) return FALSE;
confuse_monster(dir, plev * 2);
break;
case MS_CONF:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You cast a mesmerizing illusion.");
confuse_monster(dir, plev * 2);
break;
case MS_SLOW:
if (!get_aim_dir(&dir)) return FALSE;
slow_monster(dir);
break;
case MS_SLEEP:
if (!get_aim_dir(&dir)) return FALSE;
sleep_monster(dir, plev*3);
break;
case MS_SPEED:
(void)set_fast(randint1(20 + plev) + plev, FALSE);
break;
case MS_HAND_DOOM:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You invoke the Hand of Doom!");
fire_ball_hide(GF_HAND_DOOM, dir, 200, 0);
break;
case MS_HEAL:
msg_print("You concentrate on your wounds!");
(void)hp_player(plev*6);
(void)set_stun(0, TRUE);
(void)set_cut(0, TRUE);
break;
case MS_INVULNER:
msg_print("You cast a Globe of Invulnerability.");
(void)set_invuln(randint1(7) + 7, FALSE);
break;
case MS_BLINK:
if (mut_present(MUT_ASTRAL_GUIDE))
energy_use = 30;
teleport_player(10, 0L);
break;
case MS_TELEPORT:
if (mut_present(MUT_ASTRAL_GUIDE))
energy_use = 30;
teleport_player(plev * 5, 0L);
break;
case MS_WORLD:
world_player = TRUE;
if (damage == 1 || damage == 2)
msg_print("You yell 'The World! Time has stopped!'");
else if (damage == 3 || damage == 6)
msg_print("You yell 'Time!'");
else
msg_print("hek!");
msg_print(NULL);
p_ptr->energy_need -= 1000 + (100 + randint1(200)+200)*TURNS_PER_TICK/10;
p_ptr->redraw |= (PR_MAP);
p_ptr->update |= (PU_MONSTERS);
p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
handle_stuff();
break;
case MS_SPECIAL:
break;
case MS_TELE_TO:
{
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
if (!cave[target_row][target_col].m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
m_ptr = &m_list[cave[target_row][target_col].m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
if (r_ptr->flagsr & RFR_RES_TELE)
{
if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format("%s is unaffected!", m_name);
break;
}
else if (r_ptr->level > randint1(100))
{
if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
msg_format("%s resists!", m_name);
break;
}
}
msg_format("You command %s to return.", m_name);
teleport_monster_to(cave[target_row][target_col].m_idx, py, px, 100, TELEPORT_PASSIVE);
break;
}
case MS_TELE_AWAY:
if (!get_aim_dir(&dir)) return FALSE;
(void)fire_beam(GF_AWAY_ALL, dir, plev);
break;
case MS_TELE_LEVEL:
{
int target_m_idx;
monster_type *m_ptr;
monster_race *r_ptr;
char m_name[80];
if (!target_set(TARGET_KILL)) return FALSE;
target_m_idx = cave[target_row][target_col].m_idx;
if (!target_m_idx) break;
if (!player_has_los_bold(target_row, target_col)) break;
if (!projectable(py, px, target_row, target_col)) break;
m_ptr = &m_list[target_m_idx];
r_ptr = &r_info[m_ptr->r_idx];
monster_desc(m_name, m_ptr, 0);
msg_format("You gesture at %^s's feet.", m_name);
if ((r_ptr->flagsr & (RFR_EFF_RES_NEXU_MASK | RFR_RES_TELE)) ||
(r_ptr->flags1 & RF1_QUESTOR) || (r_ptr->level + randint1(50) > plev + randint1(60)))
{
msg_format("%^s is unaffected!", m_name);
}
else teleport_level(target_m_idx);
break;
}
case MS_PSY_SPEAR:
if (!get_aim_dir(&dir)) return FALSE;
else msg_print("You throw a psycho-spear.");
fire_beam(GF_PSY_SPEAR, dir, damage);
break;
case MS_DARKNESS:
msg_print("You gesture in shadow.");
unlite_area(10, 3);
break;
case MS_MAKE_TRAP:
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You cast a spell and cackle evilly.");
trap_creation(target_row, target_col);
break;
case MS_FORGET:
msg_print("Nothing happens.");
/* TODO: forget_spell(m_idx) ... */
break;
case MS_RAISE_DEAD:
msg_print("You cast a animate dead.");
animate_dead(0, py, px);
break;
case MS_S_KIN:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon minions.");
for (k = 0;k < 4; k++)
{
(void)summon_kin_player(plev, target_row, target_col, (PM_FORCE_PET | PM_ALLOW_GROUP));
}
break;
}
case MS_S_CYBER:
{
int k;
int max_cyber = (dun_level / 50) + randint1(3);
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon Cyberdemons!");
if (max_cyber > 4) max_cyber = 4;
for (k = 0;k < max_cyber; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_CYBER, mode);
break;
}
case MS_S_MONSTER:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon help.");
for (k = 0;k < 1; k++)
summon_specific(-1, target_row, target_col, plev, 0, (mode | u_mode));
break;
}
case MS_S_MONSTERS:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon monsters!");
for (k = 0;k < 6; k++)
summon_specific(-1, target_row, target_col, plev, 0, (mode | u_mode));
break;
}
case MS_S_ANT:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon ants.");
for (k = 0;k < 6; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_ANT, mode);
break;
}
case MS_S_SPIDER:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon spiders.");
for (k = 0;k < 6; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_SPIDER, mode);
break;
}
case MS_S_HOUND:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon hounds.");
for (k = 0;k < 4; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_HOUND, mode);
break;
}
case MS_S_HYDRA:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon hydras.");
for (k = 0;k < 4; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_HYDRA, mode);
break;
}
case MS_S_ANGEL:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon angel!");
for (k = 0;k < 1; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_ANGEL, mode);
break;
}
case MS_S_DEMON:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon a demon from the Courts of Chaos!");
for (k = 0;k < 1; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_DEMON, (mode | u_mode));
break;
}
case MS_S_UNDEAD:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon an undead adversary!");
for (k = 0;k < 1; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_UNDEAD, (mode | u_mode));
break;
}
case MS_S_DRAGON:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon dragon!");
for (k = 0;k < 1; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_DRAGON, (mode | u_mode));
break;
}
case MS_S_HI_UNDEAD:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon greater undead!");
for (k = 0;k < 6; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_HI_UNDEAD, (mode | u_mode));
break;
}
case MS_S_HI_DRAGON:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon ancient dragons!");
for (k = 0;k < 4; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_HI_DRAGON, (mode | u_mode));
break;
}
case MS_S_AMBERITE:
{
int k;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon Lords of Amber!");
for (k = 0;k < 4; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_AMBERITE, (mode | PM_ALLOW_UNIQUE));
break;
}
case MS_S_UNIQUE:
{
int k, count = 0;
if (!target_set(TARGET_KILL)) return FALSE;
msg_print("You summon special opponents!");
for (k = 0;k < 4; k++)
if (summon_specific(-1, target_row, target_col, plev, SUMMON_UNIQUE, (mode | PM_ALLOW_UNIQUE))) count++;
for (k = count;k < 4; k++)
summon_specific(-1, target_row, target_col, plev, SUMMON_HI_UNDEAD, (mode | u_mode));
break;
}
default:
msg_print("hoge?");
}
return TRUE;
}