Valentine Day accessory functionality finished.

1 files changed, 51 insertions, 0 deletions

diff --git a/npc/001-11/Soren.txt b/npc/001-11/Soren.txt
new file mode 100644
index 000000000..a98453a39
--- /dev/null
+++ b/npc/001-11/Soren.txt
@@ -0,0 +1,51 @@
+// TMW2 scripts.
+// Author:
+//    Jesusalva
+// Description:
+//    NPC obssessed in sending gifts to Demure
+
+001-11,37,25,0	script	Soren xd#Valentine	NPC_PLAYER,{
+    mesn;
+    mesq l("I will harass Demure with so many chocolate that she'll leave this event map rolling!");
+    next;
+
+L_Main:
+    mesn;
+    mesq l("Do you want me to prepare more chocolate box for you? For that I'll need:");
+    msObjective(countitem(ChocolateBar) >= 12, l("* @@/12 @@", countitem(ChocolateBar), getitemlink(ChocolateBar)));
+    msObjective(Zeny >= 200, l("* @@/200 GP", format_number(Zeny)));
+    if (countitem(ChocolateBar) < 12 || Zeny < 200)
+        close;
+    next;
+    if (askyesno() == ASK_NO)
+        close;
+    if (Zeny < 200)
+        warp "001-9", 0, 0;
+
+    inventoryplace BoxOfChocolates, 1;
+    delitem ChocolateBar, 12;
+    Zeny=Zeny-200;
+    getitem BoxOfChocolates, 1;
+    mesn;
+    mesq l("Here you go!");
+    if (countitem(ChocolateBar) >= 12) {
+        mesq l("Anything else?");
+        next;
+        goto L_Main;
+    }
+    close;
+
+OnInit:
+    .@npcId = getnpcid(.name$);
+    setunitdata(.@npcId, UDT_HEADTOP, CandorShorts);
+    setunitdata(.@npcId, UDT_HEADMIDDLE, CandorShirt);
+    setunitdata(.@npcId, UDT_HAIRSTYLE, 14);
+    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
+
+    .sex = G_MALE;
+    .distance = 5;
+    end;
+
+
+}
+