Initial commit (Moubootaur Legends fork)

5 files changed, 419 insertions, 0 deletions

diff --git a/npc/009-5/_import.txt b/npc/009-5/_import.txt
new file mode 100644
index 0000000..b875296
--- /dev/null
+++ b/npc/009-5/_import.txt
@@ -0,0 +1,6 @@
+// Map 009-5: Halinarzo Church
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+"npc/009-5/_warps.txt",
+"npc/009-5/alvasus.txt",
+"npc/009-5/joaquim.txt",
+"npc/009-5/luanna.txt",
diff --git a/npc/009-5/_warps.txt b/npc/009-5/_warps.txt
new file mode 100644
index 0000000..ee7350c
--- /dev/null
+++ b/npc/009-5/_warps.txt
@@ -0,0 +1,3 @@
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+// Map 009-5: Halinarzo Church warps
+009-5,33,42,0	warp	#009-5_33_42	1,0,009-1,63,39
diff --git a/npc/009-5/alvasus.txt b/npc/009-5/alvasus.txt
new file mode 100644
index 0000000..e2f60b6
--- /dev/null
+++ b/npc/009-5/alvasus.txt
@@ -0,0 +1,193 @@
+// TMW2 Script
+// Author:
+//      Pookie
+//      Saulc
+//      Jesusalva
+// Description:
+//    Alvasus is a believer, he is from Halinarzo and he collects Roasted Maggot
+//    for Church Party.
+//    Quest for level 19 - 5 roasted maggot for Alvasus Pendant
+// Notes:
+//    There is no church on Tulimshar. If he wanted to spread faith or whatever
+//    he would fit, but as he wants a party, I had to move him to Halinarzo.
+//    I turned him on a weekly quest. Sorry, I got excited u.u
+//
+//    First time: Alvasus Pendant
+//    Later times: GP and EXP
+//
+//    Q1: Current State
+//    Q2: Current Reward
+//    Q3: Current Week Number (for repeat)
+
+009-5,29,39,0	script	Alvasus	NPC_PLAYER,{
+    if (!getq(HalinarzoQuest_Alvasus)) {
+        npctalk3 l("Uhm? Oh, a new believer! Welcome, child of the mana, to the only church in this world.");
+        setq HalinarzoQuest_Alvasus, 1, 0, atoi(gettimestr("%U", 2));
+    }
+
+    .@q3 = getq3(HalinarzoQuest_Alvasus);
+    .@q2 = getq2(HalinarzoQuest_Alvasus);
+    if (.@q3 != atoi(gettimestr("%U", 2)))
+        setq HalinarzoQuest_Alvasus, 1, .@q2, atoi(gettimestr("%U", 2));
+
+	if (gettime(GETTIME_WEEKDAY) == SUNDAY) goto L_Sunday;
+    .@q = getq(HalinarzoQuest_Alvasus);
+    if (BaseLevel < 19) goto L_TooWeak;
+    if (.@q == 1) goto L_GiveTask;
+    if (.@q == 2) goto L_Check;
+    if (.@q == 3) goto L_Complete;
+
+    closedialog;
+    goodbye;
+    close;
+
+L_TooWeak:
+    mesn;
+    mesq l("Go away, kid! Let me pray in peace!");
+    close;
+
+L_Sunday:
+    mesn;
+	mesq l("Ah, Sunday. What better time to go to church?");
+    next;
+    if (!@alvasus && .@q == 2) goto L_Party;
+    mesn;
+	mesq l("We will have a party today, but only believers are allowed in!");
+    close;
+
+L_Quit:
+    mes "";
+    mesn;
+    mesq l("Alright.");
+    close;
+
+L_Party:
+    mesn;
+    mesq l("Please pray a bit with us!");
+    if (askyesno() != ASK_YES)
+        close;
+    mes "";
+    mesc "...";
+    next;
+    mesc "...";
+    next;
+    mesc "...";
+    next;
+    mesc "...";
+    next;
+    mesc "...";
+    next;
+    mesn;
+    mesq l("Alright, PARTY TIME!");
+    @alvasus=any(1,1,1,1,2,3,4,5);
+	@min = 65*@alvasus;
+	@max = 175*@alvasus;
+	@delay = 3*@alvasus;
+	@type = 1;
+	doevent "rand_sc_heal::OnUse";
+    close;
+
+
+L_GiveTask:
+    mesn;
+    mesq lg("Hello Adventurer!");
+    next;
+    mesn;
+    mesq l("Would you like to help me with organizing a Church Party?");
+    next;
+
+    menu
+        l("Sure, why not?"), L_Quest,
+        l("I don't have time for that."), L_Quit;
+
+
+L_Quest:
+    mes "";
+    mesn;
+    mesq l("Sunday I am having a Church Party but I forgot to prepare food!");
+    next;
+    mesn;
+    mesq l("Can you help me find some @@?", getitemlink(RoastedMaggot));
+    next;
+
+    menu
+        l("Okay!"), L_Start,
+        l("I don't have the time!"), L_Quit;
+
+
+L_Start:
+    setq1 HalinarzoQuest_Alvasus, 2;
+    mes "";
+    mesn;
+    mesq l("Ok, let's see how many you have and how many I need:");
+    goto L_List;
+
+L_List:
+    mes "";
+    mesn;
+    mes l("I will need:");
+    mes l("@@/5 @@", countitem(RoastedMaggot), getitemlink(RoastedMaggot));
+    next;
+    goto L_Check;
+
+L_Check:
+    mesn;
+    mesq l("Do you have my @@?", getitemlink(RoastedMaggot));
+    next;
+    menu
+        l("Yes!"), L_Give,
+        l("How many did you need again?"), L_List,
+        l("No!"), L_Quit;
+
+L_Give:
+    if (
+        countitem(RoastedMaggot) < 5
+        ) goto L_NoItem;
+
+
+    // First time you get the Pendant
+    .@q2 = getq2(HalinarzoQuest_Alvasus);
+    if (.@q2 == 0) {
+        inventoryplace AlvasusPendant, 1;
+        getitem(AlvasusPendant, 1);
+    }
+
+    delitem(RoastedMaggot, 5);
+
+    getexp(700+.@q2, 1+.@q2);
+    Zeny=Zeny+(.@q2*5);
+
+    setq1(HalinarzoQuest_Alvasus, 3);
+    setq2 HalinarzoQuest_Alvasus, .@q2+1;
+    setq3 HalinarzoQuest_Alvasus, atoi(gettimestr("%U", 2));
+
+    mes "";
+    mesn;
+    mesq l("Thanks for all of your help!");
+    close;
+
+L_Complete:
+    mesn;
+    mesq l("Now, to wait for Sunday is the most boring part... Alas, I wonder if I'll remember next week, too.");
+    //mesq l("Do you know where the party is? It's at Halin, to get there you need to pass through the Desert Canyon.");
+    close;
+
+L_NoItem:
+    mesn;
+    mesq l("Thanks for the kindness, but you don't have enough. I need 5!");
+    close;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADTOP, DesertHat);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, SilkRobe);
+    setunitdata(.@npcId, UDT_WEAPON, CreasedBoots);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 6);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
+
+    .sex = G_MALE;
+    .distance = 4;
+
+    end;
+}
+
diff --git a/npc/009-5/joaquim.txt b/npc/009-5/joaquim.txt
new file mode 100644
index 0000000..4028fd5
--- /dev/null
+++ b/npc/009-5/joaquim.txt
@@ -0,0 +1,187 @@
+// TMW2 Script, ported from TMW-BR
+// TMW2 Author: Jesusalva
+//
+//  Creator: Cardinalli
+//  Review: Lunovox <rui.gravata@gmail.com>
+//
+//  Description:
+//    A rather easy quest to give players what to kill.
+//  Reward:
+// Mouboo pendant + 20% exp of level 55
+
+009-5,36,35,4	script	Joaquim	NPC_PLAYER,{
+    .@q=getq(HalinarzoQuest_SickWife);
+    if (BaseLevel < 36) goto L_TooWeak;
+    if (BaseLevel < 55) goto L_Weak;
+    if (.@q == 5) goto L_Complete;
+    if (.@q == 4) goto L_Finish;
+    if (.@q == 3) goto L_DoIt;
+    if (.@q == 2) goto L_Return;
+    if (.@q == 1) goto L_Found;
+    goto L_Start;
+
+L_TooWeak:
+    mesn;
+    mesq l("Here is a safe haven for we who don't fight. There are no monsters, and the Mouboo watches over us.");
+    close;
+
+L_Weak:
+    mesn;
+    .@r=rand2(1,5);
+    switch (.@r) {
+    case 1:
+        mesq l("Watch out! My wife was gravely wounded the other day. Don't forget your shield when leaving this holy place!");
+        break;
+    case 2:
+        mesq l("Ah, I hate mushrooms. Perhaps in future, I could use their spikes and mushies.");
+        break;
+    case 3:
+        mesq l("Ah, I hate snakes. Perhaps in future, I could use their tongues.");
+        break;
+    case 4:
+        mesq l("Ah, I love mouboos. But their steaks, hmm. Ah, no, I shouldn't eat that...");
+        break;
+    case 5:
+        mesq l("You should never sell your Cactus Drinks. They have many uses.");
+        break;
+    }
+    close;
+
+L_Complete:
+    mesn;
+    mesq l("Thanks for helping my wife, I'll be forever grateful.");
+    close;
+
+L_Finish:
+    inventoryplace ElixirOfLife, 1, MoubooPendant, 1;
+    getitem ElixirOfLife, 1;
+    getitem MoubooPendant, 1;
+    getexp 39260, 75;
+    setq HalinarzoQuest_SickWife, 5;
+    mesn;
+    mesq l("Take this spare @@ I did. It heals fully and instantly, so don't hesit to use it if you're about to die.", getitemlink(ElixirOfLife));
+    next;
+    mesn;
+    mesq l("Thanks for helping my wife! Here is, an @@. May the Mouboo watch over you! o.o", getitemlink(MoubooPendant));
+    close;
+
+L_DoIt:
+    mesn;
+    mesq l("Please help my wife Yumi, on the Hospital!");
+    close;
+
+// Quest Core
+L_Start:
+    mesn;
+    mesq l("Ohhhhh..... Please, help me!!! My wife is gravely wounded!!");
+    next;
+    mesn strcharinfo(0);
+    mesq l("Calm down! How can I help you?");
+    next;
+    mesn;
+    mesq l("My grandmother gave me a recipe of the @@, it can cure anything but death.", getitemlink(ElixirOfLife));
+    next;
+    mesn;
+    mesq l("I don't remember what I need now, but if you give me a moment, I'll get the list.");
+    setq HalinarzoQuest_SickWife, 1;
+    close;
+
+L_Found:
+    mesn;
+    mesq l("I can make an @@, I still have a bottle of fairy blood, a few mana pearls, and some other rare ingredients.", getitemlink(ElixirOfLife));
+    mesq l("It is the non-rare ingredients I actually need help with!");
+    next;
+    mesn l("@@ Recipe", getitemlink(ElixirOfLife));
+    mesc l("@@/100 @@", countitem(CactusDrink), getitemlink(CactusDrink));
+    mesc l("@@/60 @@", countitem(HardSpike), getitemlink(HardSpike));
+    mesc l("@@/45 @@", countitem(SmallMushroom), getitemlink(SmallMushroom));
+    mesc l("@@/40 @@", countitem(SnakeTongue), getitemlink(SnakeTongue));
+    mesc l("@@/30 @@", countitem(BottleOfTonoriWater), getitemlink(BottleOfTonoriWater));
+    mesc l("@@/20 @@", countitem(CaveSnakeTongue), getitemlink(CaveSnakeTongue));
+    mesc l("@@/15 @@", countitem(MoubooSteak), getitemlink(MoubooSteak));
+    next;
+    select
+        l("I will do it, don't worry."),
+        rif(countitem(ElixirOfLife), l("I have one here...")),
+        l("Ahh, too many items. Sorry.");
+    mes "";
+    mesn;
+    if (@menu == 1) {
+        mes lg("Thanks! Thanks! Savior! Hurry up!");
+        setq HalinarzoQuest_SickWife, 2;
+    } else if (@menu == 2) {
+        mes l("Uhm, sorry, I don't trust stuff you get at market. You know.");
+        mes l("Full of agrotoxins, transgenics and whatever. Not safe.");
+    } else {
+        mes l("Oh noes, who nows can help my wife? Please reconsider!");
+    }
+    close;
+
+L_Return:
+    mesn l("@@ Recipe", getitemlink(ElixirOfLife));
+    mesc l("@@/100 @@", countitem(CactusDrink), getitemlink(CactusDrink));
+    mesc l("@@/60 @@", countitem(HardSpike), getitemlink(HardSpike));
+    mesc l("@@/45 @@", countitem(SmallMushroom), getitemlink(SmallMushroom));
+    mesc l("@@/40 @@", countitem(SnakeTongue), getitemlink(SnakeTongue));
+    mesc l("@@/30 @@", countitem(BottleOfTonoriWater), getitemlink(BottleOfTonoriWater));
+    mesc l("@@/20 @@", countitem(CaveSnakeTongue), getitemlink(CaveSnakeTongue));
+    mesc l("@@/15 @@", countitem(MoubooSteak), getitemlink(MoubooSteak));
+    next;
+    select
+        l("I'll be back later with all ingredients."),
+        l("They're with me.");
+    mes "";
+    if (@menu == 1)
+        close;
+
+    if (countitem(CactusDrink) < 100 ||
+        countitem(HardSpike) < 60 ||
+        countitem(SmallMushroom) < 45 ||
+        countitem(SnakeTongue) < 40 ||
+        countitem(BottleOfTonoriWater) < 30 ||
+        countitem(CaveSnakeTongue) < 20 ||
+        countitem(MoubooSteak) < 15)
+            goto L_Missing;
+
+    inventoryplace ElixirOfLife, 1;
+
+    delitem CactusDrink, 100;
+    delitem HardSpike, 60;
+    delitem SmallMushroom, 45;
+    delitem SnakeTongue, 40;
+    delitem BottleOfTonoriWater, 30;
+    delitem CaveSnakeTongue, 20;
+    delitem MoubooSteak, 15;
+    getitem ElixirOfLife, 1;
+    setq HalinarzoQuest_SickWife, 3;
+    mesn;
+    mesq l("Thanks, I'll just bake the Elixir right away...!");
+    next;
+    mesc l("@@ goes away for a while and returns briefly.", .name$);
+    next;
+    mesn;
+    mesq l("Here, take the Elixir. Please, bring it to my wife! I am counting on you!!");
+    close;
+
+L_Missing:
+    mesn strcharinfo(0);
+    mesq l("Except they're not. I'll be back later.");
+    next;
+    mesn;
+    mesq l("Please, @@! Hurry up!", strcharinfo(0));
+    close;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    //setunitdata(.@npcId, UDT_HEADTOP, NPCEyes);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, VneckJumper);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, RaidTrousers);
+    setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 3);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 5);
+    npcsit;
+
+    .sex = G_MALE;
+    .distance = 5;
+    end;
+}
diff --git a/npc/009-5/luanna.txt b/npc/009-5/luanna.txt
new file mode 100644
index 0000000..c2b570b
--- /dev/null
+++ b/npc/009-5/luanna.txt
@@ -0,0 +1,30 @@
+// TMW2 Script
+// Author:
+//    Jesusalva, 4144
+// Description:
+//  Luanna is responsible for marriage. Subject to change stuff later.
+
+009-5,32,29,0	script	Luanna	NPC_FEMALE,{
+    marriagemain();
+    close;
+
+OnTimer30000:
+    marriagecheck();
+    end;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADTOP, NPCEyes);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, VneckJumper);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, RaidTrousers);
+    setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 10);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 5);
+
+    .sex = G_FEMALE;
+    .distance = 5;
+    initnpctimer;
+
+    end;
+
+}