void ai_deincarnate(s32b m_idx)
{
#if 0 // DGDGDGDG
monster_type *m_ptr = get_monster(m_idx);
s32b r2_idx = m_ptr->possessor, r_idx = m_ptr->r_idx;
monster_race *r_ptr = &r_info[r2_idx];
s32b i;
char m_name[80];
monster_desc(m_name, m_ptr, 0x04);
if (m_ptr->ml) msg_format("The soul of %s deincarnates!", m_name);
m_ptr->r_idx = r2_idx;
m_ptr->ego = 0;
/* No "damage" yet */
m_ptr->stunned = 0;
m_ptr->confused = 0;
m_ptr->monfear = 0;
/* No target yet */
m_ptr->target = -1;
/* Assume no sleeping */
m_ptr->csleep = 0;
/* Assign maximal hitpoints */
if (has_flag(r_ptr, FLAG_FORCE_MAXHP))
{
m_ptr->maxhp = maxroll(r_ptr->hdice, r_ptr->hside);
}
else
{
m_ptr->maxhp = damroll(r_ptr->hdice, r_ptr->hside);
}
/* And start out fully healthy */
m_ptr->hp = m_ptr->maxhp;
/* Some basic info */
for (i = 0; i < 4; i++)
{
m_ptr->blow[i].method = r_ptr->blow[i].method;
m_ptr->blow[i].effect = r_ptr->blow[i].effect;
m_ptr->blow[i].d_dice = r_ptr->blow[i].d_dice;
m_ptr->blow[i].d_side = r_ptr->blow[i].d_side;
}
m_ptr->ac = r_ptr->ac;
m_ptr->level = r_ptr->level;
m_ptr->speed = r_ptr->speed;
m_ptr->exp = MONSTER_EXP(m_ptr->level);
/* Extract the monster base speed */
m_ptr->mspeed = m_ptr->speed;
m_ptr->energy = 0;
/* Hack -- Count the number of "reproducers" */
if (has_flag(r_ptr, FLAG_MULTIPLY)) num_repro++;
/* Hack -- Notice new multi-hued monsters */
if (has_flag(r_ptr, FLAG_ATTR_MULTI)) shimmer_monsters = TRUE;
/* Hack -- Count the monsters on the level */
r_ptr->cur_num++;
r_info[r_idx].cur_num--;
m_ptr->possessor = 0;
/* Update the monster */
update_mon(m_idx, TRUE);
#endif
}
bool quest_poison_gen_hook(char *fmt)
{
int cy = 1, cx = 1, x, y, try = 10000, r_idx;
bool (*old_get_mon_num_hook)(int r_idx);
if (cquest.status != QUEST_STATUS_TAKEN) return FALSE;
if (p_ptr->wilderness_y != wild_locs[cquest.data[0]][0]) return FALSE;
if (p_ptr->wilderness_x != wild_locs[cquest.data[0]][1]) return FALSE;
if (p_ptr->wild_mode) return FALSE;
/* Find a good position */
while (try)
{
/* Get a random spot */
cy = randint(cur_hgt - 24) + 22;
cx = randint(cur_wid - 34) + 32;
/* Is it a good spot ? */
if (cave_empty_bold(cy, cx)) break;
/* One less try */
try--;
}
/* Place the baddies */
/* Backup the old hook */
old_get_mon_num_hook = get_mon_num_hook;
/* Require "okay" monsters */
get_mon_num_hook = create_molds_hook;
/* Prepare allocation table */
get_mon_num_prep();
/* Pick a monster, using the level calculation */
for (x = cx - 25; x <= cx + 25; x++)
for (y = cy - 25; y <= cy + 25; y++)
{
if (!in_bounds(y, x)) continue;
if (distance(cy, cx, y, x) > 25) continue;
if (magik(80) && ((cave[y][x].feat == FEAT_DEEP_WATER) || (cave[y][x].feat == FEAT_SHAL_WATER))) cave_set_feat(y, x, FEAT_TAINTED_WATER);
if (distance(cy, cx, y, x) > 10) continue;
if (magik(60))
{
int m_idx;
r_idx = get_mon_num(30);
m_idx = place_monster_one(y, x, r_idx, 0, FALSE, MSTATUS_ENEMY);
/* Sometimes make it up some levels */
if (magik(80) && m_idx)
{
monster_type *m_ptr = &m_list[m_idx];
if (m_ptr->level < p_ptr->lev)
{
m_ptr->exp = MONSTER_EXP(m_ptr->level + randint(p_ptr->lev - m_ptr->level));
monster_check_experience(m_idx, TRUE);
}
}
}
}
/* Reset restriction */
get_mon_num_hook = old_get_mon_num_hook;
/* Prepare allocation table */
get_mon_num_prep();
return FALSE;
}
bool quest_poison_finish_hook(char *fmt)
{
object_type forge, *q_ptr;
s32b q_idx;
q_idx = get_next_arg(fmt);
if (q_idx != QUEST_POISON) return FALSE;
c_put_str(TERM_YELLOW, "The water is clean again! Thank you so much.", 8, 0);
c_put_str(TERM_YELLOW, "The beautiful Mallorns are safe. Take this as a proof of our gratitude.", 9, 0);
q_ptr = &forge;
object_prep(q_ptr, lookup_kind(TV_DRAG_ARMOR, SV_DRAGON_BLUE));
q_ptr->found = OBJ_FOUND_REWARD;
q_ptr->number = 1;
q_ptr->name2 = EGO_ELVENKIND;
apply_magic(q_ptr, 1, FALSE, FALSE, FALSE);
object_aware(q_ptr);
object_known(q_ptr);
q_ptr->ident |= IDENT_STOREB;
(void)inven_carry(q_ptr, FALSE);
/* Continue the plot */
*(quest[q_idx].plot) = QUEST_NULL;
del_hook(HOOK_QUEST_FINISH, quest_poison_finish_hook);
process_hooks_restart = TRUE;
return TRUE;
}