Move Phoenix Rebirth inside Fortress Town. Lockdown whole Fortress Island.

3 files changed, 25 insertions, 192 deletions

diff --git a/npc/025-2/_import.txt b/npc/025-2/_import.txt
index d195a69a1..f3af81005 100644
--- a/npc/025-2/_import.txt
+++ b/npc/025-2/_import.txt
@@ -2,5 +2,5 @@
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/025-2/_mobs.txt",
 "npc/025-2/_warps.txt",
+"npc/025-2/guard.txt",
 "npc/025-2/main.txt",
-"npc/025-2/phoenix.txt",
diff --git a/npc/025-2/guard.txt b/npc/025-2/guard.txt
new file mode 100644
index 000000000..93839a2a3
--- /dev/null
+++ b/npc/025-2/guard.txt
@@ -0,0 +1,24 @@
+// TMW-2 Script.
+// Author:
+//    Jesusalva
+// Notes:
+//    Generic Guard from the Alliance
+
+025-2,108,23,0	script	Alliance Guard	NPC_BRGUARD_BOW,{
+    .@q=getq(General_Narrator);
+    if (.@q >= 21)
+        goto L_ShortSummary;
+    setpcblock(255, true);
+    mesn;
+    mesq l("Hey %s, I was informed about your arrival. You are here, good!");
+    setpcblock(255, false);
+    close;
+
+L_ShortSummary:
+    .@open$=l("We have set some stalls which should be useful if you plan into raiding the Impregnable Fortress.");
+    .@lock$=l("It is locked but %s should be able to coordinate a raid on it.", $MOST_HEROIC$);
+    mesn;
+    mesq l("Past this point is the Fortress Island. %s Even so, be careful, the town should not exist.", ($FORTRESS_STATE ? .@open$ : .@lock$));
+    close;
+}
+
diff --git a/npc/025-2/phoenix.txt b/npc/025-2/phoenix.txt
deleted file mode 100644
index 6e1d64d19..000000000
--- a/npc/025-2/phoenix.txt
+++ /dev/null
@@ -1,191 +0,0 @@
-// TMW-2 Script.
-// Author:
-//    Jesusalva
-// Notes:
-//    Phoenix Rebirth
-
-025-2,108,23,0	script	Phoenix Rebirth	NPC_BRGUARD_SPEAR,{
-    setpcblock(255, true);
-    mesn;
-    mesq l("Hello there. My name is %s.", .name$);
-    next;
-    mesn;
-    if (REBIRTH)
-        .@blvl=0-(REBIRTH_OVERLEVEL/REBIRTH);
-    else
-        .@blvl=0;
-
-    switch (REBIRTH) {
-    case 0:
-        .@blvl+=99;
-        .@rebirth$=l("first");
-        break;
-    case 1:
-        .@blvl+=120;
-        .@rebirth$=l("second");
-        break;
-    case 2:
-        .@blvl+=135;
-        .@rebirth$=l("third");
-        break;
-    case 3:
-        .@blvl+=150;
-        .@rebirth$=l("fourth");
-        break;
-    case 4:
-        .@blvl+=175;
-        .@rebirth$=l("final");
-        break;
-    default:
-        setpcblock(255, false);
-        mesc l("Unfortunately you cannot rebirth anymore!");
-        close;
-        break;
-    }
-    .@blvl=max(90, .@blvl); // Do not allow it to go too far below!
-    mesc l("Once you reach level %d, I'll offer you a life-time opportunity to delete all your levels and experience for your %s rebirth!", .@blvl, .@rebirth$);
-    next;
-    mesn;
-    mesq l("Rebirth is free. Here are the perks you'll get by doing the rebirth:");
-    mes "";
-    mes l("* +3 Inventory Slots")+" ##1##BWIP##b##0";
-    mes l("* +2 in all attributes, permanently");
-    mes l("* +1 Magic Skill Point");
-    mes l("* +%d%% EXP Gain and Drop Chance, permanently", 10);
-    mes l("* 1 %s", getitemlink(SupremeGift));
-    if (BaseLevel < .@blvl) {
-        setpcblock(255, false);
-        close;
-    }
-    next;
-    mesn;
-    mesq l("Are you interested? You'll keep %s your equipment, magic, quest progression, craft recipes, money, whatever else which is not a level. Not even Job level won't be reset!", b(l("ALL")));
-    mesc l("This cannot be undo later!"), 1;
-    next;
-    setpcblock(255, false);
-    inventoryplace NPCEyes, 7;
-    select
-        l("Do not rebirth"),
-        l("Rebirth"),
-        l("Do not rebirth");
-    mes "";
-    if (@menu != 2)
-        close;
-    mesc l("ARE YOU SURE? THIS CANNOT BE UNDONE LATER!!"), 1;
-    if (askyesno() != ASK_YES)
-        close;
-
-    // Okay, then a rebirth it is!
-    expandinventory(3);
-    REBIRTH+=1;
-    STATUSUP_STR+=2;
-    STATUSUP_AGI+=2;
-    STATUSUP_VIT+=2;
-    STATUSUP_INT+=2;
-    STATUSUP_DEX+=2;
-    STATUSUP_LUK+=2;
-    REBIRTH_OVERLEVEL=max(0, BaseLevel-.@blvl-(REBIRTH_OVERLEVEL/REBIRTH));
-    resetlvl(3);
-    NewcomerEXPDROPUP();
-    getitembound SupremeGift, 1, 4;
-    warp "005-1", 40, 117;
-    LOCATION$="Candor";
-    kamibroadcast(strcharinfo(0)+" has been reborn.");
-    // Maybe you were THE FIRST
-    if ($REBIRTH_WINNER$ == "") {
-        $REBIRTH_WINNER$=strcharinfo(0);
-        channelmes("#world", $REBIRTH_WINNER$+" is the first player to REBIRTH!! They are so OP! %%N");
-        announce "All hail ##B"+$REBIRTH_WINNER$+"##b, first player to REBIRTH and become OP!", bc_all|bc_npc;
-        getitem SupremeGift, 1;
-        next;
-    }
-    // These operations can be delayed or fail
-    StatusResetReinvest();
-    // Open a new dialog
-    clear;
-    setnpcdialogtitle l("Rebirth Race Selection");
-    mesc l("Do you want to change your race?");
-    mesc l("This can only be reverted at rebirth! Beware!");
-    next;
-    if (askyesno() != ASK_YES)
-        close;
-
-    // Rebirth: 0
-    mes "";
-    mes ".:: "+l("Human")+" ::.";
-    mesc l("The most widespread race in the continent, highly versatile, perfect all-rounders.");
-    mesc l("Strength: NONE"), 2;
-    mesc l("Weakness: NONE"), 1;
-
-
-    // Rebirth: 1
-    if (REBIRTH >= 1) {
-        mes "";
-        mes ".:: "+l("Elven")+" ::.";
-        mesc l("They are highly intelligent, and have higher magical affinity, and live longer, but lacks creativity.");
-        mesc l("Strength: INT+"), 2;
-        mesc l("Weakness: STR-"), 1;
-        mes "";
-        mes ".:: "+l("Tritan")+" ::.";
-        mesc l("Blue from sea, learned how to hunt. But unfortunately, not how to withstand attacks.");
-        mesc l("Strength: DEX+"), 2;
-        mesc l("Weakness: VIT+"), 1;
-    }
-
-
-    // Rebirth: 2
-    if (REBIRTH >= 2) {
-        mes "";
-        mes ".:: "+l("Raijin")+" ::.";
-        mesc l("Lives undercover in human society. Luck led them to surviving this far.");
-        mesc l("Strength: LUK+"), 2;
-        mesc l("Weakness: DEX-"), 1;
-        mes "";
-        mes ".:: "+l("Orc")+" ::.";
-        mesc l("Highly strong and bulky, faces their foes head-on.");
-        mesc l("Strength: STR+, Carry Weight +"), 2;
-        mesc l("Weakness: AGI-"), 1;
-    }
-
-
-    // Rebirth: 3
-    if (REBIRTH >= 3) {
-        mes "";
-        mes ".:: "+l("Ukar")+" ::.";
-        mesc l("Superb stealth, and quick on their toes.");
-        mesc l("Strength: AGI+, Walk Speed +"), 2;
-        mesc l("Weakness: LUK-"), 1;
-        mes "";
-        mes ".:: "+l("Redy")+" ::.";
-        mesc l("Grown in harsh environments, withstand anything.");
-        mesc l("Strength: VIT++"), 2;
-        mesc l("Weakness: INT-"), 1;
-    }
-
-
-    // Rebirth: 5
-    if (REBIRTH >= 5) {
-        mes "";
-        mes ".:: "+l("Savior")+" ::.";
-        mesc l("Unparelled, strength without precedents. Ancient beings of pure mana, rumored to be immortal.");
-        mesc l("Strength: ALL"), 2;
-        mesc l("Weakness: NONE"), 1;
-    }
-    next;
-    menuint
-        l("Kaizei Human"), 0,
-        rif(REBIRTH >= 1, l("Elven")), 3,
-        rif(REBIRTH >= 1, l("Tritan")), 6,
-        rif(REBIRTH >= 2, l("Raijin")), 5,
-        rif(REBIRTH >= 2, l("Orc")), 4,
-        rif(REBIRTH >= 3, l("Ukar")), 7,
-        rif(REBIRTH >= 3, l("Redy")), 8,
-        rif(REBIRTH >= 5, l("Savior")), 9,
-        l("Argaes Human"), 1,
-        l("Tonori Human"), 2,
-        l("Don't change race"), Class;
-
-    jobchange max(0, @menuret);
-    close;
-}
-