diff options
Diffstat (limited to 'src/q_ultrag.c')
-rw-r--r-- | src/q_ultrag.c | 276 |
1 files changed, 276 insertions, 0 deletions
diff --git a/src/q_ultrag.c b/src/q_ultrag.c new file mode 100644 index 00000000..a5a09f2d --- /dev/null +++ b/src/q_ultrag.c @@ -0,0 +1,276 @@ +/* + * Here takes place the Good ultra ending + */ + +#undef cquest +#define cquest (quest[QUEST_ULTRA_GOOD]) + +bool_ quest_ultra_good_move_hook(char *fmt) +{ + s32b y, x; + cave_type *c_ptr; + + y = get_next_arg(fmt); + x = get_next_arg(fmt); + c_ptr = &cave[y][x]; + + if (cquest.status == QUEST_STATUS_UNTAKEN) + { + bool_ old_quick_messages = quick_messages; + + if (quest[QUEST_MORGOTH].status < QUEST_STATUS_FINISHED) return (FALSE); + + /* The mirror of Galadriel */ + if ((c_ptr->feat != FEAT_SHOP) || (c_ptr->special != 23)) return (FALSE); + + quick_messages = FALSE; + cmsg_print(TERM_L_BLUE, "You meet Galadriel."); + cmsg_print(TERM_YELLOW, "'I still cannot believe this is all over.'"); + cmsg_print(TERM_YELLOW, "'Morgoth's reign of terror is over at last!'"); + cmsg_print(TERM_YELLOW, "'His spirit has been banished to the Void where he cannot do much harm.'"); + cmsg_print(TERM_YELLOW, "'We can never thank you enough, hero!'"); + cmsg_print(TERM_L_BLUE, "Although everything seems all right, Galadriel seems a little subdued."); + cmsg_print(TERM_YELLOW, "'The spirit of Morgoth is not destroyed however -- only banished.'"); + cmsg_print(TERM_YELLOW, "'He can still control his allies left on Arda.'"); + cmsg_print(TERM_YELLOW, "'Maybe... maybe there could be a way to remove the threat of evil forever.'"); + cmsg_print(TERM_YELLOW, "'Somebody would have to go into the Void to do it.'"); + cmsg_print(TERM_YELLOW, "'But going there is certain death; we cannot ask it of anyone.'"); + cmsg_print(TERM_YELLOW, "'But you may choose, of your own free will, to attempt it...'"); + cmsg_print(TERM_L_BLUE, "Galadriel plainly presents the choice that now lies before you:"); + + cmsg_print(TERM_YELLOW, "'You have earned the right to make whatever you wish of your future.'"); + cmsg_print(TERM_YELLOW, "'Become a ruler of Arda if you so desire; reign long, enjoying'"); + cmsg_print(TERM_YELLOW, "'the adulation of all, and have a happy life. Or, you can turn your'"); + cmsg_print(TERM_YELLOW, "'back on safety. Enter the Void, alone, to fight a hopeless battle'"); + cmsg_print(TERM_YELLOW, "'and face certain death.'"); + + /* This is SO important a question that flush pending inputs */ + flush(); + + if (!get_check("Will you stay on Arda and lead a happy life?")) + { + cmsg_print(TERM_YELLOW, "'So be it. I will open a portal to the Void.'"); + cmsg_print(TERM_YELLOW, "'But you must know this: the portal can only lead one way.'"); + cmsg_print(TERM_YELLOW, "'It will close once you enter, so as not to permit the horrors'"); + cmsg_print(TERM_YELLOW, "'that lurk in the Void to enter Arda. Your only way to come back'"); + cmsg_print(TERM_YELLOW, "'is to defeat the spirit of Morgoth, known as Melkor.'"); + cmsg_print(TERM_YELLOW, "'You will not be able to recall back either.'"); + cmsg_print(TERM_YELLOW, "'You can still choose to retire; it is not too late'"); + cmsg_print(TERM_YELLOW, "'to save your life.'"); + cmsg_print(TERM_YELLOW, "'One last thing: It is quite certain that Melkor will have erected'"); + cmsg_print(TERM_YELLOW, "'powerful magical barriers around him. You certainly will'"); + cmsg_print(TERM_YELLOW, "'need to find a way to break them to get to him.'"); + + /* Create the entrance */ + cave_set_feat(y - 5, x, FEAT_MORE); + cave[y - 5][x].special = 11; + + /* Continue the plot */ + cquest.status = QUEST_STATUS_TAKEN; + cquest.init(QUEST_ULTRA_GOOD); + } + quick_messages = old_quick_messages; + + return TRUE; + } + + return FALSE; +} + +bool_ quest_ultra_good_stair_hook(char *fmt) +{ + cptr dir; + + dir = get_next_arg_str(fmt); + + if (dungeon_type != DUNGEON_VOID) + return FALSE; + + /* Cant leave */ + if ((!strcmp(dir, "up")) && (dun_level == 128)) + { + cmsg_print(TERM_YELLOW, "The portal to Arda is now closed."); + return TRUE; + } + /* there is no coming back */ + if ((!strcmp(dir, "up")) && (dun_level == 150)) + { + cmsg_print(TERM_YELLOW, "The barrier seems to be impenetrable from this side."); + cmsg_print(TERM_YELLOW, "You will have to move on."); + return TRUE; + } + /* Cant enter without the flame imperishable */ + if ((!strcmp(dir, "down")) && (dun_level == 149)) + { + int i; + bool_ ultimate = FALSE; + + /* Now look for an ULTIMATE artifact, that is, one imbued with the flame */ + for (i = INVEN_WIELD; i < INVEN_TOTAL; i++) + { + u32b f1, f2, f3, f4, f5, esp; + object_type *o_ptr = get_object(i); + + if (!o_ptr->k_idx) continue; + + /* Examine the gloves */ + object_flags(o_ptr, &f1, &f2, &f3, &f4, &f5, &esp); + + if (f4 & TR4_ULTIMATE) + { + ultimate = TRUE; + break; + } + } + + if (!ultimate) + { + cmsg_print(TERM_YELLOW, "It seems the level is protected by an impassable barrier of pure magic."); + cmsg_print(TERM_YELLOW, "Only the most powerful magic could remove it. You will need to use"); + cmsg_print(TERM_YELLOW, "the Flame Imperishable to pass. The source of Eru Iluvatar's own power."); + return TRUE; + } + else + { + cmsg_print(TERM_YELLOW, "The power of the Flame Imperishable shatters the magical barrier."); + cmsg_print(TERM_YELLOW, "The way before you is free."); + } + } + + return FALSE; +} + +bool_ quest_ultra_good_recall_hook(char *fmt) +{ + if ((dungeon_type != DUNGEON_VOID) && (dungeon_type != DUNGEON_NETHER_REALM)) + return FALSE; + + cmsg_print(TERM_YELLOW, "You cannot recall. The portal to Arda is closed."); + return TRUE; +} + +bool_ quest_ultra_good_death_hook(char *fmt) +{ + s32b m_idx = get_next_arg(fmt); + + monster_type *m_ptr = &m_list[m_idx]; + + /* Melkor is dead! */ + if (m_ptr->r_idx == 1044) + { + /* Total winner */ + total_winner = WINNER_ULTRA; + has_won = WINNER_ULTRA; + quest[QUEST_ULTRA_GOOD].status = QUEST_STATUS_FINISHED; + + /* Redraw the "title" */ + p_ptr->redraw |= (PR_TITLE); + + /* Congratulations */ + cmsg_print(TERM_L_GREEN, "****** CONGRATULATIONS ******"); + cmsg_print(TERM_L_GREEN, "You have done more than the impossible. You ended the threat of"); + cmsg_print(TERM_L_GREEN, "Melkor forever. Thanks to you, Arda will live in eternal peace."); + cmsg_print(TERM_L_GREEN, "You feel the spirit of Eru touching you. You feel your spirit rising!"); + cmsg_print(TERM_L_GREEN, "Before you, a portal to Arda opens. You can now come back to your world"); + cmsg_print(TERM_L_GREEN, "and live happily ever after."); + cmsg_print(TERM_L_GREEN, "What you do now is up to you, but your deeds shall ever be remembered."); + cmsg_print(TERM_L_GREEN, "You may retire (commit suicide) when you are ready."); + + /* Create the entrance */ + cave_set_feat(p_ptr->py, p_ptr->px, FEAT_MORE); + + /* Remove now used hook */ + del_hook(HOOK_MONSTER_DEATH, quest_ultra_good_death_hook); + process_hooks_restart = TRUE; + + /* End plot */ + *(quest[QUEST_ULTRA_GOOD].plot) = QUEST_NULL; + } + + /* Tik'svvrzllat is dead! */ + if (m_ptr->r_idx == 1032) + { + int i; + + /* Get local object */ + object_type forge, *q_ptr = &forge; + + /* Mega-Hack -- Prepare to make the Flame Imperishable */ + object_prep(q_ptr, lookup_kind(TV_JUNK, 255)); + + /* Mega-Hack -- Actually create the Flame Imperishable */ + k_allow_special[296] = TRUE; + apply_magic(q_ptr, -1, TRUE, TRUE, TRUE); + k_allow_special[296] = FALSE; + + /* Identify it fully */ + object_aware(q_ptr); + object_known(q_ptr); + + /* Mark the item as fully known */ + q_ptr->ident |= (IDENT_MENTAL); + + /* Find a space */ + for (i = 0; i < INVEN_PACK; i++) + { + /* Skip non-objects */ + if (!p_ptr->inventory[i].k_idx) break; + } + /* Arg, no space ! */ + if (i == INVEN_PACK) + { + char o_name[200]; + + object_desc(o_name, &p_ptr->inventory[INVEN_PACK - 1], FALSE, 0); + + /* Drop the item */ + inven_drop(INVEN_PACK - 1, 99, p_ptr->py, p_ptr->px, FALSE); + + cmsg_format(TERM_VIOLET, "You feel the urge to drop your %s to make room in your inventory.", o_name); + } + + /* Carry it */ + cmsg_format(TERM_VIOLET, "You feel the urge to pick up the Flame Imperishable."); + inven_carry(q_ptr, FALSE); + } + return (FALSE); +} +bool_ quest_ultra_good_dump_hook(char *fmt) +{ + if (quest[QUEST_ULTRA_GOOD].status >= QUEST_STATUS_TAKEN) + { + /* Ultra winner ! */ + if (total_winner == WINNER_ULTRA) + { + fprintf(hook_file, "\n You destroyed Melkor forever and have been elevated to the status of Vala by Eru Iluvatar."); + fprintf(hook_file, "\n Arda will forever be free."); + } + else + { + /* Tried and failed */ + if (death) + { + fprintf(hook_file, "\n You tried to destroy Melkor forever, but died in the attempt."); + fprintf(hook_file, "\n Arda will be quiet, but not free from evil."); + } + } + } + return (FALSE); +} + + +bool_ quest_ultra_good_init_hook(int q) +{ + if ((cquest.status >= QUEST_STATUS_TAKEN) && (cquest.status < QUEST_STATUS_FINISHED)) + { + add_hook(HOOK_STAIR, quest_ultra_good_stair_hook, "ultrag_stair"); + add_hook(HOOK_RECALL, quest_ultra_good_recall_hook, "ultrag_recall"); + add_hook(HOOK_MONSTER_DEATH, quest_ultra_good_death_hook, "ultrag_death"); + } + if (cquest.status == QUEST_STATUS_UNTAKEN) + { + add_hook(HOOK_MOVE, quest_ultra_good_move_hook, "ultrag_move"); + } + add_hook(HOOK_CHAR_DUMP, quest_ultra_good_dump_hook, "ultrag_dump"); + return (FALSE); +} |