From 96db66e01ae18a3b96192497709417808ff8bc58 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Tue, 1 Jan 2019 12:56:41 -0200
Subject: Rosen Quest - He can now make a Training Bow for you :o

---
 npc/005-4/rosen.txt | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

(limited to 'npc/005-4')

diff --git a/npc/005-4/rosen.txt b/npc/005-4/rosen.txt
index 4a3c58505..ab824c0f1 100644
--- a/npc/005-4/rosen.txt
+++ b/npc/005-4/rosen.txt
@@ -9,6 +9,13 @@
 //      Candor Island and Saxso. Requires level 5. Reward: 150 GP.
 //      Could have an additional step related to Bifs. Even a daily quest asking
 //      for (day % 8) ore, with suitable prices.
+//
+//  0 - Not assigned
+//  1 - Quest Accepted
+//  2 - Quest Complete
+//  3 - Reward Taken
+//  4 - Second Quest Accepted
+//  5 - Second Quest Complete
 
 005-4,29,36,0	script	Rosen	NPC_GUARD1,{
     function explain_ironingot {
@@ -99,6 +106,8 @@ L_NoGloves:
     close;
 
 L_Complete:
+    if (BaseLevel > 5 && .@q < 5 && countitem(TolchiArrow))
+        goto L_Task;
     mesn;
     mesq l("Ah, uhm, I'm not sure. We at Candor don't need much.");
     next;
@@ -109,6 +118,49 @@ L_Complete:
     mesq l("Alternatively, I think someone at the Land Of Fire Village is able to refine some items. Why don't you try it sometime?");
     close;
 
+L_Task:
+    if (.@q != 4) {
+        mesn;
+        mesq l("Actually, I see you have some @@. Ever tried a bow before?", getitemlink(TolchiArrow));
+        next;
+        mesn;
+        mesq l("Bows give you a good attack range, in exchange of all your evasion.");
+        mesq l("Meaning that once you equip a bow, you likely won't be able to dodge attacks.");
+        next;
+        mesn;
+        mesq l("Well, if you are good, you can just not get hit. If you're not so good, then bows will be a pain.");
+        setq CandorQuest_Rosen, 4;
+    }
+    mesq l("I was thinking, maybe I could make a @@ for you. But I want a few items:", getitemlink(TrainingBow));
+    mesc l("@@/@@ @@", countitem(CactusDrink), 1, getitemlink(CactusDrink)); // Less than 1% drop
+    mesc l("@@/@@ @@", countitem(Piberries), 1, getitemlink(Piberries)); // Can be bought, or 6% drop from Mana Bug
+    next;
+    mesq l("Do you have that with you?");
+    if (askyesno() == ASK_YES) {
+        mes "";
+        if (!countitem(CactusDrink) ||
+            !countitem(Piberries)) {
+            mesn;
+            mesq l("Now, listen closely. Jesusalva desgined most of the quests. And he hates cheaters and liars.");
+            next;
+            mesn;
+            mesq l("Actually, he's just too lazy to add proper checks everywhere. If you try to cheat, you'll suffer some penalty.");
+            next;
+            mesn;
+            mesq l("In this case, haven't I counted, I would have deleted only part of the items, then I would go silent. No refunds.");
+            mesq l("That's how this world inhabitants deal with cheaters... So don't be one, my friend. You have been warned!");
+            close;
+        }
+        inventoryplace TrainingBow, 1;
+        delitem CactusDrink, 1;
+        delitem Piberries, 1;
+        setq CandorQuest_Rosen, 5;
+        getitem TrainingBow, 1;
+        mesn;
+        mesq l("Here you go, my friend. Uhm, good luck with archery.");
+    }
+    close;
+
     function rosen_add_kills
     {
         .@qp=getq(CandorQuest_Rosen);
-- 
cgit v1.2.3-60-g2f50