summaryrefslogtreecommitdiff
path: root/src/q_hobbit.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/q_hobbit.c')
-rw-r--r--src/q_hobbit.c195
1 files changed, 0 insertions, 195 deletions
diff --git a/src/q_hobbit.c b/src/q_hobbit.c
deleted file mode 100644
index f3b7d856..00000000
--- a/src/q_hobbit.c
+++ /dev/null
@@ -1,195 +0,0 @@
-#undef cquest
-#define cquest (quest[QUEST_HOBBIT])
-
-bool_ quest_hobbit_town_gen_hook(char *fmt)
-{
- int x = 1, y = 1, tries = 10000;
- s32b small;
-
- small = get_next_arg(fmt);
-
- if ((turn < (cquest.data[1] + (DAY * 10L))) || (cquest.status > QUEST_STATUS_COMPLETED) || (small) || (p_ptr->town_num != 1)) return (FALSE);
-
- /* Find a good position */
- while (tries)
- {
- /* Get a random spot */
- y = randint(20) + (cur_hgt / 2) - 10;
- x = randint(20) + (cur_wid / 2) - 10;
-
- /* Is it a good spot ? */
- /* Not in player los, and avoid shop grids */
- if (!los(p_ptr->py, p_ptr->px, y, x) && cave_empty_bold(y, x) &&
- cave_plain_floor_bold(y, x)) break;
-
- /* One less try */
- tries--;
- }
-
- /* Place Melinda */
- m_allow_special[test_monster_name("Melinda Proudfoot")] = TRUE;
- place_monster_one(y, x, test_monster_name("Melinda Proudfoot"), 0, FALSE, MSTATUS_ENEMY);
- m_allow_special[test_monster_name("Melinda Proudfoot")] = FALSE;
-
- return FALSE;
-}
-bool_ quest_hobbit_gen_hook(char *fmt)
-{
- int x = 1, y = 1, tries = 10000;
-
- if ((cquest.status != QUEST_STATUS_TAKEN) || (dun_level != cquest.data[0]) || (dungeon_type != DUNGEON_MAZE)) return FALSE;
-
- /* Find a good position */
- while (tries)
- {
- /* Get a random spot */
- y = randint(cur_hgt - 4) + 2;
- x = randint(cur_wid - 4) + 2;
-
- /* Is it a good spot ? */
- if (cave_empty_bold(y, x)) break;
-
- /* One less try */
- tries--;
- }
-
- /* Place the hobbit */
- m_allow_special[test_monster_name("Merton Proudfoot, the lost hobbit")] = TRUE;
- place_monster_one(y, x, test_monster_name("Merton Proudfoot, the lost hobbit"), 0, FALSE, MSTATUS_FRIEND);
- m_allow_special[test_monster_name("Merton Proudfoot, the lost hobbit")] = FALSE;
-
- return FALSE;
-}
-bool_ quest_hobbit_give_hook(char *fmt)
-{
- object_type *o_ptr;
- monster_type *m_ptr;
- s32b m_idx, item;
-
- m_idx = get_next_arg(fmt);
- item = get_next_arg(fmt);
-
- o_ptr = &p_ptr->inventory[item];
- m_ptr = &m_list[m_idx];
-
- if (m_ptr->r_idx != test_monster_name("Merton Proudfoot, the lost hobbit")) return (FALSE);
-
- if ((o_ptr->tval != TV_SCROLL) || (o_ptr->sval != SV_SCROLL_WORD_OF_RECALL)) return (FALSE);
-
- msg_print("'Oh, thank you, noble one!'");
- msg_print("Merton Proudfoot reads the scroll and is recalled to the safety of his home.");
-
- delete_monster_idx(m_idx);
-
- inc_stack_size_ex(item, -1, OPTIMIZE, NO_DESCRIBE);
-
- cquest.status = QUEST_STATUS_COMPLETED;
-
- del_hook(HOOK_GIVE, quest_hobbit_give_hook);
- process_hooks_restart = TRUE;
-
- return TRUE;
-}
-bool_ quest_hobbit_speak_hook(char *fmt)
-{
- s32b m_idx = get_next_arg(fmt);
-
- if (m_list[m_idx].r_idx != test_monster_name("Melinda Proudfoot")) return (FALSE);
-
- if (cquest.status < QUEST_STATUS_COMPLETED)
- {
- cptr m_name;
-
- m_name = get_next_arg_str(fmt);
-
- msg_format("%^s begs for your help.", m_name);
- }
- return (TRUE);
-}
-bool_ quest_hobbit_chat_hook(char *fmt)
-{
- monster_type *m_ptr;
- s32b m_idx;
-
- m_idx = get_next_arg(fmt);
-
- m_ptr = &m_list[m_idx];
-
- if (m_ptr->r_idx != test_monster_name("Melinda Proudfoot")) return (FALSE);
-
- if (cquest.status < QUEST_STATUS_COMPLETED)
- {
- msg_print("Oh! Oh!");
- msg_print("My poor Merton, where is my poor Merton? He was playing near that dreadful");
- msg_print("maze and never been seen again! Could you find him for me?");
-
- cquest.status = QUEST_STATUS_TAKEN;
- quest[QUEST_HOBBIT].init(QUEST_HOBBIT);
- }
- else if (cquest.status == QUEST_STATUS_COMPLETED)
- {
- object_type forge, *q_ptr;
-
- msg_print("My Merton is back! You saved him, hero.");
- msg_print("Take this as a proof of my gratitude. It was given to my family");
- msg_print("by a famed wizard, but it should serve you better than me.");
-
- q_ptr = &forge;
- object_prep(q_ptr, lookup_kind(TV_ROD, SV_ROD_RECALL));
- q_ptr->number = 1;
- q_ptr->found = OBJ_FOUND_REWARD;
- object_aware(q_ptr);
- object_known(q_ptr);
- q_ptr->ident |= IDENT_STOREB;
- (void)inven_carry(q_ptr, FALSE);
-
- cquest.status = QUEST_STATUS_FINISHED;
-
- del_hook(HOOK_MON_SPEAK, quest_hobbit_speak_hook);
- process_hooks_restart = TRUE;
- delete_monster_idx(m_idx);
-
- return TRUE;
- }
- else
- {
- msg_print("Thanks again.");
- }
-
- return TRUE;
-}
-bool_ quest_hobbit_dump_hook(char *fmt)
-{
- if (cquest.status >= QUEST_STATUS_COMPLETED)
- {
- fprintf(hook_file, "\n You saved a young hobbit from an horrible fate.");
- }
- return (FALSE);
-}
-bool_ quest_hobbit_init_hook(int q_idx)
-{
- /* Get a level to place the hobbit */
- if (!cquest.data[0])
- {
- cquest.data[0] = rand_range(26, 34);
- cquest.data[1] = turn;
- if (wizard) message_add(MESSAGE_MSG, format("Hobbit level %d", cquest.data[0]), TERM_BLUE);
- }
-
- if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED))
- {
- add_hook(HOOK_GIVE, quest_hobbit_give_hook, "hobbit_give");
- add_hook(HOOK_GEN_LEVEL, quest_hobbit_gen_hook, "hobbit_gen");
- add_hook(HOOK_WILD_GEN, quest_hobbit_town_gen_hook, "hobbit_town_gen");
- add_hook(HOOK_CHAT, quest_hobbit_chat_hook, "hobbit_chat");
- add_hook(HOOK_MON_SPEAK, quest_hobbit_speak_hook, "hobbit_speak");
- }
- if (cquest.status == QUEST_STATUS_UNTAKEN)
- {
- add_hook(HOOK_MON_SPEAK, quest_hobbit_speak_hook, "hobbit_speak");
- add_hook(HOOK_WILD_GEN, quest_hobbit_town_gen_hook, "hobbit_town_gen");
- add_hook(HOOK_CHAT, quest_hobbit_chat_hook, "hobbit_chat");
- }
- add_hook(HOOK_CHAR_DUMP, quest_hobbit_dump_hook, "hobbit_dump");
- return (FALSE);
-}