Upload New File

1 files changed, 135 insertions, 0 deletions

diff --git a/npc/004-3/panoua.txt b/npc/004-3/panoua.txt
new file mode 100644
index 000000000..00c181d2c
--- /dev/null
+++ b/npc/004-3/panoua.txt
@@ -0,0 +1,135 @@
+// TMW-2 Script.
+// Author:
+//    Povo
+// Description:
+//    Panoua - Camel Dye Quest (lvl 55)
+
+004-3,32,24,0	script	Panoua	NPC_PLAYER,{
+    mesn;
+    mesq l("Life in the desert is simply the best.");
+    goto L_Menu;
+
+L_Menu:
+    .@q = getq(HalinarzoQuest_Panoua);   
+    next;
+    mesn;   
+    mesq l("Can I help you with anything traveller?");
+    select
+        l("Who are you?"),
+        l("What is this place?"),
+        l("I am lost, what should I do?"),
+        rif(.@q < 1, l("Do you sell anything?"),  l("Can you make me dye?")),
+        l("Nothing. I should get going.");
+
+    mes "";
+    switch (@menu)
+    {
+        case 1:
+            mesn;
+            mesq l("I am Panoua. Nice to meet you");
+            next;
+            goto L_Menu;
+        case 2:
+            mesn;
+            mesq l("This is Pachua's Village, the only settlement located deep within the Tonori Canyon.");
+            next;
+            mesq l("Our village embraces the love for life in the desert and old nomadic traditions.");
+            goto L_Menu;
+        case 3:
+            mesn;
+            mesq l("The Tonori Canyon can certainly be overwhelming for less experienced travellers.");
+            next;
+            mesn;
+            mesq l("If you get lost here I suggest, following your heart and channel your inner desert nomad.");
+            next;
+            mesn;
+            mesq l("Or maybe you could retrace your steps or something.");
+            goto L_Menu;
+        case 4:
+            mesn;
+            mesq l("I have mastered the art of crafting traditional desert dye's.");
+            mesq l("Ya know, for clothes and stuff"); 
+            next;
+            mesn;
+            mesq l("The only problem is I cannot sell any to you because I am all out of ingredients.");
+            next;
+            if (BaseLevel < 55) { 
+                mesq l("If you were stronger, I would propose a trade. However, I cannot burden a low level adventurer with a task so dangerous.");
+                goto L_Menu;
+            }
+            mesq l("I have an idea!");
+            next;
+            mesn;
+            mesq l("If you bring me the ingredients, I will make a dye for you...for a small fee of course");
+            next;
+            goto L_Offer;
+        case 5:
+            goto L_Quit;
+    }
+
+L_Offer:
+    .@q = getq(HalinarzoQuest_Panoua);
+    mesn;
+    mesq l("Here is what I will need for one %s", getitemlink(CamelDye));
+    mesq l("");
+    mesq l("%s/%s GP",fnum(Zeny), fnum(5000));
+    mesq l("%d/%d %s",countitem(BottleOfTonoriWater), 1, getitemlink(BottleOfTonoriWater));
+    mesq l("%d/%d %s",countitem(AlizarinHerb), 50, getitemlink(AlizarinHerb));
+    mesq l("%d/%d %s",countitem(IronPowder), 30, getitemlink(IronPowder));
+    mesq l("%d/%d %s",countitem(SnakeTongue), 2, getitemlink(SnakeTongue));
+    mesq l("%d/%d %s",countitem(YellowDye), 2, getitemlink(YellowDye)); 
+    mesn;
+    mesq l("So what do you think? Want one?");
+    if (.@q < 1)
+        setq HalinarzoQuest_Panoua, 1;
+    goto L_Dye;
+
+L_Dye:
+    select
+        l("Yes."),
+        l("No.");
+        
+    mes "";
+    if (@menu == 2)
+        goto L_Quit;
+    
+    if (countitem(BottleOfTonoriWater) >= 1 &&
+          countitem(AlizarinHerb) >= 50 &&
+          countitem(IronPowder) >= 30 &&
+          countitem(SnakeTongue) >= 2 &&
+          countitem(YellowDye) >= 2 &&
+          Zeny >= 5000) {
+        inventoryplace CamelDye, 1, EmptyBottle, 1;
+        delitem BottleOfTonoriWater, 1;
+        delitem AlizarinHerb, 50;
+        delitem IronPowder, 30;
+        delitem SnakeTongue, 2;
+        delitem YellowDye, 2;
+        Zeny=Zeny-5000;
+        getitem CamelDye, 1;
+        getitem EmptyBottle, 1;
+        if (getq(HalinarzoQuest_Panoua) < 2) {
+            setq HalinarzoQuest_Panoua, 2;
+            getexp 20000, 0;
+        }   
+        mesn;
+        mesq l("Thanks! Here's your dye. Do you want more?");
+        next;
+        goto L_Dye;
+    } else {
+        mesn;
+        mesq l("Sorry, you seem to be missing some things.");
+        goto L_Menu;
+    }
+    close;
+
+L_Quit:
+    closedialog;
+    goodbye;
+    close;
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 5;
+    end;
+}