Ok, Tinris part is complete.

1 files changed, 58 insertions, 3 deletions

diff --git a/npc/003-1/tinris.txt b/npc/003-1/tinris.txt
index 774a02e53..8a0736725 100644
--- a/npc/003-1/tinris.txt
+++ b/npc/003-1/tinris.txt
@@ -8,6 +8,12 @@
 003-1,66,30,0	script	Tinris	NPC_ELF,{
     .@q=getq(TulimsharQuest_AnwarField);
 
+    // Results: 6 - nothing. 7- bug feast.
+    // On status 7, you need to talk to Eomie.
+    // Then Eomie will finish stuff for you, and it's reward time.
+    if (.@q == 7) goto L_Success;
+    if (.@q == 6) goto L_Fail;
+    if (.@q == 4) goto L_Craft;
     if (.@q == 3) goto L_Back;
     if (.@q == 2) goto L_Start;
     if (.@q == 1) goto L_Refuse;
@@ -56,13 +62,62 @@ L_Back:
 
     delitem CherryCake, 12;
     getexp 300, 10;
-    setq TulimsharQuest_AnwarField, 3;
+    setq TulimsharQuest_AnwarField, 4;
     mesn;
     mesq l("Okay, that is very useful. However, I do need a few reagents to make it.");
     next;
+    mesn;
+    mesq l("Please, come back later. I'll see whatever I can fetch for that.");
+    close;
+
+L_Craft:
+    mesn;
+    mesq l("So, for the fertilizer. The thing is, all that thing is unstable.");
+    next;
+    mesn;
+    mesq l("This fertilizer is projected to protect the plants from plagues, bugs, scorpions and maggots, trying to don't be a plague on itself.");
+    next;
+    mesn;
+    mesq l("That's very, very risky. I need 3 @@ and 10 @@ to make a Potion to you, and I won't warrant it will work.", getitemlink(Plushroom), getitemlink(MaggotSlime));
+    next;
+    mesn;
+    mesq l("Give that to whoever needs them, and see if it works. Then come tell me the result. Do you have the reagents?");
+    if (askyesno() != ASK_YES)
+        close;
+    mes "";
+
+    if (countitem(Plushroom) < 3||
+        countitem(MaggotSlime) < 10)
+    goto L_Lying;
+
+    delitem Plushroom, 3;
+    delitem MaggotSlime, 10;
+    setq1 TulimsharQuest_AnwarField, 5;
+
+    mesn;
+    mesq l("Here it is. Come back to report the results.");
+    close;
+
+L_Fail:
+    setq1 TulimsharQuest_AnwarField, 4;
+    .@q2=getq2(TulimsharQuest_AnwarField);
+    if (.@q2 < 10)
+        getexp 180-(.@q2*10), 0;
+    else
+        getexp 80, 0;
+    mesn;
+    mesq l("Well, that could fail, I said. Here is some experience.");
+    next;
+    mesn;
+    mesq l("Now go, and fetch the materials again. I'll make another fertilizer for you.");
+    close;
 
-    mesq l("Unfinished script, blame Jesusalva, he decided to work on Hurnscald before my cherry cakes.");
-    mesq l("And they say I am the greedy one. Hmpf.");
+L_Success:
+    mesn;
+    mesq l("WHAT? The farm is plagued with insects?!");
+    next;
+    mesn;
+    mesq l("Quick, tell that to Eomie. She knows how to do Bug Bombs which won't harm the plants!");
     close;
 
 L_Lying: