Valentine Day accessory functionality finished.

1 files changed, 18 insertions, 3 deletions

diff --git a/npc/017-3/loratay.txt b/npc/017-3/loratay.txt
index d2da01b54..c9f640b4b 100644
--- a/npc/017-3/loratay.txt
+++ b/npc/017-3/loratay.txt
@@ -21,11 +21,26 @@
     close;
 
 L_Valentine:
-    // Lorem ipsum dolor sit amet
-    close;
+    mesn;
+    mesq l("It's valentine day, and I got my hands on a @@ model!", getitemlink(ValentineDress, RedDye));
+    next;
+    // Standard date: 12~15 feb
+    // Std price range: 288 ~ 383 points
+    .@todayprice=(gettime(GETTIME_DAYOFMONTH)*24)+gettime(GETTIME_HOUR);
+    mesn;
+    mesq l("You currently have @@ event points, but for ONLY @@ points I can make a dress for you!", #VALENTINE_POINTS, .@todayprice);
+    mesc l("The price raises hourly, don't leave to make it on the last day!");
+    if (#VALENTINE_POINTS < .@todayprice)
+        close;
+    next;
+    mesn;
+    mesq l("Do you want to trade your points? The demand keep raising, and so does the price!");
+    if (askyesno() == ASK_NO)
+        close;
 
     setq SQuest_Valentine, gettime(GETTIME_YEAR);
-    getitem2(ValentineDress, 1, 1, 0, 0, any(DarkRedDye, RedDye), 0,0,0);
+    #VALENTINE_POINTS-=.@todayprice;
+    getitem2(ValentineDress, 1, 1, 0, 0, any(RedDye, RedDye, DarkRedDye, RedDye), 0,0,0); // 25% chance to get an ugly dress
     getexp BaseLevel*110, JobLevel*11;
     mesn;
     mesq l("There you go, your Valentine Dress!");