Piou isles basic NPCs

1 files changed, 90 insertions, 0 deletions

diff --git a/npc/006-2-1/lune.txt b/npc/006-2-1/lune.txt
new file mode 100644
index 000000000..77d25d3c8
--- /dev/null
+++ b/npc/006-2-1/lune.txt
@@ -0,0 +1,90 @@
+// TMW2 Script
+// Author:
+//    Saulc
+//    Vasily_Makarov (original from Evol)
+//    Jesusalva
+//    seeds
+// Description:
+//    Status Reset
+
+006-2-1,34,66,0	script	Lune	NPC_PIOU_ALCHEMIST,{
+
+    speech S_LAST_NEXT,
+        l("I am @@, a piou alchemist specialized in reset potions.", .name$);
+
+L_Menu:
+    .@plush_count = BaseLevel*210-(9*210);
+    // Lv 10: 210 GP
+    // Lv 90: 1.890 GP
+    if (BaseLevel > 10)
+        .@plush_count = .@plush_count/(BaseLevel/10);
+
+    select
+        l("Can you reset my stats please?"),
+        "",
+        lg("I'm allergic to piou potions, goodbye.");
+
+    switch (@menu)
+    {
+        case 1:
+            goto L_ResetStats;
+        case 2:
+            goto L_Powder;
+        case 3:
+            goto L_Quit;
+    }
+
+L_ResetStats:
+    mesn;
+    mesq l("Status point reset can't be undone. Do you really want this?");
+
+L_ConfirmReset:
+    ConfirmStatusReset();
+    goto L_Quit;
+
+L_Powder:
+	.@price=POL_AdjustPrice(800);
+    mes "";
+    mesn;
+    mesq "";
+    next;
+    select
+        l("Yeah, I need one."),
+        l("Thanks for the help, but no."),
+        l("I'm allergic to piou, goodbye!");
+    if (@menu == 2)
+        goto L_Menu;
+
+    if (@menu == 3)
+        goto L_Quit;
+
+    if (false) {
+        mesn;
+        mesq l("Thanks! Here you go. Perhaps you need another one?");
+        next;
+        goto L_Powder;
+    } else {
+        mesn;
+        mesq "";
+        next;
+    }
+    goto L_Menu;
+
+L_Quit:
+    closeclientdialog;
+    goodbye;
+    close;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADTOP, FancyHat);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, SailorShirt);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, BromenalPants);
+    setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins); // Boots
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 7);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 17);
+
+    .sex = G_OTHER;
+    .distance = 4;
+    end;
+}