Merge branch 'PiouIsles' into 'master'

Piou isles

See merge request TMW2/serverdata!60

5 files changed, 224 insertions, 0 deletions

diff --git a/npc/006-2-1/camilot.txt b/npc/006-2-1/camilot.txt
new file mode 100644
index 000000000..8cd6b3c07
--- /dev/null
+++ b/npc/006-2-1/camilot.txt
@@ -0,0 +1,54 @@
+// TMW2 scripts.
+// Authors:
+//    Saulc
+//    Jesusalva
+//    Reid
+//    Travolta
+//    +Seeds
+// Description:
+//    Camilot is the barber.
+
+006-2-1,85,67,0	script	Camilot	NPC_PIOU_BARBER,{
+     mesn;
+    mesq l("Hi! I'm Camilot, a piou specialist in humanoid hairstyles. Do you want a hair cut?");
+
+    do
+    {
+        select
+            l("What is my current hairstyle and hair color?"),
+            l("I'd like to get a different style."),
+            l("Can you do something with my color?"),
+            l("I'm allergic to piou, goodbye.");
+
+        switch (@menu)
+        {
+            case 1:
+                BarberSayStyle 2;
+                break;
+            case 2:
+                BarberChangeStyle;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Enjoy your new style.");
+                    l("Anything else?");
+                break;
+            case 3:
+                BarberChangeColor;
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("I hope you like this color.");
+                    l("Anything else?");
+                break;
+            case 4:
+                speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+                    l("Come and visit again!");
+
+                goodbye;
+        }
+    } while (1);
+    close;
+
+
+OnInit:
+    .sex = G_OTHER;
+    .distance = 5;
+    end;
+}
diff --git a/npc/006-2-1/chirp.txt b/npc/006-2-1/chirp.txt
new file mode 100644
index 000000000..3b0f146da
--- /dev/null
+++ b/npc/006-2-1/chirp.txt
@@ -0,0 +1,15 @@
+// TMW-2 Script.
+// Author:
+//    +Seeds
+//    Jesusalva
+
+006-2-1,41,66,0	script	Chirp	NPC_PIOU_BANKER,{
+    Banker(.name$, "Piou Isles", 8000);
+    close;
+
+OnInit:
+    .sex = OTHER;
+    .distance = 4;
+    end;
+}
+
diff --git a/npc/006-2-1/jenny.txt b/npc/006-2-1/jenny.txt
new file mode 100644
index 000000000..72525f8a3
--- /dev/null
+++ b/npc/006-2-1/jenny.txt
@@ -0,0 +1,41 @@
+// TMW2 Script.
+// Author:
+//    Jesusalva
+// Modified by:
+//	  +seeds
+
+006-2-1,41,74,0	script	Jenny	NPC_PIOU_SERVER,{
+
+    mesn;
+    mesq l("Hello! Would you like to try some piou delicacies?");
+    next;
+    closedialog;
+    npcshopattach(.name$);
+    shop .name$;
+    close;
+
+OnInit:
+
+    .sex = G_OTHER;
+    .distance = 5;
+
+    tradertype(NST_MARKET);
+    sellitem Piberries, 20, 20;
+    sellitem Aquada, 120, 5;
+    sellitem LettuceLeaf, 30, 15;
+    sellitem Bread, 46, 10;
+    sellitem Cheese, 55, 15;
+
+    end;
+
+OnClock0556:
+OnClock1201:
+OnClock1759:
+OnClock0003:
+    restoreshopitem Piberries, 20, 20;
+    restoreshopitem Aquada, 120, 5;
+    restoreshopitem LettuceLeaf, 30, 15;
+    restoreshopitem Bread, 46, 10;
+    restoreshopitem Cheese, 55, 15;
+    end;
+}
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;
+}
diff --git a/npc/006-2-1/plum.txt b/npc/006-2-1/plum.txt
new file mode 100644
index 000000000..12c6c9043
--- /dev/null
+++ b/npc/006-2-1/plum.txt
@@ -0,0 +1,24 @@
+// TMW2 scripts.
+// Authors:
+//    Jesusalva
+//    +seeds
+// Description:
+//    Nurse.
+
+006-2-1,85,71,0	script	Plum	NPC_PIOU_NURSE,{
+    Nurse(.name$, 10, 5);
+    close;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, TneckSweater);
+    setunitdata(.@npcId, UDT_HEADTOP, NPCEyes);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 12);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 14);
+
+    .sex = G_OTHER;
+    .distance = 5;
+    end;
+}
+