1 files changed, 53 insertions, 0 deletions
diff --git a/npc/031-5/beatrice.txt b/npc/031-5/beatrice.txt
new file mode 100644
index 000000000..bd363867c
--- /dev/null
+++ b/npc/031-5/beatrice.txt
@@ -0,0 +1,53 @@
+// TMW2 scripts.
+// Authors:
+//    Jesusalva
+// Description:
+//    Questmaker Handbook 14.0 (F = Favorable)
+
+031-5,97,41,0	script	Beatrice	NPC_SAVIOR_F,{
+    mesn;
+    mesq l("Hey there, %s. I deal with ultra rare items. If the Powers That Be decided you're out of luck, well, I am here to help you to bypass it.", get_race());
+    next;
+    mesn;
+    mesq l("For that, I use a special currency - Aethyr points. You can trade rare items for points. I also sell one point for %d GP. So, what will it me?", .price);
+    next;
+
+L_Loop:
+    clear;
+    mesc l("Aethyr Points: %s", fnum(AETHYR_PTS)), 2;
+    select
+        l("Nothing right now."),
+        l("Buying rares"),
+        l("Selling rares"),
+        l("Purchasing points");
+    mes "";
+    switch (@menu) {
+    case 1:
+        closeclientdialog;
+        close;
+    case 4:
+        mesc l("How many points? (0-%d)", Zeny/.price);
+        input .@points, 0, Zeny/.price;
+        if (.@points * .price > Zeny)
+            .@points = 0;
+        Zeny-=.price*.@points;
+        AETHYR_PTS+=.@points;
+        mesc l("Done!"), 2;
+        break;
+    }
+    goto L_Loop;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, SaviorArmor);
+    setunitdata(.@npcId, UDT_HEADTOP, TrapperHat);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 9);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
+
+    .sex = G_FEMALE;
+    .distance = 5;
+    .price = 570;
+    end;
+}
+