From 63c1aa7f6ec9363ee7f7c80d16d53240479d6eb8 Mon Sep 17 00:00:00 2001
From: seeds <abby.hulka@gmail.com>
Date: Sat, 29 May 2021 22:14:02 +0000
Subject: Piou isles basic NPCs

---
 npc/006-2-1/lune.txt | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 npc/006-2-1/lune.txt

(limited to 'npc/006-2-1/lune.txt')

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;
+}
-- 
cgit v1.2.3-60-g2f50