From 99f3f84befda9bd286a59b5bb9792b7948b2ae91 Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Wed, 13 Jan 2021 03:58:49 -0300 Subject: Move Phoenix Rebirth inside Fortress Town. Lockdown whole Fortress Island. --- npc/017-10/airship.txt | 2 +- npc/025-1/_import.txt | 1 + npc/025-1/phoenix.txt | 196 +++++++++++++++++++++++++++++++++++++++++++++++++ npc/025-2/_import.txt | 2 +- npc/025-2/guard.txt | 24 ++++++ npc/025-2/phoenix.txt | 191 ----------------------------------------------- 6 files changed, 223 insertions(+), 193 deletions(-) create mode 100644 npc/025-1/phoenix.txt create mode 100644 npc/025-2/guard.txt delete mode 100644 npc/025-2/phoenix.txt diff --git a/npc/017-10/airship.txt b/npc/017-10/airship.txt index 751be8cea..57618a629 100644 --- a/npc/017-10/airship.txt +++ b/npc/017-10/airship.txt @@ -8,7 +8,7 @@ end; OnTouch: .@q=getq(General_Narrator); - if (.@q < 19) + if (.@q < 20) end; mesc l(".:: Fortress Island ::."), 1; diff --git a/npc/025-1/_import.txt b/npc/025-1/_import.txt index 2d7aab78d..50631a93c 100644 --- a/npc/025-1/_import.txt +++ b/npc/025-1/_import.txt @@ -4,5 +4,6 @@ "npc/025-1/_mobs.txt", "npc/025-1/ctrl.c", "npc/025-1/ihclot.txt", +"npc/025-1/phoenix.txt", "npc/025-1/salohcin.txt", "npc/025-1/xovilam.txt", diff --git a/npc/025-1/phoenix.txt b/npc/025-1/phoenix.txt new file mode 100644 index 000000000..b8e20a246 --- /dev/null +++ b/npc/025-1/phoenix.txt @@ -0,0 +1,196 @@ +// TMW-2 Script. +// Author: +// Jesusalva +// Notes: +// Phoenix Rebirth + +025-1,66,21,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; + +OnInit: + .sex = G_MALE; + .distance = 7; + end; +} + 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; -} - -- cgit v1.2.3-70-g09d2